procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/lisp.el (mark-defun): Simplify moving the point.

Browse source
This commit is contained in:
Noam Postavsky 2017-04-20 14:07:19 +02:00 • committed by Marcin Borkowski
parent 22fc91704b
commit 0397f85c6f
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/lisp.el
View file

@ -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.")