diff options
| author | Gerd Moellmann <[email protected]> | 2000-06-27 10:54:26 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2000-06-27 10:54:26 +0000 |
| commit | d365421f859f6c88e3dc4b610c87adaef3cb099c (patch) | |
| tree | a8c95c81640a38b179bcc7f6603e22da1add6499 /lisp | |
| parent | 0b431debcc6c20cf404f4fb583c217f3b8c573d1 (diff) | |
(describe-variable): Don't insert a second `'s' in front
of the string `value is shown below'. Since the syntax-table to
emacs-lisp-mode-syntax-table makes forward-sexp skip over an
existing `'s', so that this won't be deleted.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 1a25fe7860..c3dfc518aa 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -847,13 +847,16 @@ Returns the documentation as a string, also." (set-buffer standard-output) (if (> (count-lines (point-min) (point-max)) 10) (progn + ;; Note that setting the syntax table like below + ;; makes forward-sexp move over a `'s' at the end + ;; of a symbol. (set-syntax-table emacs-lisp-mode-syntax-table) (goto-char (point-min)) (if valvoid (forward-line 1) (forward-sexp 1) (delete-region (point) (progn (end-of-line) (point))) - (insert "'s value is shown below.\n\n") + (insert " value is shown below.\n\n") (save-excursion (insert "\n\nValue:")))))) (princ "Documentation:") |