Mercurial > emacs

comparison lisp/net/tramp-util.el @ 59996:aac0a33f5772

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
author Kim F. Storm <storm@cua.dk>
date Wed, 09 Feb 2005 15:50:47 +0000
parents 92796330257a
children 3ba8f94e9cfa 3ebd9bdb4fe5
comparison
equal deleted inserted replaced
59995:8f4938738427 59996:aac0a33f5772
32 (require 'compile) 32 (require 'compile)
33 (require 'tramp) 33 (require 'tramp)
34 34
35 ;; Define a Tramp minor mode. It's intention is to redefine some keys for Tramp 35 ;; Define a Tramp minor mode. It's intention is to redefine some keys for Tramp
36 ;; specific functions, like compilation. 36 ;; specific functions, like compilation.
37 ;; The key remapping works since Emacs 21.4 only. Unknown for XEmacs. 37 ;; The key remapping works since Emacs 22.1 only. Unknown for XEmacs.
38 38
39 (when (fboundp 'define-minor-mode) 39 (when (fboundp 'define-minor-mode)
40 40
41 (defvar tramp-minor-mode-map (make-sparse-keymap) 41 (defvar tramp-minor-mode-map (make-sparse-keymap)
42 "Keymap for Tramp minor mode.") 42 "Keymap for Tramp minor mode.")
57 "Replaces bindings of OLD-COMMAND by NEW-COMMAND. 57 "Replaces bindings of OLD-COMMAND by NEW-COMMAND.
58 If remapping functionality for keymaps is defined, this happens for all 58 If remapping functionality for keymaps is defined, this happens for all
59 bindings. Otherwise, only bindings active during invocation are taken 59 bindings. Otherwise, only bindings active during invocation are taken
60 into account. XEmacs menubar bindings are not changed by this." 60 into account. XEmacs menubar bindings are not changed by this."
61 (if (functionp 'command-remapping) 61 (if (functionp 'command-remapping)
62 ;; Emacs 21.4 62 ;; Emacs 22.1
63 (eval 63 (eval
64 `(define-key tramp-minor-mode-map [remap ,old-command] new-command)) 64 `(define-key tramp-minor-mode-map [remap ,old-command] new-command))
65 ;; previous Emacs 21 versions. 65 ;; previous Emacs 21 versions.
66 (mapcar 66 (mapcar
67 '(lambda (x) 67 '(lambda (x)