diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-12-14 12:18:11 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-12-14 12:18:11 +0000 |
| commit | 90c08845dffc0f558ea9feab08c4af5091141a71 (patch) | |
| tree | fffd31e31dfc851fc58ae7f371802163b6d2e0c0 /lisp/emacs-lisp/lisp.el | |
| parent | 24199fe75aa6e8842fd68d02b0f766bb5a67dd44 (diff) | |
| download | emacs-90c08845dffc0f558ea9feab08c4af5091141a71.tar.gz emacs-90c08845dffc0f558ea9feab08c4af5091141a71.tar.bz2 emacs-90c08845dffc0f558ea9feab08c4af5091141a71.zip | |
(beginning-of-defun, end-of-defun): Don't
use inhibit-mark-movement.
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 6 |
1 files 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)) |