# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 812067311 0
# Node ID 1bc6075184d7590f1f6bde202eb95c55f018ad04
# Parent  5be0696ddc1edbdaf0a960de2d33219f03a71a38
(add-log-current-defun): Ignore quotes before fcn name.

diff -r 5be0696ddc1e -r 1bc6075184d7 lisp/add-log.el
--- 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))