.emacs-my
changeset 956 661dc3bfc076
parent 955 8900021db774
child 957 15fc17674517
equal deleted inserted replaced
955:8900021db774 956:661dc3bfc076
   664 (global-set-key [C-end]  'end-of-buffer)
   664 (global-set-key [C-end]  'end-of-buffer)
   665 (global-set-key [C-delete]  'kill-word)
   665 (global-set-key [C-delete]  'kill-word)
   666 (global-set-key [delete]     'delete-char)
   666 (global-set-key [delete]     'delete-char)
   667 ;; (global-set-key [backspace]  'backward-delete-char-untabify) ; not work properly in *info* mode
   667 ;; (global-set-key [backspace]  'backward-delete-char-untabify) ; not work properly in *info* mode
   668 
   668 
   669 ;; setting some f[1-12] keys
       
   670 (global-set-key [f1]    'help)
       
   671 (global-set-key [f2]    'save-buffer)
   669 (global-set-key [f2]    'save-buffer)
   672 (global-set-key [f4]    'ispell-buffer)
       
   673 (global-set-key [S-f6]  'rename-buffer)
   670 (global-set-key [S-f6]  'rename-buffer)
   674 (global-set-key (kbd "C-x C-k") 'kill-this-buffer)
   671 (global-set-key (kbd "C-x C-k") 'kill-this-buffer)
   675 (global-set-key [M-f4]  'save-buffers-kill-emacs)
   672 (global-set-key [M-f4]  'save-buffers-kill-emacs)
   676 (global-set-key [f6]    'toggle-truncate-lines)
   673 (global-set-key [f6]    'toggle-truncate-lines)
   677 
       
   678 ;; frames, windows manipulation, switch buffers
       
   679 (global-set-key [?\C-x right] 'next-buffer)
       
   680 (global-set-key [?\C-x left]  'previous-buffer)
       
   681 
   674 
   682 ;; Disable suspend. It ugly.
   675 ;; Disable suspend. It ugly.
   683 (when window-system
   676 (when window-system
   684   (global-set-key (kbd "C-z") nil))
   677   (global-set-key (kbd "C-z") nil))
   685 (global-set-key (kbd "C-x C-z") nil)
   678 (global-set-key (kbd "C-x C-z") nil)
   730   )
   723   )
   731  )
   724  )
   732 
   725 
   733 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   726 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   734 (message "switching, creating, selecting buffers")
   727 (message "switching, creating, selecting buffers")
       
   728 
       
   729 (global-set-key [?\C-x right] 'next-buffer)
       
   730 (global-set-key [?\C-x left]  'previous-buffer)
   735 
   731 
   736 (iswitchb-mode 1)
   732 (iswitchb-mode 1)
   737 (setq iswitchb-buffer-ignore
   733 (setq iswitchb-buffer-ignore
   738       '("^ "
   734       '("^ "
   739         "^\*Buffer"
   735         "^\*Buffer"