.emacs-my
changeset 457 188efe1c6f59
parent 456 7b13bdbb2d0e
child 458 48aa731d00d8
equal deleted inserted replaced
456:7b13bdbb2d0e 457:188efe1c6f59
   386 (global-set-key [f6]    'toggle-truncate-lines)
   386 (global-set-key [f6]    'toggle-truncate-lines)
   387 
   387 
   388 ;; frames, windows manipulation, switch buffers
   388 ;; frames, windows manipulation, switch buffers
   389 (global-set-key [?\C-x right] 'next-buffer)
   389 (global-set-key [?\C-x right] 'next-buffer)
   390 (global-set-key [?\C-x left]  'previous-buffer)
   390 (global-set-key [?\C-x left]  'previous-buffer)
   391 
       
   392 ;; I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", so always use find-file,
       
   393 ;; because when file if directory find-file load dired, if regular file open it.
       
   394 (global-set-key (kbd "C-x C-f") 'find-file)
       
   395 (global-set-key (kbd "C-x C-d") 'find-file)
       
   396 (global-set-key (kbd "C-x d") 'find-file)
       
   397 
   391 
   398 (global-set-key (kbd "\e\eg") 'goto-line)
   392 (global-set-key (kbd "\e\eg") 'goto-line)
   399 (global-set-key (kbd "\e\er") 'query-replace-regexp)
   393 (global-set-key (kbd "\e\er") 'query-replace-regexp)
   400 
   394 
   401 ;; Disable suspend. It ugly.
   395 ;; Disable suspend. It ugly.
   447 
   441 
   448 ;; ----------------------------------------------------------------------
   442 ;; ----------------------------------------------------------------------
   449 ;; dired.
   443 ;; dired.
   450 
   444 
   451 (require 'dired)
   445 (require 'dired)
       
   446 
       
   447 ;; I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", so always use find-file,
       
   448 ;; because when file if directory find-file load dired, if regular file open it.
       
   449 (global-set-key (kbd "C-x C-f") 'find-file)
       
   450 (global-set-key (kbd "C-x C-d") 'find-file)
       
   451 (global-set-key (kbd "C-x d") 'find-file)
   452 
   452 
   453 (setq dired-dwim-target t)
   453 (setq dired-dwim-target t)
   454 ;; dangerous
   454 ;; dangerous
   455 ;; (setq
   455 ;; (setq
   456 ;;  dired-recursive-copies 'top
   456 ;;  dired-recursive-copies 'top