From: Richard M. Stallman Date: Mon, 25 Sep 1995 22:15:11 +0000 (+0000) Subject: (add-log-current-defun): Ignore quotes before fcn name. X-Git-Tag: emacs-19.34~2774 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0151877d7292ee1dc2305b5748090fc59faeda5;p=emacs.git (add-log-current-defun): Ignore quotes before fcn name. --- 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))