[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103656: * lisp/help-fns.el (variable
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103656: * lisp/help-fns.el (variable-at-point): Skip leading quotes, if any |
Date: |
Mon, 14 Mar 2011 22:36:07 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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)) ?_)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103656: * lisp/help-fns.el (variable-at-point): Skip leading quotes, if any,
Stefan Monnier <=