diff options
| author | Eli Zaretskii | 2017-01-27 12:27:50 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2017-01-27 12:27:50 +0200 |
| commit | 90c76346740c097063b4a273ceb3af01327ff2a4 (patch) | |
| tree | 33444db0c9ce277510006878648be77a97b374a6 | |
| parent | d7ac7b15ca9e490c8e059ad92b968a3008a7b83e (diff) | |
| download | emacs-90c76346740c097063b4a273ceb3af01327ff2a4.tar.gz emacs-90c76346740c097063b4a273ceb3af01327ff2a4.zip | |
Fix 'describe-variable' for longish variable values
* lisp/help-fns.el (describe-variable): Don't accidentally remove
the last character of a variable's value. (Bug#25545)
| -rw-r--r-- | lisp/help-fns.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index edbcd9099d3..742c66919af 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -852,7 +852,7 @@ it is displayed along with the global value." | |||
| 852 | (terpri) | 852 | (terpri) |
| 853 | (pp val) | 853 | (pp val) |
| 854 | ;; Remove trailing newline. | 854 | ;; Remove trailing newline. |
| 855 | (delete-char -1)) | 855 | (and (= (char-before) ?\n) (delete-char -1))) |
| 856 | (let* ((sv (get variable 'standard-value)) | 856 | (let* ((sv (get variable 'standard-value)) |
| 857 | (origval (and (consp sv) | 857 | (origval (and (consp sv) |
| 858 | (condition-case nil | 858 | (condition-case nil |