mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

(end-of-defun): Consider the ".*\n" after the end of

Browse source 
the function as being part of the function.
This commit is contained in:
Stefan Monnier 2009-02-19 16:55:24 +00:00
parent 7b96ff9a00
commit f2a8252af4
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,6 +1,11 @@
2009-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/lisp.el (end-of-defun): Consider the ".*\n" after the end of
the function as being part of the function.
2009-02-19 Nick Roberts <nickrob@snap.net.nz>
* progmodes/compile.el (compilation-error-regexp-alist-alist):
* progmodes/compile.el (compilation-error-regexp-alist-alist):
Move entry for maven (alphabetical order).
2009-02-19 Glenn Morris <rgm@gnu.org>

8
lisp/emacs-lisp/lisp.el
View file

@ -345,6 +345,14 @@ is called as a function to find the defun's end."
(let ((pos (point))
(beg (progn (end-of-line 1) (beginning-of-defun-raw 1) (point))))
(funcall end-of-defun-function)
;; When comparing point against pos, we want to consider that if
;; point was right after the end of the function, it's still
;; considered as "in that function".
;; E.g. `eval-defun' from right after the last close-paren.
(unless (bolp)
(skip-chars-forward " \t")
(if (looking-at "\\s<\\|\n")
(forward-line 1)))
(cond
((> arg 0)
;; Moving forward.