From 90c08845dffc0f558ea9feab08c4af5091141a71 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 14 Dec 2004 12:18:11 +0000 Subject: [PATCH] (beginning-of-defun, end-of-defun): Don't use inhibit-mark-movement. --- lisp/emacs-lisp/lisp.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 090f793c700..82882d6c2b7 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -192,8 +192,7 @@ open-parenthesis, and point ends up at the beginning of the line. If variable `beginning-of-defun-function' is non-nil, its value is called as a function to find the defun's beginning." (interactive "p") - (or inhibit-mark-movement - (not (eq this-command 'beginning-of-defun)) + (or (not (eq this-command 'beginning-of-defun)) (eq last-command 'beginning-of-defun) (and transient-mark-mode mark-active) (push-mark)) @@ -245,8 +244,7 @@ matches the open-parenthesis that starts a defun; see function If variable `end-of-defun-function' is non-nil, its value is called as a function to find the defun's end." (interactive "p") - (or inhibit-mark-movement - (not (eq this-command 'end-of-defun)) + (or (not (eq this-command 'end-of-defun)) (eq last-command 'end-of-defun) (and transient-mark-mode mark-active) (push-mark)) -- 2.39.5