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

1 files changed, 4 insertions, 1 deletions

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:")