mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* ange-ftp.el (ange-ftp-repaint-buffer): Give this a non-hacky

Browse source 
definition using (message nil).
	(ange-ftp-read-passwd, ange-ftp-process-filter): Uncomment out the
	calls to ange-ftp-repaint-buffer.
This commit is contained in:
Jim Blandy 1992-11-16 01:20:29 +00:00
parent 8e6bef18a1
commit 2495e5f477
1 changed files with 6 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/ange-ftp.el
View file

@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables.
;;;; ------------------------------------------------------------
(defconst ange-ftp-version "$Revision: 1.10 $")
(defconst ange-ftp-version "$Revision: 1.11 $")
(defvar ange-ftp-data-buffer-name " *ftp data*"
"Buffer name to hold directory listing data received from ftp process.")
@ -1017,7 +1017,7 @@ Optional DEFAULT is password to start with."
(if (> (length pass) 0)
(setq pass (substring pass 0 -1))))))
(message "")
;; (ange-ftp-repaint-minibuffer)
(ange-ftp-repaint-minibuffer)
pass))
(defmacro ange-ftp-generate-passwd-key (host user)
@ -1302,20 +1302,9 @@ replace the name component with NAME."
;; (setq ange-ftp-tmp-keymap (make-sparse-keymap))
;; (define-key ange-ftp-tmp-keymap "\C-m" 'exit-minibuffer)
;; (defun ange-ftp-repaint-minibuffer ()
;; "Gross hack to set minibuf_message = 0, so that the contents of the
;; minibuffer will show."
;; (if (eq (selected-window) (minibuffer-window))
;; (if (fboundp 'allocate-event)
;; ;; lemacs
;; (let ((unread-command-event (character-to-event ?\C-m
;; (allocate-event)))
;; (enable-recursive-minibuffers t))
;; (read-from-minibuffer "" nil ange-ftp-tmp-keymap nil))
;; ;; v18 GNU Emacs
;; (let ((unread-command-char ?\C-m)
;; (enable-recursive-minibuffers t))
;; (read-from-minibuffer "" nil ange-ftp-tmp-keymap nil)))))
(defun ange-ftp-repaint-minibuffer ()
"Clear any existing minibuffer message; let the minibuffer contents show."
(message nil))
(defun ange-ftp-ftp-process-buffer (host user)
"Return the name of the buffer that collects output from the ftp process
@ -1525,7 +1514,7 @@ on to ange-ftp-process-handle-line to deal with."
ange-ftp-process-result)
(progn
(ange-ftp-message "%s...done" ange-ftp-process-msg)
;; (ange-ftp-repaint-minibuffer)
(ange-ftp-repaint-minibuffer)
(setq ange-ftp-process-msg nil)))
;; is there a continuation we should be calling? if so,