.emacs-my
changeset 455 434f14adcd26
parent 454 18ce601cb4fb
child 456 7b13bdbb2d0e
equal deleted inserted replaced
454:18ce601cb4fb 455:434f14adcd26
   446   )
   446   )
   447 
   447 
   448 ;; ----------------------------------------------------------------------
   448 ;; ----------------------------------------------------------------------
   449 ;; dired.
   449 ;; dired.
   450 
   450 
       
   451 (require 'dired)
       
   452 
   451 (setq dired-dwim-target t)
   453 (setq dired-dwim-target t)
   452 ;; dangerous
   454 ;; dangerous
   453 ;; (setq
   455 ;; (setq
   454 ;;  dired-recursive-copies 'top
   456 ;;  dired-recursive-copies 'top
   455 ;;  dired-recursive-deletes 'top)
   457 ;;  dired-recursive-deletes 'top)
   456 
   458 
   457 (put 'dired-find-alternate-file 'disabled nil) ; Enable 'a' command.
   459 (when (>= emacs-major-version 22)
       
   460   ;; Enable 'a' command.
       
   461   (put 'dired-find-alternate-file 'disabled nil)
       
   462   (define-key dired-mode-map (kbd "<return>")
       
   463     'dired-find-alternate-file)
       
   464   (define-key dired-mode-map (kbd "<backspace>")
       
   465     (lambda () (interactive) (find-alternate-file "..")))
       
   466   )
   458 
   467 
   459 ;; ----------------------------------------------------------------------
   468 ;; ----------------------------------------------------------------------
   460 ;; compression, archive.
   469 ;; compression, archive.
   461 
   470 
   462 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
   471 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode.