emacs/lisp/bindings.el

1 ;;; bindings.el --- define standard key bindings and some variables
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
37 ;;; and goes into etc/DOCnnn properly.
43 ;;; In defvar and defconst, there is an additional rule:
131 	  (when (and enable-multibyte-characters
153     (if (and desc (eq (cadr desc) mnemonic))
189 	    ;; it reads like a bug, and is not useful anyway.
200 Normally it displays current input method (if any activated) and
254 Normally displays the buffer percentage and, optionally, the
255 buffer size, the line number and the column number.")
258   "Mode-line control for displaying major and minor modes.")
358 text properties for face, help-echo, and local-map to it."
420 	   (binding (and selection (lookup-key mode-line-mode-menu
425 (defmacro bound-and-true-p (var)
426   "Return the value of symbol VAR if it is bound, else nil."
427   `(and (boundp (quote ,var)) ,var))
436 	      :button (:toggle . (bound-and-true-p outline-minor-mode))))
439 	      :button (:toggle . (bound-and-true-p highlight-changes-mode))))
442 	      :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
445 	      :button (:toggle . (bound-and-true-p glasses-mode))))
451 	      :button (:toggle . (bound-and-true-p flyspell-mode))))
455 	      :button (:toggle . (bound-and-true-p auto-revert-tail-mode))))
458 	      :button (:toggle . (bound-and-true-p auto-revert-mode))))
570 ;; We have base64 and md5 functions built in now.
636 (define-key global-map "\C-j" 'newline-and-indent)
657 ;; Many people are used to typing C-/ on X terminals and getting C-_.
660 ;; Richard said that we should not use C-x <uppercase letter> and I have
715 ;; Many people are used to typing C-SPC and getting C-@.
717 (define-key ctl-x-map "\C-x" 'exchange-point-and-mark)
739 ;;  (error "That function key is not bound to anything"))
861 ;; Make them behave like the non-kp keys unless otherwise bound.
988 (define-key esc-map ")" 'move-past-close-and-reindent)