diff options
| author | Kevin Ryde <user42@zip.com.au> | 2011-03-14 22:36:07 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-03-14 22:36:07 -0400 |
| commit | 047b2bb9a27dc4f20a9e346782235efceedb7b9c (patch) | |
| tree | 5795754326024890be40295b149cebecf0978b8d /lisp | |
| parent | 0a57d256afbca59f9432c8b7c9f2c58bca8ff562 (diff) | |
| download | emacs-047b2bb9a27dc4f20a9e346782235efceedb7b9c.tar.gz | |
* lisp/help-fns.el (variable-at-point): Skip leading quotes, if any
(bug#8253).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help-fns.el | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e41e948ef29..6d80ed0f5bd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-03-15 Kevin Ryde <user42@zip.com.au> + + * help-fns.el (variable-at-point): Skip leading quotes, if any + (bug#8253). + 2011-03-15 Stefan Monnier <monnier@iro.umontreal.ca> * emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e27a1e47b5c..ede80f858bf 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -534,6 +534,7 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound." (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)) ?_) |