summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/lisp.el
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2020-08-13 12:22:07 +0200
committerAndrea Corallo <akrl@sdf.org>2020-08-13 12:22:07 +0200
commit46e7613ad3b88807d25cfab3d78bf46c9e2fe13e (patch)
treea7b560c36e097660536697c9d0057c9273d779b2 /lisp/emacs-lisp/lisp.el
parentf6502f959253b8f705e324e137c2933c5a668f62 (diff)
parente9eafd22681b8e95d8d642def0512d9290564206 (diff)
downloademacs-46e7613ad3b88807d25cfab3d78bf46c9e2fe13e.tar.gz
emacs-46e7613ad3b88807d25cfab3d78bf46c9e2fe13e.tar.bz2
emacs-46e7613ad3b88807d25cfab3d78bf46c9e2fe13e.zip
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
-rw-r--r--lisp/emacs-lisp/lisp.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 043cf01d2e9..8c18557c79a 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -482,7 +482,8 @@ is called as a function to find the defun's end."
(if (looking-at "\\s<\\|\n")
(forward-line 1))))))
(funcall end-of-defun-function)
- (funcall skip)
+ (when (<= arg 1)
+ (funcall skip))
(cond
((> arg 0)
;; Moving forward.