projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(UU+5F03): Apply new conventions for glyph granularity.
[chise/xemacs-chise.git-]
/
lisp
/
keydefs.el
diff --git
a/lisp/keydefs.el
b/lisp/keydefs.el
index
765ee58
..
2f23834
100644
(file)
--- a/
lisp/keydefs.el
+++ b/
lisp/keydefs.el
@@
-156,6
+156,10
@@
Keymap for characters following C-c.")
(define-key global-map (vector help-char) 'help-command)
(define-key global-map 'help 'help-command)
(define-key global-map 'f1 'help-command)
(define-key global-map (vector help-char) 'help-command)
(define-key global-map 'help 'help-command)
(define-key global-map 'f1 'help-command)
+;; This is a failsafe mechanism, esp. on TTY's, in case the terminal is
+;; somewhat broken and f1 keys can't work, and backspace is redefined to
+;; do backspace.
+(define-key global-map '(meta ??) 'help-command)
;; FSFmacs indent.el
;; FSFmacs indent.el
@@
-238,7
+242,8
@@
Keymap for characters following C-c.")
(define-key global-map '(control meta -) 'negative-argument)
(define-key global-map "\C-k" 'kill-line)
(define-key global-map '(control meta -) 'negative-argument)
(define-key global-map "\C-k" 'kill-line)
-(define-key global-map '(control K) 'historical-kill-line)
+;will change like this in 21.5.
+;(define-key global-map "\M-k" 'kill-entire-line)
(define-key global-map "\C-w" 'kill-region)
(define-key global-map "\M-w" 'kill-ring-save)
(define-key global-map "\M-\C-w" 'append-next-kill)
(define-key global-map "\C-w" 'kill-region)
(define-key global-map "\M-w" 'kill-ring-save)
(define-key global-map "\M-\C-w" 'append-next-kill)
@@
-272,6
+277,10
@@
Keymap for characters following C-c.")
(define-key global-map "\M-\C-t" 'transpose-sexps)
(define-key global-map "\C-x\C-t" 'transpose-lines)
(define-key global-map "\M-\C-t" 'transpose-sexps)
(define-key global-map "\C-x\C-t" 'transpose-lines)
+;; XEmacs: much more reasonable and useful key definitions.
+(define-key global-map '(control T) 'transpose-line-down)
+(define-key global-map '(meta T) 'transpose-line-up)
+
(define-key global-map "\M-;" 'indent-for-comment)
(define-key global-map "\M-j" 'indent-new-comment-line)
(define-key global-map "\M-\C-j" 'indent-new-comment-line)
(define-key global-map "\M-;" 'indent-for-comment)
(define-key global-map "\M-j" 'indent-new-comment-line)
(define-key global-map "\M-\C-j" 'indent-new-comment-line)
@@
-328,9
+337,11
@@
Keymap for characters following C-c.")
(define-key global-map "\C-xr+" 'increment-register)
(define-key global-map "\C-xrc" 'clear-rectangle)
(define-key global-map "\C-xrk" 'kill-rectangle)
(define-key global-map "\C-xr+" 'increment-register)
(define-key global-map "\C-xrc" 'clear-rectangle)
(define-key global-map "\C-xrk" 'kill-rectangle)
+(define-key global-map "\C-xrd" 'delete-rectangle)
(define-key global-map "\C-xry" 'yank-rectangle)
(define-key global-map "\C-xro" 'open-rectangle)
(define-key global-map "\C-xrt" 'string-rectangle)
(define-key global-map "\C-xry" 'yank-rectangle)
(define-key global-map "\C-xro" 'open-rectangle)
(define-key global-map "\C-xrt" 'string-rectangle)
+(define-key global-map "\C-xrp" 'replace-rectangle)
(define-key global-map "\C-xrw" 'window-configuration-to-register)
;(define-key global-map "\C-xrf" 'frame-configuration-to-register)
(define-key global-map "\C-xrw" 'window-configuration-to-register)
;(define-key global-map "\C-xrf" 'frame-configuration-to-register)
@@
-348,6
+359,8
@@
Keymap for characters following C-c.")
(define-key global-map "\M-a" 'backward-sentence)
(define-key global-map "\M-e" 'forward-sentence)
(define-key global-map "\M-k" 'kill-sentence)
(define-key global-map "\M-a" 'backward-sentence)
(define-key global-map "\M-e" 'forward-sentence)
(define-key global-map "\M-k" 'kill-sentence)
+;will change like this in 21.5.
+;(define-key global-map "\M-K" 'kill-sentence)
;;(define-key global-map "\C-x\177" 'backward-kill-sentence)
(define-key global-map "\C-x[" 'backward-page)
;;(define-key global-map "\C-x\177" 'backward-kill-sentence)
(define-key global-map "\C-x[" 'backward-page)
@@
-638,13
+651,13
@@
Keymap for characters following C-c.")
(define-key global-map 'kp-8 'self-insert-command)
(define-key global-map 'kp-9 'self-insert-command)
(define-key global-map 'kp-8 'self-insert-command)
(define-key global-map 'kp-9 'self-insert-command)
-(define-key global-map 'select 'function-key-error)
-(define-key global-map 'print 'function-key-error)
+;(define-key global-map 'select 'function-key-error)
+;(define-key global-map 'print 'function-key-error)
(define-key global-map 'execute 'execute-extended-command)
(define-key global-map 'execute 'execute-extended-command)
-(define-key global-map 'clearline 'function-key-error)
+;(define-key global-map 'clearline 'function-key-error)
(define-key global-map 'insertline 'open-line)
(define-key global-map 'deleteline 'kill-line)
(define-key global-map 'insertline 'open-line)
(define-key global-map 'deleteline 'kill-line)
-(define-key global-map 'insertchar 'function-key-error)
+;(define-key global-map 'insertchar 'function-key-error)
(define-key global-map 'deletechar 'delete-char)
;;; keydefs.el ends here
(define-key global-map 'deletechar 'delete-char)
;;; keydefs.el ends here