Mercurial > emacs
changeset 3853:d771acf8f6ef
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 21 Jun 1993 00:51:36 +0000 |
| parents | e365900ca7e7 |
| children | ae1022bb1578 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))))))