# HG changeset patch # User Michael Albinus # Date 1126128216 0 # Node ID 71de05246686ea0c0e322d187b88d11b6300bff6 # Parent c136332c98dd1db5e3f7894d2a6fa40a80915202 * woman.el (top): Remap `man' command by `woman' in `woman-mode-map'. (Man-getpage-in-background-advice): Remove defadvice; it isn't necessary any longer with the remapped command. (Man-bgproc-sentinel-advice): Remove defadvice which counts formatting time only. * net/tramp.el (tramp-action-password) (tramp-multi-action-password): Compile the password prompt from `method', `user' and `host'. Sometimes it isn't obvious which password to enter, for example with remote files offered by recentf.el, or with multiple steps. Suggested by Robert Marshall . diff -r c136332c98dd -r 71de05246686 lisp/ChangeLog --- a/lisp/ChangeLog Wed Sep 07 19:54:49 2005 +0000 +++ b/lisp/ChangeLog Wed Sep 07 21:23:36 2005 +0000 @@ -1,3 +1,19 @@ +2005-09-07 Michael Albinus + + * woman.el (top): Remap `man' command by `woman' in + `woman-mode-map'. + (Man-getpage-in-background-advice): Remove defadvice; it isn't + necessary any longer with the remapped command. + (Man-bgproc-sentinel-advice): Remove defadvice which counts + formatting time only. + + * net/tramp.el (tramp-action-password) + (tramp-multi-action-password): Compile the password prompt from + `method', `user' and `host'. Sometimes it isn't obvious which + password to enter, for example with remote files offered by + recentf.el, or with multiple steps. Suggested by Robert Marshall + . + 2005-09-07 Stefan Monnier * progmodes/perl-mode.el (perl-font-lock-syntactic-keywords): diff -r c136332c98dd -r 71de05246686 lisp/net/tramp.el --- a/lisp/net/tramp.el Wed Sep 07 19:54:49 2005 +0000 +++ b/lisp/net/tramp.el Wed Sep 07 21:23:36 2005 +0000 @@ -5213,7 +5213,10 @@ (defun tramp-action-password (p multi-method method user host) "Query the user for a password." - (let ((pw-prompt (match-string 0))) + (let ((pw-prompt + (format "Password for %s " + (tramp-make-tramp-file-name + nil method user host "")))) (tramp-message 9 "Sending password") (tramp-enter-password p pw-prompt user host))) @@ -5300,8 +5303,12 @@ (defun tramp-multi-action-password (p method user host) "Query the user for a password." - (tramp-message 9 "Sending password") - (tramp-enter-password p (match-string 0) user host)) + (let ((pw-prompt + (format "Password for %s " + (tramp-make-tramp-file-name + nil method user host "")))) + (tramp-message 9 "Sending password") + (tramp-enter-password p pw-prompt user host))) (defun tramp-multi-action-succeed (p method user host) "Signal success in finding shell prompt." diff -r c136332c98dd -r 71de05246686 lisp/woman.el --- a/lisp/woman.el Wed Sep 07 19:54:49 2005 +0000 +++ b/lisp/woman.el Wed Sep 07 21:23:36 2005 +0000 @@ -1741,7 +1741,10 @@ (define-key woman-mode-map "w" 'woman) (define-key woman-mode-map "\en" 'WoMan-next-manpage) (define-key woman-mode-map "\ep" 'WoMan-previous-manpage) - (define-key woman-mode-map [M-mouse-2] 'woman-follow-word)) + (define-key woman-mode-map [M-mouse-2] 'woman-follow-word) + + ;; We don't need to call `man' when we are in `woman-mode'. + (define-key woman-mode-map [remap man] 'woman)) (defun woman-follow-word (event) "Run WoMan with word under mouse as topic. @@ -1942,25 +1945,33 @@ (defvar WoMan-Man-start-time nil "Used to record formatting time used by the `man' command.") -(defadvice Man-getpage-in-background - (around Man-getpage-in-background-advice (topic) activate) - "Use WoMan unless invoked outside a WoMan buffer or invoked explicitly. -Otherwise use Man and record start of formatting time." - (if (and (eq major-mode 'woman-mode) - (not (eq (caar command-history) 'man))) - (WoMan-getpage-in-background topic) - ;; Initiates man processing - (setq WoMan-Man-start-time (current-time)) - ad-do-it)) - -(defadvice Man-bgproc-sentinel - (after Man-bgproc-sentinel-advice activate) - ;; Terminates man processing - "Report formatting time." - (let* ((time (current-time)) - (time (+ (* (- (car time) (car WoMan-Man-start-time)) 65536) - (- (cadr time) (cadr WoMan-Man-start-time))))) - (message "Man formatting done in %d seconds" time))) +;; Both advices are disabled because "a file in Emacs should not put +;; advice on a function in Emacs" (see Info node "(elisp)Advising +;; Functions"). Counting the formatting time is useful for +;; developping, but less applicable for daily use. The advice for +;; `Man-getpage-in-background' can be discarded, because the +;; key-binding in `woman-mode-map' has been remapped to call `woman' +;; but `man'. Michael Albinus + +;; (defadvice Man-getpage-in-background +;; (around Man-getpage-in-background-advice (topic) activate) +;; "Use WoMan unless invoked outside a WoMan buffer or invoked explicitly. +;; Otherwise use Man and record start of formatting time." +;; (if (and (eq major-mode 'woman-mode) +;; (not (eq (caar command-history) 'man))) +;; (WoMan-getpage-in-background topic) +;; ;; Initiates man processing +;; (setq WoMan-Man-start-time (current-time)) +;; ad-do-it)) + +;; (defadvice Man-bgproc-sentinel +;; (after Man-bgproc-sentinel-advice activate) +;; ;; Terminates man processing +;; "Report formatting time." +;; (let* ((time (current-time)) +;; (time (+ (* (- (car time) (car WoMan-Man-start-time)) 65536) +;; (- (cadr time) (cadr WoMan-Man-start-time))))) +;; (message "Man formatting done in %d seconds" time))) ;;; Buffer handling: