diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-09-25 22:15:11 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-09-25 22:15:11 +0000 |
commit | 9c9aedc12e78d677a5d0afcf81723dd08dc982b4 (patch) | |
tree | 3ce76271996dbde654a7273b337f71b3a66747b2 /lisp/add-log.el | |
parent | 75b3cd3445b9447e1180d9c01f7ca0860feadd31 (diff) | |
download | emacs-9c9aedc12e78d677a5d0afcf81723dd08dc982b4.tar.gz |
(add-log-current-defun): Ignore quotes before fcn name.
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r-- | lisp/add-log.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index f380875649c..41ada9f91bb 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -328,7 +328,7 @@ Has a preference of looking backwards." (let ((location (point))) (cond ((memq major-mode '(emacs-lisp-mode lisp-mode scheme-mode lisp-interaction-mode)) - ;; If we are now precisely a the beginning of a defun, + ;; If we are now precisely at the beginning of a defun, ;; make sure beginning-of-defun finds that one ;; rather than the previous one. (or (eobp) (forward-char 1)) @@ -342,7 +342,7 @@ Has a preference of looking backwards." (if (looking-at "\\s(") (forward-char 1)) (forward-sexp 1) - (skip-chars-forward " ") + (skip-chars-forward " '") (buffer-substring (point) (progn (forward-sexp 1) (point)))))) ((and (memq major-mode '(c-mode c++-mode c++-c-mode objc-mode)) |