Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

Partially revert changes from bug#6157 (bug#81170, bug#45226)

Browse source 
* lisp/emacs-lisp/lisp.el (narrow-to-defun): Partially revert
changes from bug#6157 (bug#81170, bug#45226)
This commit is contained in:
Tomas Nordin 2026-06-09 22:00:26 +03:00 committed by Filipp Gunbin
parent 669ca4df18
commit 02f22865f6
1 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -756,15 +756,10 @@ Interactively, the behavior depends on `narrow-to-defun-include-comments'."
;; the function might go to the previous function.
;;
;; Therefore we first move one character forward and then call
;; `beginning-of-defun'. However now we must check that we did
;; not move into the next function.
(let ((here (point)))
(unless (eolp)
(forward-char))
(beginning-of-defun)
(when (< (point) here)
(goto-char here)
(beginning-of-defun)))
;; `beginning-of-defun'.
(unless (eolp)
(forward-char))
(beginning-of-defun)
(setq beg (point))
(end-of-defun)
(setq end (point))