From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 27 Jun 2000 10:54:26 +0000 (+0000)
Subject: (describe-variable): Don't insert a second `'s' in front
X-Git-Tag: emacs-pretest-21.0.90~3051
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d365421f859f6c88e3dc4b610c87adaef3cb099c;p=emacs.git

(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.
---

diff --git a/lisp/help.el b/lisp/help.el
index 1a25fe78601..c3dfc518aaf 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:")