/[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.4 by albinus, Sun Jan 16 13:18:31 2005 UTC revision 1.5 by kfstorm, Wed Feb 9 15:50:37 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 21.4 only. Unknown for XEmacs.  ;; The key remapping works since Emacs 22.1 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 21.4          ;; Emacs 22.1
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 21 versions.

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

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