mark-defun bug

["Andreas Röhler" <andreas.roehler@online.de>]

[-- Attachment #1: Type: text/plain, Size: 219 bytes --]


Hi all,

`mark-defun' misses the last char, if a definition is
followed by a buffer-end.

As this bug seems caused by a line not needed, IMO it's
fine to drop it.

Patch attached.

Thanks

Andreas Röhler

[-- Attachment #2: emacs-mark-defun.diff --]
[-- Type: text/x-diff, Size: 489 bytes --]

diff -u -b /old/lisp.el /new/lisp.el
--- /old/lisp.el	2008-03-22 01:10:59.000000000 +0100
+++ /new/lisp.el	2008-04-01 14:15:18.000000000 +0200
@@ -400,8 +400,7 @@
 	     (goto-char opoint)
 	     (end-of-defun)
 	     (push-mark (point) nil t)
-	     (beginning-of-defun))
-	   (re-search-backward "^\n" (- (point) 1) t)))))
+	     (beginning-of-defun))))))
 
 (defun narrow-to-defun (&optional arg)
   "Make text outside current defun invisible.

Diff finished.  Tue Apr  1 14:15:45 2008