Mercurial > emacs

changeset 13086:1bc6075184d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-log-current-defun): Ignore quotes before fcn name.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 Sep 1995 22:15:11 +0000
parents 5be0696ddc1e
children 226c90611902
files lisp/add-log.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Mon Sep 25 19:50:22 1995 +0000
+++ b/lisp/add-log.el	Mon Sep 25 22:15:11 1995 +0000
@@ -328,7 +328,7 @@
 	(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 @@
 		       (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))