procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove duplicate Lisp definitions of define-minor-mode variables defined in C.

Browse source 
* lisp/abbrev.el (abbrev-mode):
* lisp/composite.el (auto-composition-mode):
* lisp/menu-bar.el (menu-bar-mode):
* lisp/simple.el (transient-mark-mode):
* lisp/tool-bar.el (tool-bar-mode): Adjust the define-minor-mode calls so
that they do not define the associated variables twice.
* lisp/simple.el (transient-mark-mode): Remove defvar.
* lisp/composite.el (auto-composition-mode): Make variable auto-buffer-local.
* lisp/cus-start.el: Add transient-mark-mode, menu-bar-mode, tool-bar-mode.
Handle multiple groups, and also custom-delayed-init-variables.
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Doc fix.

* src/buffer.c (syms_of_buffer) <abbrev-mode, transient-mark-mode>:
* src/frame.c (syms_of_frame) <tool-bar-mode>: Move docs here from Lisp.
This commit is contained in:
Glenn Morris 2010-10-28 20:29:29 -07:00
parent dcc029e017
commit 9d79402605
11 changed files with 81 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/cus-start.el
View file

@ -101,6 +101,9 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
:set #'(lambda (symbol value)
(set-default symbol value)
(force-mode-line-update t)))
(transient-mark-mode editing-basics boolean nil
(not noninteractive)
:initialize custom-initialize-delay)
;; callint.c
(mark-even-if-inactive editing-basics boolean)
;; callproc.c
@ -185,6 +188,8 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
(other :tag "hidden by keypress" 1))
"22.1")
(make-pointer-invisible mouse boolean "23.2")
(menu-bar-mode frames boolean)
(tool-bar-mode (frames mouse) boolean)
;; fringe.c
(overflow-newline-into-fringe fringe boolean)
;; indent.c
@ -452,11 +457,17 @@ since it could result in memory overflow and make Emacs crash."
(put symbol 'safe-local-variable (cadr prop)))
(if (setq prop (memq :risky rest))
(put symbol 'risky-local-variable (cadr prop)))
;; Note this is the _only_ initialize property we handle.
(if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay)
(push symbol custom-delayed-init-variables))
;; If this is NOT while dumping Emacs,
;; set up the rest of the customization info.
(unless purify-flag
;; Add it to the right group.
(custom-add-to-group group symbol 'custom-variable)
;; Add it to the right group(s).
(if (listp group)
(dolist (g group)
(custom-add-to-group g symbol 'custom-variable))
(custom-add-to-group group symbol 'custom-variable))
;; Set the type.
(put symbol 'custom-type type)
(put symbol 'custom-version version)