From: Juri Linkov Date: Thu, 2 Sep 2004 09:43:38 +0000 (+0000) Subject: (beginning-of-defun, end-of-defun): X-Git-Tag: ttn-vms-21-2-B4~5110 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=017c959d5dcf46bf7b7a81974442987042c439fe;p=emacs.git (beginning-of-defun, end-of-defun): Do not push mark if inhibit-mark-movement is non-nil. --- diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 25fde86cd96..46d3d2625a1 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -176,7 +176,8 @@ If variable `beginning-of-defun-function' is non-nil, its value is called as a function to find the defun's beginning." (interactive "p") (and (eq this-command 'beginning-of-defun) - (or (eq last-command 'beginning-of-defun) (push-mark))) + (or inhibit-mark-movement (eq last-command 'beginning-of-defun) + (push-mark))) (and (beginning-of-defun-raw arg) (progn (beginning-of-line) t))) @@ -226,7 +227,8 @@ If variable `end-of-defun-function' is non-nil, its value is called as a function to find the defun's end." (interactive "p") (and (eq this-command 'end-of-defun) - (or (eq last-command 'end-of-defun) (push-mark))) + (or inhibit-mark-movement (eq last-command 'end-of-defun) + (push-mark))) (if (or (null arg) (= arg 0)) (setq arg 1)) (if end-of-defun-function (if (> arg 0)