diff options
| author | Lars Ingebrigtsen | 2016-04-27 19:52:46 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-04-27 19:52:46 +0200 |
| commit | aeb613ea95b7970e66d663ec5cba54e9ec0528fa (patch) | |
| tree | 8c6265211c19d5666944954a374cd774441d2548 /lisp | |
| parent | e1f2d14ae16342c06c052ce33b9d08cdd8ee63af (diff) | |
| download | emacs-aeb613ea95b7970e66d663ec5cba54e9ec0528fa.tar.gz emacs-aeb613ea95b7970e66d663ec5cba54e9ec0528fa.zip | |
Avoid having `C-x h' mark the prompt part of the minibuffer
* lisp/simple.el (mark-whole-buffer): Don't mark the prompt
part of the minibuffer (bug#2589).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 971f6006732..7573789ad5c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1075,7 +1075,9 @@ that uses or sets the mark." | |||
| 1075 | (interactive) | 1075 | (interactive) |
| 1076 | (push-mark (point)) | 1076 | (push-mark (point)) |
| 1077 | (push-mark (point-max) nil t) | 1077 | (push-mark (point-max) nil t) |
| 1078 | (goto-char (point-min))) | 1078 | ;; This is really `point-min' in most cases, but if we're in the |
| 1079 | ;; minibuffer, this is at the end of the prompt. | ||
| 1080 | (goto-char (minibuffer-prompt-end))) | ||
| 1079 | 1081 | ||
| 1080 | 1082 | ||
| 1081 | ;; Counting lines, one way or another. | 1083 | ;; Counting lines, one way or another. |