[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] fix/bug-21072 87268bc 5/5: Simplification due to Noam Post
From: |
Marcin Borkowski |
Subject: |
[Emacs-diffs] fix/bug-21072 87268bc 5/5: Simplification due to Noam Postavsky |
Date: |
Fri, 21 Apr 2017 08:26:44 -0400 (EDT) |
branch: fix/bug-21072
commit 87268bcce47d1f71af5ae9b32f4b79134119476e
Author: Marcin Borkowski <address@hidden>
Commit: Marcin Borkowski <address@hidden>
Simplification due to Noam Postavsky
---
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 87268bc), Marcin Borkowski, 2017/04/21
- [Emacs-diffs] fix/bug-21072 f6d0fe7 1/5: Add elisp-tests-with-temp-buffer, a new testing macro, Marcin Borkowski, 2017/04/21
- [Emacs-diffs] fix/bug-21072 87268bc 5/5: Simplification due to Noam Postavsky,
Marcin Borkowski <=
- [Emacs-diffs] fix/bug-21072 52477f4 4/5: Fix entry in NEWS, Marcin Borkowski, 2017/04/21
- [Emacs-diffs] fix/bug-21072 b26f400 3/5: Delete unnecessary entry from NEWS, Marcin Borkowski, 2017/04/21
- [Emacs-diffs] fix/bug-21072 4216827 2/5: Fix Bug#21072 and rework `mark-defun', Marcin Borkowski, 2017/04/21