/[emacs]/emacs/lisp/net/tramp-util.el
ViewVC logotype

Diff of /emacs/lisp/net/tramp-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by kfstorm, Wed Feb 9 15:50:37 2005 UTC revision 1.6 by albinus, Sun Mar 20 20:00:20 2005 UTC
# Line 34  Line 34 
34    
35  ;; Define a Tramp minor mode. It's intention is to redefine some keys for Tramp  ;; Define a Tramp minor mode. It's intention is to redefine some keys for Tramp
36  ;; specific functions, like compilation.  ;; specific functions, like compilation.
37  ;; The key remapping works since Emacs 22.1 only. Unknown for XEmacs.  ;; The key remapping works since Emacs 22 only. Unknown for XEmacs.
38    
39  (when (fboundp 'define-minor-mode)  (when (fboundp 'define-minor-mode)
40    
# Line 59  If remapping functionality for keymaps i Line 59  If remapping functionality for keymaps i
59  bindings.  Otherwise, only bindings active during invocation are taken  bindings.  Otherwise, only bindings active during invocation are taken
60  into account.  XEmacs menubar bindings are not changed by this."  into account.  XEmacs menubar bindings are not changed by this."
61      (if (functionp 'command-remapping)      (if (functionp 'command-remapping)
62          ;; Emacs 22.1          ;; Emacs 22
63          (eval          (eval
64           `(define-key tramp-minor-mode-map [remap ,old-command] new-command))           `(define-key tramp-minor-mode-map [remap ,old-command] new-command))
65        ;; previous Emacs 21 versions.        ;; previous Emacs versions.
66        (mapcar        (mapcar
67         '(lambda (x)         '(lambda (x)
68            (define-key tramp-minor-mode-map x new-command))            (define-key tramp-minor-mode-map x new-command))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26