*** /Users/steve/cvsroot/emacs/lisp/dired-x.el.~1.91.~ 2008-05-06 17:54:02.000000000 +0200 --- /Users/steve/cvsroot/emacs/lisp/dired-x.el 2008-05-08 14:24:58.000000000 +0200 *************** *** 59,65 **** ;; ;; dired-bind-vm ;; dired-vm-read-only-folders - ;; dired-bind-jump ;; dired-bind-info ;; dired-bind-man ;; dired-x-hands-off-my-keys --- 59,64 ---- *************** *** 128,138 **** :type 'boolean :group 'dired-keys) - (defcustom dired-bind-jump t - "*Non-nil means bind `dired-jump' to C-x C-j, otherwise do not." - :type 'boolean - :group 'dired-keys) - (defcustom dired-bind-man t "*Non-nil means bind `dired-man' to \"N\" in dired-mode, otherwise do not." :type 'boolean --- 127,132 ---- *************** *** 324,335 **** :help "Enable or disable omitting \"uninteresting\" files") 'dashes))) - ;;; GLOBAL BINDING. - (if dired-bind-jump - (progn - (define-key global-map "\C-x\C-j" 'dired-jump) - (define-key global-map "\C-x4\C-j" 'dired-jump-other-window))) - ;;; Install into appropriate hooks. --- 318,323 ---- *************** *** 351,357 **** For more features, see variables `dired-bind-vm' - `dired-bind-jump' `dired-bind-info' `dired-bind-man' `dired-vm-read-only-folders' --- 339,344 ---- *************** *** 496,501 **** --- 483,489 ---- ;;; JUMP. + ;;;###autoload (define-key ctl-x-map "\C-j" 'dired-jump) ;;;###autoload (defun dired-jump (&optional other-window) "Jump to dired buffer corresponding to current buffer. *************** *** 530,535 **** --- 518,525 ---- (dired-omit-mode) (dired-goto-file file)))))))) + ;;;###autoload (define-key ctl-x-4-map "\C-j" 'dired-jump-other-window) + ;;;###autoload (defun dired-jump-other-window () "Like \\[dired-jump] (`dired-jump') but in other window." (interactive) *************** *** 1751,1757 **** (list 'dired-bind-vm 'dired-vm-read-only-folders - 'dired-bind-jump 'dired-bind-info 'dired-bind-man 'dired-find-subdir --- 1741,1746 ----