comparison lisp/files.el @ 94248:63d5fa94ea09

(read-buffer-to-switch): New function. (switch-to-buffer-other-window, switch-to-buffer-other-frame): Change interactive spec to call read-buffer-to-switch instead of using the letter "B".

94247:57c8f6a6456a

	 (default-file-name-coding-system nil)
	 (locale-coding-system nil))
    (rename-file encoded new-encoded ok-if-already-exists)
    newname))

(defun switch-to-buffer-other-window (buffer &optional norecord)
  "Select buffer BUFFER in another window.
If BUFFER does not identify an existing buffer, then this function
creates a buffer with that name.

do not put this buffer at the front of the list of recently selected ones.
This function returns the buffer it switched to.

This uses the function `display-buffer' as a subroutine; see its
documentation for additional customization information."
  (interactive "BSwitch to buffer in other window: ")
  (let ((pop-up-windows t)
	;; Don't let these interfere.
	same-window-buffer-names same-window-regexps)
    (pop-to-buffer buffer t norecord)))

do not put this buffer at the front of the list of recently selected ones.
This function returns the buffer it switched to.

This uses the function `display-buffer' as a subroutine; see its
documentation for additional customization information."
  (interactive "BSwitch to buffer in other frame: ")
  (let ((pop-up-frames t)
	same-window-buffer-names same-window-regexps)
    (prog1
	(pop-to-buffer buffer t norecord)
      (raise-frame (window-frame (selected-window))))))

94248:63d5fa94ea09

	 (default-file-name-coding-system nil)
	 (locale-coding-system nil))
    (rename-file encoded new-encoded ok-if-already-exists)
    newname))

(defun read-buffer-to-switch (prompt)
  "Read the name of a buffer to switch to and return as a string.
It is intended for `switch-to-buffer' family of commands since they
need to omit the name of current buffer from the list of complations
and default values."
  (minibuffer-with-setup-hook
      (lambda ()
	(set (make-local-variable 'minibuffer-completion-table)
	     (internal-complete-buffer-except (other-buffer (current-buffer) t))))
    (read-buffer prompt (other-buffer (current-buffer)))))

(defun switch-to-buffer-other-window (buffer &optional norecord)
  "Select buffer BUFFER in another window.
If BUFFER does not identify an existing buffer, then this function
creates a buffer with that name.

do not put this buffer at the front of the list of recently selected ones.
This function returns the buffer it switched to.

This uses the function `display-buffer' as a subroutine; see its
documentation for additional customization information."
  (interactive
   (list (read-buffer-to-switch "Switch to buffer in other window: ")))
  (let ((pop-up-windows t)
	;; Don't let these interfere.
	same-window-buffer-names same-window-regexps)
    (pop-to-buffer buffer t norecord)))

do not put this buffer at the front of the list of recently selected ones.
This function returns the buffer it switched to.

This uses the function `display-buffer' as a subroutine; see its
documentation for additional customization information."
  (interactive
   (list (read-buffer-to-switch "Switch to buffer in other frame: ")))
  (let ((pop-up-frames t)
	same-window-buffer-names same-window-regexps)
    (prog1
	(pop-to-buffer buffer t norecord)
      (raise-frame (window-frame (selected-window))))))