comparison lisp/bindings.el @ 25537:f329ed7625ee

Make some doc strings obey the make-docfile convention. (debug-ignored-errors): Remove BBDB ones.

25536:2cfdaebe325c

;;; when that string should be stored in the file etc/DOCnnn, not in core.
;;;
;;; Such strings read into Lisp as numbers (during the pure-loading phase).
;;;
;;; But you must obey certain rules to make sure the string is understood
;;; and goes into etc/DOCnnn properly.  Otherwise, the string will not go
;;; anywhere!
;;;
;;; The doc string must appear in the standard place in a call to
;;; defun, autoload, defvar or defconst.  No Lisp macros are recognized.
;;; The open-paren starting the definition must appear in column 0.
;;;

;;;  coding system for encoding text to send to buffer process (if any)."
)

(make-variable-buffer-local 'mode-line-mule-info)

(defvar mode-line-buffer-identification (purecopy '("%12b"))
  "Mode-line control for identifying the buffer being displayed.
Its default value is (\"%12b\").
Major modes that edit things other than ordinary files may change this
\(e.g. Info, Dired,...)")

(make-variable-buffer-local 'mode-line-buffer-identification)

(defvar mode-line-frame-identification '("-%F  "))

(defvar mode-line-process nil
  "Mode-line control for displaying info on process status.
Normally nil in most modes, since there is no process to display.")

(make-variable-buffer-local 'mode-line-process)

(defconst mode-line-modified

			 (overwrite-mode overwrite-mode)
			 (auto-fill-function " Fill")
			 ;; not really a minor mode...
			 (defining-kbd-macro " Def")))

(defvar mode-line-buffer-identification-keymap nil
  "Keymap for what is displayed by `mode-line-buffer-identification'.")

(defvar mode-line-minor-mode-keymap nil
  "Keymap for what is displayed by `mode-line-mode-name'.")

(defvar mode-line-mode-menu-keymap nil
  "Keymap for mode operations menu in the mode line.")

(defun mode-line-unbury-buffer ()
  "Switch to the last buffer in the buffer list that is not hidden."
  (interactive)
  (let ((list (reverse (buffer-list))))
    (while (eq (sref (buffer-name (car list)) 0) ? )
      (setq list (cdr list)))
    (switch-to-buffer (car list))))

(defun mode-line-other-buffer ()
  "Switch to the most recently selected buffer other than the current one."
  (interactive)
  (switch-to-buffer (other-buffer)))

(defun mode-line-mode-menu-1 (event)
  (interactive "e")

	   (binding (and selection (lookup-key mode-line-mode-menu
					       (vector (car selection))))))
      (if binding
	  (call-interactively binding)))))

(defun mode-line-mode-name ()
  "Return a string to display in the mode line for the current mode name."
  (let (length (result mode-name))
    (when mode-line-mouse-sensitive-p
      (let ((local-map (get-text-property 0 'local-map result))
	    (help-echo (get-text-property 0 'help-echo result)))
	(setq result (copy-sequence result))

		   (null (next-single-property-change 0 'help-echo result)))
	  (put-text-property 0 (length result)
			     'help-echo "mouse-3: minor mode menu" result))))
    result))

(defvar mode-line-mouse-sensitive-p nil
  "Non-nil means mode line has been made mouse-sensitive.")

(defun make-mode-line-mouse-sensitive ()
  (when (and window-system
	     (not mode-line-mouse-sensitive-p))
    (setq mode-line-mouse-sensitive-p t)

	"^Buffer .* doesn't exist$"
	"^There is no file to merge$"
	"^Version control package .*.el not found. Use vc.el instead$"
	
	;; cus-edit
	"^No user options have changed defaults in recent Emacs versions$"

	;; BBDB
	"^no previous record$"
	"^no next record$"))


(make-variable-buffer-local 'indent-tabs-mode)

;; We have base64 functions built in now.
(add-to-list 'features 'base64)

(define-key esc-map "\t" 'complete-symbol)

(defun complete-symbol (arg)
  "Perform tags completion on the text around point.
Completes to the set of names listed in the current tags table.
The string to complete is chosen in the same way as the default
for \\[find-tag] (which see).

With a prefix argument, this command does completion within

25537:f329ed7625ee

;;; when that string should be stored in the file etc/DOCnnn, not in core.
;;;
;;; Such strings read into Lisp as numbers (during the pure-loading phase).
;;;
;;; But you must obey certain rules to make sure the string is understood
;;; and goes into etc/DOCnnn properly.
;;;
;;; The doc string must appear in the standard place in a call to
;;; defun, autoload, defvar or defconst.  No Lisp macros are recognized.
;;; The open-paren starting the definition must appear in column 0.
;;;

;;;  coding system for encoding text to send to buffer process (if any)."
)

(make-variable-buffer-local 'mode-line-mule-info)

(defvar mode-line-buffer-identification (purecopy '("%12b")) "\
Mode-line control for identifying the buffer being displayed.
Its default value is (\"%12b\").
Major modes that edit things other than ordinary files may change this
\(e.g. Info, Dired,...)")

(make-variable-buffer-local 'mode-line-buffer-identification)

(defvar mode-line-frame-identification '("-%F  "))

(defvar mode-line-process nil "\
Mode-line control for displaying info on process status.
Normally nil in most modes, since there is no process to display.")

(make-variable-buffer-local 'mode-line-process)

(defconst mode-line-modified

			 (overwrite-mode overwrite-mode)
			 (auto-fill-function " Fill")
			 ;; not really a minor mode...
			 (defining-kbd-macro " Def")))

(defvar mode-line-buffer-identification-keymap nil "\
Keymap for what is displayed by `mode-line-buffer-identification'.")

(defvar mode-line-minor-mode-keymap nil "\
Keymap for what is displayed by `mode-line-mode-name'.")

(defvar mode-line-mode-menu-keymap nil "\
Keymap for mode operations menu in the mode line.")

(defun mode-line-unbury-buffer () "\
Switch to the last buffer in the buffer list that is not hidden."
  (interactive)
  (let ((list (reverse (buffer-list))))
    (while (eq (sref (buffer-name (car list)) 0) ? )
      (setq list (cdr list)))
    (switch-to-buffer (car list))))

(defun mode-line-other-buffer () "\
Switch to the most recently selected buffer other than the current one."
  (interactive)
  (switch-to-buffer (other-buffer)))

(defun mode-line-mode-menu-1 (event)
  (interactive "e")

	   (binding (and selection (lookup-key mode-line-mode-menu
					       (vector (car selection))))))
      (if binding
	  (call-interactively binding)))))

(defun mode-line-mode-name () "\
Return a string to display in the mode line for the current mode name."
  (let (length (result mode-name))
    (when mode-line-mouse-sensitive-p
      (let ((local-map (get-text-property 0 'local-map result))
	    (help-echo (get-text-property 0 'help-echo result)))
	(setq result (copy-sequence result))

		   (null (next-single-property-change 0 'help-echo result)))
	  (put-text-property 0 (length result)
			     'help-echo "mouse-3: minor mode menu" result))))
    result))

(defvar mode-line-mouse-sensitive-p nil "\
Non-nil means mode line has been made mouse-sensitive.")

(defun make-mode-line-mouse-sensitive ()
  (when (and window-system
	     (not mode-line-mouse-sensitive-p))
    (setq mode-line-mouse-sensitive-p t)

	"^Buffer .* doesn't exist$"
	"^There is no file to merge$"
	"^Version control package .*.el not found. Use vc.el instead$"
	
	;; cus-edit
	"^No user options have changed defaults in recent Emacs versions$"))


(make-variable-buffer-local 'indent-tabs-mode)

;; We have base64 functions built in now.
(add-to-list 'features 'base64)

(define-key esc-map "\t" 'complete-symbol)

(defun complete-symbol (arg) "\
Perform tags completion on the text around point.
Completes to the set of names listed in the current tags table.
The string to complete is chosen in the same way as the default
for \\[find-tag] (which see).

With a prefix argument, this command does completion within