emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] fix/bug-21072 aeed45d 3/5: * lisp/emacs-lisp/lisp.el (mark


From: Marcin Borkowski
Subject: [Emacs-diffs] fix/bug-21072 aeed45d 3/5: * lisp/emacs-lisp/lisp.el (mark-defun): simplify moving the point
Date: Tue, 9 May 2017 08:35:46 -0400 (EDT)

branch: fix/bug-21072
commit aeed45dad11bf3b37a29d1a7ddfd2521d921030b
Author: Noam Postavsky <address@hidden>
Commit: Marcin Borkowski <address@hidden>

    * lisp/emacs-lisp/lisp.el (mark-defun): simplify moving the point
---
 lisp/emacs-lisp/lisp.el | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index e74e247..71c27d0 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -569,13 +569,9 @@ the one(s) already marked."
                                         ; 
https://lists.gnu.org/archive/html/bug-gnu-emacs/2017-02/msg00196.html
                     (beginning-of-defun (1- (- arg))))
                   (push-mark end nil t))))))
-  (let (nbobp)
-    (while (progn
-             (setq nbobp (zerop (forward-line -1)))
-             (and (looking-at "^\\s-*$")
-                  nbobp)))
-    (when nbobp
-      (forward-line 1))))
+  (skip-chars-backward "[:space:]\n")
+  (unless (bobp)
+    (forward-line 1)))
 
 (defvar narrow-to-defun-include-comments nil
   "If non-nil, `narrow-to-defun' will also show comments preceding the defun.")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]