From a0151877d7292ee1dc2305b5748090fc59faeda5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 25 Sep 1995 22:15:11 +0000 Subject: [PATCH] (add-log-current-defun): Ignore quotes before fcn name. --- lisp/add-log.el | 4 ++-- 1 file 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)) -- 2.39.2