[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/tramp-util.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp-util.el |
Date: |
Sun, 13 Nov 2005 17:13:00 -0500 |
Index: emacs/lisp/net/tramp-util.el
diff -c emacs/lisp/net/tramp-util.el:1.9 emacs/lisp/net/tramp-util.el:1.10
*** emacs/lisp/net/tramp-util.el:1.9 Mon Jul 4 17:10:37 2005
--- emacs/lisp/net/tramp-util.el Sun Nov 13 22:12:59 2005
***************
*** 36,88 ****
;; specific functions, like compilation.
;; The key remapping works since Emacs 22 only. Unknown for XEmacs.
! (when (fboundp 'define-minor-mode)
! (defvar tramp-minor-mode-map (make-sparse-keymap)
! "Keymap for Tramp minor mode.")
! (define-minor-mode tramp-minor-mode "Tramp minor mode for utility
functions."
! :group 'tramp
! :global nil
! :init-value nil
! :lighter " Tramp"
! :keymap tramp-minor-mode-map
! (setq tramp-minor-mode
! (and tramp-minor-mode (tramp-tramp-file-p default-directory))))
!
! (add-hook 'find-file-hooks 'tramp-minor-mode t)
! (add-hook 'dired-mode-hook 'tramp-minor-mode t)
!
! (defun tramp-remap-command (old-command new-command)
! "Replaces bindings of OLD-COMMAND by NEW-COMMAND.
If remapping functionality for keymaps is defined, this happens for all
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))
! (where-is-internal old-command))))
!
! (tramp-remap-command 'compile 'tramp-compile)
! (tramp-remap-command 'recompile 'tramp-recompile)
!
! ;; XEmacs has an own mimic for menu entries
! (when (fboundp 'add-menu-button)
! (funcall 'add-menu-button
! '("Tools" "Compile")
! ["Compile..."
! (command-execute (if tramp-minor-mode 'tramp-compile 'compile))
! :active (fboundp 'compile)])
! (funcall 'add-menu-button
! '("Tools" "Compile")
! ["Repeat Compilation"
! (command-execute (if tramp-minor-mode 'tramp-recompile 'recompile))
! :active (fboundp 'compile)])))
;; Utility functions.
--- 36,94 ----
;; specific functions, like compilation.
;; The key remapping works since Emacs 22 only. Unknown for XEmacs.
! ;; Pacify byte-compiler
! (eval-when-compile
! (unless (fboundp 'define-minor-mode)
! (defalias 'define-minor-mode 'identity)
! (defvar tramp-minor-mode))
! (unless (featurep 'xemacs)
! (defalias 'add-menu-button 'identity)))
!
! (defvar tramp-minor-mode-map (make-sparse-keymap)
! "Keymap for Tramp minor mode.")
!
! (define-minor-mode tramp-minor-mode "Tramp minor mode for utility functions."
! :group 'tramp
! :global nil
! :init-value nil
! :lighter " Tramp"
! :keymap tramp-minor-mode-map
! (setq tramp-minor-mode
! (and tramp-minor-mode (tramp-tramp-file-p default-directory))))
! (add-hook 'find-file-hooks 'tramp-minor-mode t)
! (add-hook 'dired-mode-hook 'tramp-minor-mode t)
! (defun tramp-remap-command (old-command new-command)
! "Replaces bindings of OLD-COMMAND by NEW-COMMAND.
If remapping functionality for keymaps is defined, this happens for all
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))
! (where-is-internal old-command))))
!
! (tramp-remap-command 'compile 'tramp-compile)
! (tramp-remap-command 'recompile 'tramp-recompile)
!
! ;; XEmacs has an own mimic for menu entries
! (when (fboundp 'add-menu-button)
! (funcall 'add-menu-button
! '("Tools" "Compile")
! ["Compile..."
! (command-execute (if tramp-minor-mode 'tramp-compile 'compile))
! :active (fboundp 'compile)])
! (funcall 'add-menu-button
! '("Tools" "Compile")
! ["Repeat Compilation"
! (command-execute (if tramp-minor-mode 'tramp-recompile 'recompile))
! :active (fboundp 'compile)]))
;; Utility functions.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/tramp-util.el,
Michael Albinus <=