changeset 22016:307fdd89bb42

(add-log-current-defun): Fix previous change--skip tab and newline also.
author Richard M. Stallman <rms@gnu.org>
date Sun, 10 May 1998 05:53:16 +0000
parents 3ace0ce90a3f
children 615e861e4bb6
files lisp/add-log.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Sun May 10 03:50:03 1998 +0000
+++ b/lisp/add-log.el	Sun May 10 05:53:16 1998 +0000
@@ -503,7 +503,7 @@
 		   (forward-sexp 1)
 		   ;; The second element is usually a symbol being defined.
 		   ;; If it is not, use the first symbol in it.
-		   (skip-chars-forward " '(")
+		   (skip-chars-forward " \tx\n'(")
 		   (buffer-substring (point)
 				     (progn (forward-sexp 1)
 					    (point)))))