[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] fix/bug-21072 0397f85 3/5: * lisp/emacs-lisp/lisp.el (mark
From: |
Marcin Borkowski |
Subject: |
[Emacs-diffs] fix/bug-21072 0397f85 3/5: * lisp/emacs-lisp/lisp.el (mark-defun): Simplify moving the point. |
Date: |
Fri, 12 May 2017 05:40:50 -0400 (EDT) |
branch: fix/bug-21072
commit 0397f85c6f9b0a5325f774e2a56e7cd85176e228
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 aa779b0), Marcin Borkowski, 2017/05/12
- [Emacs-diffs] fix/bug-21072 0397f85 3/5: * lisp/emacs-lisp/lisp.el (mark-defun): Simplify moving the point.,
Marcin Borkowski <=
- [Emacs-diffs] fix/bug-21072 aa779b0 5/5: Modify `beginning-of-defun-comments', Marcin Borkowski, 2017/05/12
- [Emacs-diffs] fix/bug-21072 6d58dda 1/5: Add elisp-tests-with-temp-buffer, a new testing macro, Marcin Borkowski, 2017/05/12
- [Emacs-diffs] fix/bug-21072 cb8fcbc 4/5: Fix elisp-tests-with-temp-buffer compilation, Marcin Borkowski, 2017/05/12
- [Emacs-diffs] fix/bug-21072 22fc917 2/5: Fix Bug#21072 and rework `mark-defun', Marcin Borkowski, 2017/05/12