diff options
| author | Jim Blandy <[email protected]> | 1993-06-21 00:51:36 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1993-06-21 00:51:36 +0000 |
| commit | 0e93321957108870f7e9d41c24425e88353f8b9e (patch) | |
| tree | f51dc2ad71892dd7a3eae2cfec6c23e5b5dcb0b8 /lisp | |
| parent | 919592c00ebae5c68a125d2c27c05b7f95a260c1 (diff) | |
* 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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/add-log.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index d121a76cdf..6c468a919e 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -267,7 +267,9 @@ Has a preference of looking backwards." (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)))))) |