Commit fb1b68a4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(add-log-current-defun): Fix thinko w.r.t derived-mode-p.

parent d60a4e3a
2007-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
* add-log.el (add-log-current-defun): Fix thinko w.r.t derived-mode-p.
2007-09-20 Glenn Morris <rgm@gnu.org>
* textmodes/tex-mode.el (tex-validate-buffer): Use paragraph
......
......@@ -1016,7 +1016,7 @@ Has a preference of looking backwards."
((derived-mode-p 'texinfo-mode)
(if (re-search-backward "^@node[ \t]+\\([^,\n]+\\)" nil t)
(match-string-no-properties 1)))
((derived-mode-p '(perl-mode cperl-mode))
((derived-mode-p 'perl-mode 'cperl-mode)
(if (re-search-backward "^sub[ \t]+\\([^({ \t\n]+\\)" nil t)
(match-string-no-properties 1)))
;; Emacs's autoconf-mode installs its own
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment