[Emacs-diffs] /srv/bzr/emacs/trunk r103656: * lisp/help-fns.el (variable-at-point): Skip leading quotes, if any

[Stefan Monnier]

------------------------------------------------------------
revno: 103656
author: Kevin Ryde <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-03-14 22:36:07 -0400
message:
  * lisp/help-fns.el (variable-at-point): Skip leading quotes, if any
  (bug#8253).
modified:
  lisp/ChangeLog
  lisp/help-fns.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-15 01:12:54 +0000
+++ b/lisp/ChangeLog    2011-03-15 02:36:07 +0000
@@ -1,3 +1,8 @@
+2011-03-15  Kevin Ryde  <address@hidden>
+
+       * help-fns.el (variable-at-point): Skip leading quotes, if any
+       (bug#8253).
+
 2011-03-15  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the

=== modified file 'lisp/help-fns.el'
--- a/lisp/help-fns.el  2011-03-12 19:19:47 +0000
+++ b/lisp/help-fns.el  2011-03-15 02:36:07 +0000
@@ -534,6 +534,7 @@
   (with-syntax-table emacs-lisp-mode-syntax-table
     (or (condition-case ()
            (save-excursion
+             (skip-chars-forward "'")
              (or (not (zerop (skip-syntax-backward "_w")))
                  (eq (char-syntax (following-char)) ?w)
                  (eq (char-syntax (following-char)) ?_)