From e717c6e8a1a0645baa8ea1a3dc965bac9fe9b540 Mon Sep 17 00:00:00 2001 From: Marcin Borkowski Date: Sun, 5 Jun 2016 08:25:36 +0200 Subject: [PATCH] Fix bug#21072 --- lisp/emacs-lisp/lisp.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index ea7cce6..4b98b80 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -505,8 +505,9 @@ mark-defun (setq beg (point)) (end-of-defun) (setq end (point)) - (while (looking-at "^\n") - (forward-line 1)) + ;; The two lines below seemingly caused bug#21072. + ;; (while (looking-at "^\n") + ;; (forward-line 1)) (if (> (point) opoint) (progn ;; We got the right defun. -- 2.8.3