# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 740623896 0
# Node ID d771acf8f6ef7214459af0cd4938abfbc6cac64d
# Parent  e365900ca7e73b86cf09f7e4933be9413d9e6763
	* add-log.el (add-log-current-defun): To find the name of the
	function being defined in emacs-lisp-mode, lisp-mode, and
	scheme-mode, skip an opening paren and an s-expression, instead of
	just one word.  This allows us to properly recognize things like
	define-key and define-macro.

diff -r e365900ca7e7 -r d771acf8f6ef lisp/add-log.el
--- a/lisp/add-log.el	Mon Jun 21 00:45:17 1993 +0000
+++ b/lisp/add-log.el	Mon Jun 21 00:51:36 1993 +0000
@@ -267,7 +267,9 @@
 			  (progn (forward-sexp -1)
 				 (>= location (point))))
 		     (progn
-		       (forward-word 1)
+		       (if (looking-at "\\s(")
+			   (forward-char 1))
+		       (forward-sexp 1)
 		       (skip-chars-forward " ")
 		       (buffer-substring (point)
 					 (progn (forward-sexp 1) (point))))))