Mercurial > emacs
changeset 68345:b10c2ebde562
(clone-buffer, clone-indirect-buffer, clone-indirect-buffer-other-window):
Use `read-buffer' instead of `read-string'. Fix prompts.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 23 Jan 2006 01:24:26 +0000 |
| parents | ffdb60daf52a |
| children | 79697c70111b |
| files | lisp/simple.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Jan 23 01:23:10 2006 +0000 +++ b/lisp/simple.el Mon Jan 23 01:24:26 2006 +0000 @@ -5035,8 +5035,8 @@ (goto-char (point-min)) (search-forward "\n\n") (forward-line 1)))) - -;; Support keyboard commands to turn on various modifiers. + +;;; Support keyboard commands to turn on various modifiers. ;; These functions -- which are not commands -- each add one modifier ;; to the following event. @@ -5101,7 +5101,7 @@ (define-key function-key-map [?\C-x ?@ ?a] 'event-apply-alt-modifier) (define-key function-key-map [?\C-x ?@ ?S] 'event-apply-shift-modifier) (define-key function-key-map [?\C-x ?@ ?c] 'event-apply-control-modifier) - + ;;;; Keypad support. ;;; Make the keypad keys act like ordinary typing keys. If people add @@ -5196,7 +5196,8 @@ (error "Cannot clone a file-visiting buffer")) (if (get major-mode 'no-clone) (error "Cannot clone a buffer in %s mode" mode-name)) - (list (if current-prefix-arg (read-string "Name: ")) + (list (if current-prefix-arg + (read-buffer "Name of new cloned buffer: " (current-buffer))) t))) (if buffer-file-name (error "Cannot clone a file-visiting buffer")) @@ -5266,7 +5267,7 @@ (if (get major-mode 'no-clone-indirect) (error "Cannot indirectly clone a buffer in %s mode" mode-name)) (list (if current-prefix-arg - (read-string "BName of indirect buffer: ")) + (read-buffer "Name of indirect buffer: " (current-buffer))) t))) (if (get major-mode 'no-clone-indirect) (error "Cannot indirectly clone a buffer in %s mode" mode-name)) @@ -5290,7 +5291,7 @@ (if (get major-mode 'no-clone-indirect) (error "Cannot indirectly clone a buffer in %s mode" mode-name)) (list (if current-prefix-arg - (read-string "BName of indirect buffer: ")) + (read-buffer "Name of indirect buffer: " (current-buffer))) t))) (let ((pop-up-windows t)) (set-buffer buffer)