[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.")
- [Emacs-diffs] branch fix/bug-21072 created (now 7efd2f2), Marcin Borkowski, 2017/05/09
- [Emacs-diffs] fix/bug-21072 aeed45d 3/5: * lisp/emacs-lisp/lisp.el (mark-defun): simplify moving the point,
Marcin Borkowski <=
- [Emacs-diffs] fix/bug-21072 b8fd2c2 4/5: Fix elisp-tests-with-temp-buffer compilation, Marcin Borkowski, 2017/05/09
- [Emacs-diffs] fix/bug-21072 6d58dda 1/5: Add elisp-tests-with-temp-buffer, a new testing macro, Marcin Borkowski, 2017/05/09
- [Emacs-diffs] fix/bug-21072 7efd2f2 5/5: Modify `beginning-of-defun-comments', Marcin Borkowski, 2017/05/09
- [Emacs-diffs] fix/bug-21072 c1c3403 2/5: Fix Bug#21072 and rework `mark-defun', Marcin Borkowski, 2017/05/09