diff options
| author | Kim F. Storm | 2004-12-14 12:18:11 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2004-12-14 12:18:11 +0000 |
| commit | 90c08845dffc0f558ea9feab08c4af5091141a71 (patch) | |
| tree | fffd31e31dfc851fc58ae7f371802163b6d2e0c0 | |
| parent | 24199fe75aa6e8842fd68d02b0f766bb5a67dd44 (diff) | |
| download | emacs-90c08845dffc0f558ea9feab08c4af5091141a71.tar.gz emacs-90c08845dffc0f558ea9feab08c4af5091141a71.zip | |
(beginning-of-defun, end-of-defun): Don't
use inhibit-mark-movement.
| -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. | |||
| 192 | If variable `beginning-of-defun-function' is non-nil, its value | 192 | If variable `beginning-of-defun-function' is non-nil, its value |
| 193 | is called as a function to find the defun's beginning." | 193 | is called as a function to find the defun's beginning." |
| 194 | (interactive "p") | 194 | (interactive "p") |
| 195 | (or inhibit-mark-movement | 195 | (or (not (eq this-command 'beginning-of-defun)) |
| 196 | (not (eq this-command 'beginning-of-defun)) | ||
| 197 | (eq last-command 'beginning-of-defun) | 196 | (eq last-command 'beginning-of-defun) |
| 198 | (and transient-mark-mode mark-active) | 197 | (and transient-mark-mode mark-active) |
| 199 | (push-mark)) | 198 | (push-mark)) |
| @@ -245,8 +244,7 @@ matches the open-parenthesis that starts a defun; see function | |||
| 245 | If variable `end-of-defun-function' is non-nil, its value | 244 | If variable `end-of-defun-function' is non-nil, its value |
| 246 | is called as a function to find the defun's end." | 245 | is called as a function to find the defun's end." |
| 247 | (interactive "p") | 246 | (interactive "p") |
| 248 | (or inhibit-mark-movement | 247 | (or (not (eq this-command 'end-of-defun)) |
| 249 | (not (eq this-command 'end-of-defun)) | ||
| 250 | (eq last-command 'end-of-defun) | 248 | (eq last-command 'end-of-defun) |
| 251 | (and transient-mark-mode mark-active) | 249 | (and transient-mark-mode mark-active) |
| 252 | (push-mark)) | 250 | (push-mark)) |