[Emacs-diffs] Changes to emacs/lisp/net/tramp-util.el

[Michael Albinus]

Index: emacs/lisp/net/tramp-util.el
diff -c emacs/lisp/net/tramp-util.el:1.5 emacs/lisp/net/tramp-util.el:1.6
*** emacs/lisp/net/tramp-util.el:1.5    Wed Feb  9 15:50:37 2005
--- emacs/lisp/net/tramp-util.el        Sun Mar 20 20:00:20 2005
***************
*** 34,40 ****
  
  ;; Define a Tramp minor mode. It's intention is to redefine some keys for 
Tramp
  ;; specific functions, like compilation.
! ;; The key remapping works since Emacs 22.1 only. Unknown for XEmacs.
  
  (when (fboundp 'define-minor-mode)
  
--- 34,40 ----
  
  ;; Define a Tramp minor mode. It's intention is to redefine some keys for 
Tramp
  ;; specific functions, like compilation.
! ;; The key remapping works since Emacs 22 only. Unknown for XEmacs.
  
  (when (fboundp 'define-minor-mode)
  
***************
*** 59,68 ****
  bindings.  Otherwise, only bindings active during invocation are taken
  into account.  XEmacs menubar bindings are not changed by this."
      (if (functionp 'command-remapping)
!       ;; Emacs 22.1
        (eval
         `(define-key tramp-minor-mode-map [remap ,old-command] new-command))
!       ;; previous Emacs 21 versions.
        (mapcar
         '(lambda (x)
          (define-key tramp-minor-mode-map x new-command))
--- 59,68 ----
  bindings.  Otherwise, only bindings active during invocation are taken
  into account.  XEmacs menubar bindings are not changed by this."
      (if (functionp 'command-remapping)
!       ;; Emacs 22
        (eval
         `(define-key tramp-minor-mode-map [remap ,old-command] new-command))
!       ;; previous Emacs versions.
        (mapcar
         '(lambda (x)
          (define-key tramp-minor-mode-map x new-command))