752 ) |
752 ) |
753 |
753 |
754 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
754 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
755 (message "key binding, short-keys") |
755 (message "key binding, short-keys") |
756 |
756 |
757 (global-set-key [home] 'beginning-of-line) |
757 (defun my-smart-beginning-of-line () |
758 (global-set-key [end] 'end-of-line) |
758 "Move point to beginning-of-line. If repeat command it cycle |
759 (global-set-key [C-home] 'beginning-of-buffer) |
759 position between `back-to-indentation' and `beginning-of-line'." |
760 (global-set-key [C-end] 'end-of-buffer) |
760 (interactive) |
761 (global-set-key [C-delete] 'kill-word) |
761 (if (and (eq last-command 'my-smart-beginning-of-line) |
762 (global-set-key [delete] 'delete-char) |
762 (= (line-beginning-position) (point))) |
|
763 (back-to-indentation) |
|
764 (beginning-of-line))) |
|
765 |
|
766 (global-set-key [home] 'my-smart-beginning-of-line) |
|
767 (global-set-key [end] 'end-of-line) |
|
768 (global-set-key [C-home] 'beginning-of-buffer) |
|
769 (global-set-key [C-end] 'end-of-buffer) |
|
770 (global-set-key [C-delete] 'kill-word) |
|
771 (global-set-key [delete] 'delete-char) |
763 ;; (global-set-key [backspace] 'backward-delete-char-untabify) ; not work properly in *info* mode |
772 ;; (global-set-key [backspace] 'backward-delete-char-untabify) ; not work properly in *info* mode |
764 |
773 |
765 (global-set-key [f2] 'save-buffer) |
774 (global-set-key [f2] 'save-buffer) |
766 (global-set-key [S-f6] 'rename-buffer) |
775 (global-set-key [S-f6] 'rename-buffer) |
767 (global-set-key [M-f4] 'save-buffers-kill-emacs) |
776 (global-set-key [M-f4] 'save-buffers-kill-emacs) |