Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
;;; cus-start.el --- define customization properties of builtins -*- lexical-binding:t -*-
|
2012-05-01 21:06:59 +00:00
|
|
|
|
|
2018-01-01 08:21:42 +00:00
|
|
|
|
;; Copyright (C) 1997, 1999-2018 Free Software Foundation, Inc.
|
2012-05-01 21:06:59 +00:00
|
|
|
|
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
|
|
|
|
|
|
;; Keywords: internal
|
2010-08-29 16:17:13 +00:00
|
|
|
|
;; Package: emacs
|
1997-04-12 17:51:31 +00:00
|
|
|
|
|
1997-04-21 03:53:02 +00:00
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1997-04-21 03:53:02 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
|
;; (at your option) any later version.
|
1997-04-21 03:53:02 +00:00
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2017-09-13 22:52:52 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
1997-04-21 03:53:02 +00:00
|
|
|
|
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;;; Commentary:
|
2012-05-01 21:06:59 +00:00
|
|
|
|
|
1997-05-31 00:54:10 +00:00
|
|
|
|
;; This file adds customize support for built-in variables.
|
1997-04-12 17:51:31 +00:00
|
|
|
|
|
1997-05-31 00:54:10 +00:00
|
|
|
|
;; While dumping Emacs, this file is loaded, but it only records
|
|
|
|
|
|
;; the standard values; it does not do the rest of the job.
|
|
|
|
|
|
;; Later on, if the user makes a customization buffer,
|
|
|
|
|
|
;; this file is loaded again with (require 'cus-start);
|
|
|
|
|
|
;; then it does the whole job.
|
1997-04-12 17:51:31 +00:00
|
|
|
|
|
1997-05-31 00:54:10 +00:00
|
|
|
|
;;; Code:
|
1997-04-12 17:51:31 +00:00
|
|
|
|
|
Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
(defun minibuffer-prompt-properties--setter (symbol value)
|
|
|
|
|
|
(set-default symbol value)
|
|
|
|
|
|
(if (memq 'cursor-intangible value)
|
|
|
|
|
|
(add-hook 'minibuffer-setup-hook 'cursor-intangible-mode)
|
|
|
|
|
|
;; Removing it is a bit trickier since it could have been added by someone
|
|
|
|
|
|
;; else as well, so let's just not bother.
|
|
|
|
|
|
))
|
|
|
|
|
|
|
2010-10-31 22:47:12 +00:00
|
|
|
|
;; Elements of this list have the form:
|
|
|
|
|
|
;; SYMBOL GROUP TYPE VERSION REST...
|
|
|
|
|
|
;; SYMBOL is the name of the variable.
|
|
|
|
|
|
;; GROUP is the custom group to which it belongs (may also be a list
|
|
|
|
|
|
;; of groups)
|
|
|
|
|
|
;; TYPE is the defcustom :type.
|
|
|
|
|
|
;; VERSION is the defcustom :version (or nil).
|
|
|
|
|
|
;; REST is a set of :KEYWORD VALUE pairs. Accepted :KEYWORDs are:
|
|
|
|
|
|
;; :standard - standard value for SYMBOL (else use current value)
|
|
|
|
|
|
;; :set - custom-set property
|
|
|
|
|
|
;; :risky - risky-local-variable property
|
|
|
|
|
|
;; :safe - safe-local-variable property
|
|
|
|
|
|
;; :tag - custom-tag property
|
2016-04-30 15:57:57 +00:00
|
|
|
|
(let (standard
|
|
|
|
|
|
native-p prop propval
|
Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
;; This function turns a value
|
|
|
|
|
|
;; into an expression which produces that value.
|
|
|
|
|
|
(quoter (lambda (sexp)
|
|
|
|
|
|
;; FIXME: We'd like to use macroexp-quote here, but cus-start
|
|
|
|
|
|
;; is loaded too early in loadup.el for that.
|
|
|
|
|
|
(if (or (memq sexp '(t nil))
|
|
|
|
|
|
(keywordp sexp)
|
|
|
|
|
|
(and (listp sexp)
|
|
|
|
|
|
(memq (car sexp) '(lambda)))
|
|
|
|
|
|
(stringp sexp)
|
|
|
|
|
|
(numberp sexp))
|
|
|
|
|
|
sexp
|
2016-04-30 15:57:57 +00:00
|
|
|
|
(list 'quote sexp))))
|
|
|
|
|
|
(cursor-type-types
|
|
|
|
|
|
'(choice
|
|
|
|
|
|
(const :tag "Frame default" t)
|
|
|
|
|
|
(const :tag "Filled box" box)
|
|
|
|
|
|
(const :tag "Hollow cursor" hollow)
|
|
|
|
|
|
(const :tag "Vertical bar" bar)
|
|
|
|
|
|
(cons :tag "Vertical bar with specified width"
|
|
|
|
|
|
(const bar) integer)
|
|
|
|
|
|
(const :tag "Horizontal bar" hbar)
|
|
|
|
|
|
(cons :tag "Horizontal bar with specified width"
|
|
|
|
|
|
(const hbar) integer)
|
|
|
|
|
|
(const :tag "None "nil))))
|
Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
(pcase-dolist
|
|
|
|
|
|
(`(,symbol ,group ,type ,version . ,rest)
|
2016-04-30 15:57:57 +00:00
|
|
|
|
`(;; alloc.c
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(gc-cons-threshold alloc integer)
|
2012-05-02 13:00:29 +00:00
|
|
|
|
(gc-cons-percentage alloc float)
|
2005-02-14 23:44:07 +00:00
|
|
|
|
(garbage-collection-messages alloc boolean)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; buffer.c
|
2016-04-30 15:57:57 +00:00
|
|
|
|
(cursor-type display ,cursor-type-types)
|
2007-12-19 17:06:28 +00:00
|
|
|
|
(mode-line-format mode-line sexp) ;Hard to do right.
|
* subr.el (default-mode-line-format, default-header-line-format)
(default-line-spacing, default-abbrev-mode, default-ctl-arrow)
(default-direction-reversed, default-truncate-lines)
(default-left-margin, default-tab-width, default-case-fold-search)
(default-left-margin-width, default-right-margin-width)
(default-left-fringe-width, default-right-fringe-width)
(default-fringes-outside-margins, default-scroll-bar-width)
(default-vertical-scroll-bar, default-indicate-empty-lines)
(default-indicate-buffer-boundaries, default-fringe-indicator-alist)
(default-fringe-cursor-alist, default-scroll-up-aggressively)
(default-scroll-down-aggressively, default-fill-column)
(default-cursor-type, default-buffer-file-type)
(default-cursor-in-non-selected-windows)
(default-buffer-file-coding-system, default-major-mode)
(default-enable-multibyte-characters): Mark as obsolete.
* cus-start.el (default-major-mode): Customize `major-mode' instead.
(enable-multibyte-characters): Not customizable any more.
2009-08-27 04:24:00 +00:00
|
|
|
|
(major-mode internal function)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(case-fold-search matching boolean)
|
|
|
|
|
|
(fill-column fill integer)
|
|
|
|
|
|
(left-margin fill integer)
|
|
|
|
|
|
(tab-width editing-basics integer)
|
|
|
|
|
|
(ctl-arrow display boolean)
|
|
|
|
|
|
(truncate-lines display boolean)
|
2008-06-26 19:29:43 +00:00
|
|
|
|
(word-wrap display boolean)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(selective-display-ellipses display boolean)
|
2006-03-12 14:35:31 +00:00
|
|
|
|
(indicate-empty-lines fringe boolean)
|
2005-08-01 17:20:04 +00:00
|
|
|
|
(indicate-buffer-boundaries
|
|
|
|
|
|
fringe
|
|
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "No indicators" nil)
|
|
|
|
|
|
(const :tag "On left, with arrows" left)
|
|
|
|
|
|
(const :tag "On right, with arrows" right)
|
2005-08-02 02:00:20 +00:00
|
|
|
|
(set :tag "Pick your own design"
|
|
|
|
|
|
:value ((t . nil))
|
|
|
|
|
|
:format "%{%t%}:\n%v\n%d"
|
|
|
|
|
|
:doc "You can specify a default and then override it \
|
|
|
|
|
|
for individual indicators.
|
|
|
|
|
|
Leaving \"Default\" unchecked is equivalent with specifying a default of
|
|
|
|
|
|
\"Do not show\"."
|
|
|
|
|
|
(choice :tag "Default"
|
|
|
|
|
|
:value (t . nil)
|
|
|
|
|
|
(const :tag "Do not show" (t . nil))
|
|
|
|
|
|
(const :tag "On the left" (t . left))
|
|
|
|
|
|
(const :tag "On the right" (t . right)))
|
|
|
|
|
|
(choice :tag "Top"
|
|
|
|
|
|
:value (top . left)
|
|
|
|
|
|
(const :tag "Do not show" (top . nil))
|
|
|
|
|
|
(const :tag "On the left" (top . left))
|
|
|
|
|
|
(const :tag "On the right" (top . right)))
|
|
|
|
|
|
(choice :tag "Bottom"
|
|
|
|
|
|
:value (bottom . left)
|
|
|
|
|
|
(const :tag "Do not show" (bottom . nil))
|
|
|
|
|
|
(const :tag "On the left" (bottom . left))
|
|
|
|
|
|
(const :tag "On the right" (bottom . right)))
|
|
|
|
|
|
(choice :tag "Up arrow"
|
|
|
|
|
|
:value (up . left)
|
|
|
|
|
|
(const :tag "Do not show" (up . nil))
|
|
|
|
|
|
(const :tag "On the left" (up . left))
|
|
|
|
|
|
(const :tag "On the right" (up . right)))
|
|
|
|
|
|
(choice :tag "Down arrow"
|
|
|
|
|
|
:value (down . left)
|
|
|
|
|
|
(const :tag "Do not show" (down . nil))
|
|
|
|
|
|
(const :tag "On the left" (down . left))
|
|
|
|
|
|
(const :tag "On the right" (down . right))))
|
2006-03-12 14:35:31 +00:00
|
|
|
|
(other :tag "On left, no arrows" t)))
|
2002-12-23 17:52:56 +00:00
|
|
|
|
(scroll-up-aggressively windows
|
Omit buffer_slot_type_mismatch and use generic predicates to enforce
the type of per-buffer values where appropriate.
* src/lisp.h (struct Lisp_Buffer_Objfwd): Rename slottype member to
predicate, which is how it's really used now. Adjust comment.
* src/buffer.h (buffer_slot_type_mismatch): Remove prototype.
* src/buffer.c (buffer_slot_type_mismatch): Remove.
(DEFVAR_PER_BUFFER, defvar_per_buffer): Rename type argument to
predicate. Adjust comment.
(syms_of_buffer): Use Qsymbolp for major-mode. Use Qintegerp for
fill-column, left-margin, tab-width, buffer-saved-size,
left-margin-width, right-margin-width, left-fringe-width,
right-fringe-width, scroll-bar-width and buffer-display-count.
Use Qstringp for default-directory, buffer-file-name,
buffer-file-truename and buffer-auto-save-file-name. Use Qfloatp for
scroll-up-aggressively and scroll-down-aggressively. Use Qnumberp for
line-spacing.
* src/data.c (store_symval_forwarding): Adjust to call the predicate.
* lisp/cus-start.el (toplevel): Only allow float values for
scroll-up-aggressively and scroll-down-aggressively.
Allow any number for line-spacing.
2013-01-10 10:30:16 +00:00
|
|
|
|
(choice (const :tag "off" nil) float)
|
2002-12-23 17:52:56 +00:00
|
|
|
|
"21.1")
|
|
|
|
|
|
(scroll-down-aggressively windows
|
Omit buffer_slot_type_mismatch and use generic predicates to enforce
the type of per-buffer values where appropriate.
* src/lisp.h (struct Lisp_Buffer_Objfwd): Rename slottype member to
predicate, which is how it's really used now. Adjust comment.
* src/buffer.h (buffer_slot_type_mismatch): Remove prototype.
* src/buffer.c (buffer_slot_type_mismatch): Remove.
(DEFVAR_PER_BUFFER, defvar_per_buffer): Rename type argument to
predicate. Adjust comment.
(syms_of_buffer): Use Qsymbolp for major-mode. Use Qintegerp for
fill-column, left-margin, tab-width, buffer-saved-size,
left-margin-width, right-margin-width, left-fringe-width,
right-fringe-width, scroll-bar-width and buffer-display-count.
Use Qstringp for default-directory, buffer-file-name,
buffer-file-truename and buffer-auto-save-file-name. Use Qfloatp for
scroll-up-aggressively and scroll-down-aggressively. Use Qnumberp for
line-spacing.
* src/data.c (store_symval_forwarding): Adjust to call the predicate.
* lisp/cus-start.el (toplevel): Only allow float values for
scroll-up-aggressively and scroll-down-aggressively.
Allow any number for line-spacing.
2013-01-10 10:30:16 +00:00
|
|
|
|
(choice (const :tag "off" nil) float)
|
2002-12-23 17:52:56 +00:00
|
|
|
|
"21.1")
|
Omit buffer_slot_type_mismatch and use generic predicates to enforce
the type of per-buffer values where appropriate.
* src/lisp.h (struct Lisp_Buffer_Objfwd): Rename slottype member to
predicate, which is how it's really used now. Adjust comment.
* src/buffer.h (buffer_slot_type_mismatch): Remove prototype.
* src/buffer.c (buffer_slot_type_mismatch): Remove.
(DEFVAR_PER_BUFFER, defvar_per_buffer): Rename type argument to
predicate. Adjust comment.
(syms_of_buffer): Use Qsymbolp for major-mode. Use Qintegerp for
fill-column, left-margin, tab-width, buffer-saved-size,
left-margin-width, right-margin-width, left-fringe-width,
right-fringe-width, scroll-bar-width and buffer-display-count.
Use Qstringp for default-directory, buffer-file-name,
buffer-file-truename and buffer-auto-save-file-name. Use Qfloatp for
scroll-up-aggressively and scroll-down-aggressively. Use Qnumberp for
line-spacing.
* src/data.c (store_symval_forwarding): Adjust to call the predicate.
* lisp/cus-start.el (toplevel): Only allow float values for
scroll-up-aggressively and scroll-down-aggressively.
Allow any number for line-spacing.
2013-01-10 10:30:16 +00:00
|
|
|
|
(line-spacing display (choice (const :tag "none" nil) number)
|
2008-01-11 09:59:48 +00:00
|
|
|
|
"22.1")
|
2010-10-24 00:58:22 +00:00
|
|
|
|
(cursor-in-non-selected-windows
|
2016-04-30 15:57:57 +00:00
|
|
|
|
cursor ,cursor-type-types nil
|
2010-10-31 18:26:54 +00:00
|
|
|
|
:tag "Cursor In Non-selected Windows"
|
2011-03-08 04:34:31 +00:00
|
|
|
|
:set (lambda (symbol value)
|
|
|
|
|
|
(set-default symbol value)
|
|
|
|
|
|
(force-mode-line-update t)))
|
2010-10-29 03:29:29 +00:00
|
|
|
|
(transient-mark-mode editing-basics boolean nil
|
2010-10-31 18:26:54 +00:00
|
|
|
|
:standard (not noninteractive)
|
2010-10-30 02:27:44 +00:00
|
|
|
|
:initialize custom-initialize-delay
|
|
|
|
|
|
:set custom-set-minor-mode)
|
2011-08-23 15:21:19 +00:00
|
|
|
|
(bidi-paragraph-direction
|
|
|
|
|
|
paragraphs
|
|
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Left to Right" left-to-right)
|
|
|
|
|
|
(const :tag "Right to Left" right-to-left)
|
2011-08-23 15:53:46 +00:00
|
|
|
|
(const :tag "Dynamic, according to paragraph text" nil))
|
|
|
|
|
|
"24.1")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; callint.c
|
|
|
|
|
|
(mark-even-if-inactive editing-basics boolean)
|
|
|
|
|
|
;; callproc.c
|
|
|
|
|
|
(shell-file-name execute file)
|
|
|
|
|
|
(exec-path execute
|
2005-07-07 22:04:28 +00:00
|
|
|
|
(repeat (choice (const :tag "default directory" nil)
|
2015-04-20 21:40:32 +00:00
|
|
|
|
(directory :format "%v")))
|
|
|
|
|
|
nil
|
|
|
|
|
|
:standard
|
2016-10-17 01:56:06 +00:00
|
|
|
|
(mapcar (lambda (f)
|
|
|
|
|
|
(if f (directory-file-name f)
|
|
|
|
|
|
"."))
|
2015-04-20 21:40:32 +00:00
|
|
|
|
(append (parse-colon-path (getenv "PATH"))
|
|
|
|
|
|
(list exec-directory))))
|
2012-05-02 13:00:29 +00:00
|
|
|
|
(exec-suffixes execute (repeat string))
|
2002-05-20 15:04:44 +00:00
|
|
|
|
;; charset.c
|
2004-01-30 04:52:43 +00:00
|
|
|
|
(charset-map-path installation
|
|
|
|
|
|
(repeat (directory :format "%v")))
|
1999-01-11 21:30:00 +00:00
|
|
|
|
;; coding.c
|
|
|
|
|
|
(inhibit-eol-conversion mule boolean)
|
2015-06-07 23:47:45 +00:00
|
|
|
|
(enable-character-translation mule boolean)
|
1999-01-27 10:11:51 +00:00
|
|
|
|
(eol-mnemonic-undecided mule string)
|
2012-04-10 07:19:38 +00:00
|
|
|
|
;; startup.el fiddles with the values. IMO, would be
|
|
|
|
|
|
;; simpler to just use #ifdefs in coding.c.
|
|
|
|
|
|
(eol-mnemonic-unix mule string nil
|
|
|
|
|
|
:standard
|
|
|
|
|
|
(if (memq system-type '(ms-dos windows-nt))
|
|
|
|
|
|
"(Unix)" ":"))
|
|
|
|
|
|
(eol-mnemonic-dos mule string nil
|
|
|
|
|
|
:standard
|
|
|
|
|
|
(if (memq system-type '(ms-dos windows-nt))
|
|
|
|
|
|
"\\" "(DOS)"))
|
|
|
|
|
|
(eol-mnemonic-mac mule string nil
|
|
|
|
|
|
:standard "(Mac)")
|
2000-08-20 17:21:22 +00:00
|
|
|
|
(file-coding-system-alist
|
|
|
|
|
|
mule
|
|
|
|
|
|
(alist
|
|
|
|
|
|
:key-type (regexp :tag "File regexp")
|
|
|
|
|
|
:value-type (choice
|
|
|
|
|
|
:value (undecided . undecided)
|
|
|
|
|
|
(cons :tag "Encoding/decoding pair"
|
|
|
|
|
|
:value (undecided . undecided)
|
|
|
|
|
|
(coding-system :tag "Decoding")
|
|
|
|
|
|
(coding-system :tag "Encoding"))
|
2007-07-09 01:27:15 +00:00
|
|
|
|
(coding-system
|
|
|
|
|
|
:tag "Single coding system"
|
|
|
|
|
|
:value undecided
|
|
|
|
|
|
:match (lambda (widget value)
|
|
|
|
|
|
(and value (not (functionp value)))))
|
2000-08-20 17:21:22 +00:00
|
|
|
|
(function :value ignore))))
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; dired.c
|
2003-02-04 11:26:42 +00:00
|
|
|
|
(completion-ignored-extensions dired
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(repeat (string :format "%v")))
|
1999-08-16 23:00:42 +00:00
|
|
|
|
;; dispnew.c
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(baud-rate display integer)
|
|
|
|
|
|
(inverse-video display boolean)
|
|
|
|
|
|
(visible-bell display boolean)
|
|
|
|
|
|
(no-redraw-on-reenter display boolean)
|
2012-05-02 13:00:29 +00:00
|
|
|
|
|
2017-09-21 20:31:06 +00:00
|
|
|
|
;; doc.c
|
|
|
|
|
|
(text-quoting-style display
|
|
|
|
|
|
(choice
|
2017-09-22 21:52:03 +00:00
|
|
|
|
(const :tag "Prefer \\=‘curved\\=’ quotes, if possible" nil)
|
2017-09-21 20:31:06 +00:00
|
|
|
|
(const :tag "\\=‘Curved\\=’ quotes" curved)
|
|
|
|
|
|
(const :tag "\\='Straight\\=' quotes" straight)
|
2017-09-22 21:52:03 +00:00
|
|
|
|
(const :tag "\\=`Grave\\=' quotes (no translation)" grave)))
|
2017-09-21 20:31:06 +00:00
|
|
|
|
|
2015-06-18 21:00:20 +00:00
|
|
|
|
;; dosfns.c
|
2012-05-02 13:00:29 +00:00
|
|
|
|
(dos-display-scancodes display boolean)
|
|
|
|
|
|
(dos-hyper-key keyboard integer)
|
|
|
|
|
|
(dos-super-key keyboard integer)
|
|
|
|
|
|
(dos-keypad-mode keyboard integer)
|
|
|
|
|
|
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; editfns.c
|
|
|
|
|
|
(user-full-name mail string)
|
2014-03-28 23:11:39 +00:00
|
|
|
|
;; emacs.c
|
|
|
|
|
|
(report-emacs-bug-address emacsbug string)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; eval.c
|
|
|
|
|
|
(max-specpdl-size limits integer)
|
|
|
|
|
|
(max-lisp-eval-depth limits integer)
|
2007-07-01 17:18:42 +00:00
|
|
|
|
(max-mini-window-height limits
|
|
|
|
|
|
(choice (const :tag "quarter screen" nil)
|
2008-01-11 09:59:48 +00:00
|
|
|
|
number) "23.1")
|
2003-02-04 11:26:42 +00:00
|
|
|
|
(debug-on-error debug
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(choice (const :tag "off")
|
|
|
|
|
|
(repeat :menu-tag "When"
|
|
|
|
|
|
:value (nil)
|
|
|
|
|
|
(symbol :format "%v"))
|
|
|
|
|
|
(const :tag "always" t)))
|
|
|
|
|
|
(debug-ignored-errors debug (repeat (choice symbol regexp)))
|
2011-10-07 02:17:29 +00:00
|
|
|
|
(debug-on-quit debug boolean)
|
2012-05-02 13:00:29 +00:00
|
|
|
|
(debug-on-signal debug boolean)
|
2016-10-01 08:17:23 +00:00
|
|
|
|
(debugger-stack-frame-as-list debugger boolean "26.1")
|
2012-05-02 13:00:29 +00:00
|
|
|
|
;; fileio.c
|
|
|
|
|
|
(delete-by-moving-to-trash auto-save boolean "23.1")
|
2008-08-05 21:41:56 +00:00
|
|
|
|
(auto-save-visited-file-name auto-save boolean)
|
2010-10-29 06:51:36 +00:00
|
|
|
|
;; filelock.c
|
2012-08-15 16:29:11 +00:00
|
|
|
|
(create-lockfiles files boolean "24.3")
|
2010-10-29 06:51:36 +00:00
|
|
|
|
(temporary-file-directory
|
|
|
|
|
|
;; Darwin section added 24.1, does not seem worth :version bump.
|
|
|
|
|
|
files directory nil
|
2010-10-31 18:26:54 +00:00
|
|
|
|
:standard
|
2010-10-29 06:51:36 +00:00
|
|
|
|
(file-name-as-directory
|
|
|
|
|
|
;; FIXME ? Should there be Ftemporary_file_directory to do this
|
|
|
|
|
|
;; more robustly (cf set_local_socket in emacsclient.c).
|
|
|
|
|
|
;; It could be used elsewhere, eg Fcall_process_region,
|
|
|
|
|
|
;; server-socket-dir. See bug#7135.
|
|
|
|
|
|
(cond ((memq system-type '(ms-dos windows-nt))
|
|
|
|
|
|
(or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP")
|
|
|
|
|
|
"c:/temp"))
|
|
|
|
|
|
((eq system-type 'darwin)
|
|
|
|
|
|
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP")
|
|
|
|
|
|
;; See bug#7135.
|
2018-04-03 07:51:01 +00:00
|
|
|
|
(let* (file-name-handler-alist
|
|
|
|
|
|
(tmp (ignore-errors
|
|
|
|
|
|
(shell-command-to-string
|
|
|
|
|
|
"getconf DARWIN_USER_TEMP_DIR"))))
|
2010-10-29 06:51:36 +00:00
|
|
|
|
(and (stringp tmp)
|
|
|
|
|
|
(setq tmp (replace-regexp-in-string
|
|
|
|
|
|
"\n\\'" "" tmp))
|
|
|
|
|
|
;; Handles "getconf: Unrecognized variable..."
|
|
|
|
|
|
(file-directory-p tmp)
|
|
|
|
|
|
tmp))
|
|
|
|
|
|
"/tmp"))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP")
|
|
|
|
|
|
"/tmp"))))
|
|
|
|
|
|
:initialize custom-initialize-delay)
|
1999-11-26 17:36:14 +00:00
|
|
|
|
;; fns.c
|
2000-07-12 17:28:19 +00:00
|
|
|
|
(use-dialog-box menu boolean "21.1")
|
2005-02-09 15:50:47 +00:00
|
|
|
|
(use-file-dialog menu boolean "22.1")
|
Add new frame parameters and associated functions
Add new frame parameters `undecorated', `override-redirect',
`parent-frame', `skip-taskbar', `no-focus-on-map',
`no-accept-focus', `z-group', `delete-before', `no-other-frame',
`mouse-wheel-frame', `min-width', `min-height'. Add new
functions `frame-restack' and `frame-list-z-order'.
* lisp/cus-start.el (focus-follows-mouse): Adapt customization
type.
* lisp/frame.el (handle-delete-frame): Handle child and
`delete-before' frames.
(other-frame): Stop looking for other frame after one round.
(frame-list-z-order, frame-restack): New functions.
(delete-other-frames): Handle child frames.
* lisp/frameset.el (frameset-persistent-filter-alist)
(frameset--record-relationships): Handle `delete-before',
`parent-frame' and `mouse-wheel-frame' parameters. Rename
latter from `frameset--record-minibuffer-relationships'.
(frameset--restore-frame): Handle ‘parent-frame’ parameter
specially.
(frameset-restore): Handle `delete-before', `parent-frame' and
`mouse-wheel-frame' parameters.
* lisp/mwheel.el (mwheel-scroll): Handle `mouse-wheel-frame'
parameter.
* lisp/window.el (window--min-size-ignore-p): Fix doc-string.
(mouse-autoselect-window-select, handle-select-window): Major
rewrite. Try to not ignore errors. Handle auto-selection of
child frames and different values of `focus-follows-mouse'.
* src/frame.c (frame_windows_min_size): Handle new `min-width'
and `min-height' frame parameters.
(make_frame): Initialize new frame structure members.
(do_switch_frame): Don't reset internal_last_event_frame for
descendant frames.
(Fframe_parent, frame_ancestor_p, Fframe_ancestor_p): New
functions.
(candidate_frame): Don't return `no-other-frame' frame.
(other_frames): New function replacing other_visible_frames.
(delete_frame): Rewrite. Handle child and `delete-before' frames.
(Fmake_frame_invisible): Call other_frames.
(store_frame_param): Check `delete-before' and `parent-frame'
parameters for circular dependencies.
(frame_parms, syms_of_frame): Add entries for and define new
frame parameters.
(focus_follows_mouse): New meaningful value `auto-raise'.
* src/frame.h (z_group): New enumeration type.
(frame): New slots parent_frame, undecorated, override_redirect,
skip_taskbar, no_focus_on_map, no_accept_focus, z_group.
(fset_parent_frame): New inlined function.
(FRAME_UNDECORATED, FRAME_OVERRIDE_REDIRECT)
(FRAME_PARENT_FRAME, FRAME_SKIP_TASKBAR, FRAME_NO_FOCUS_ON_MAP)
(FRAME_NO_ACCEPT_FOCUS, FRAME_Z_GROUP, FRAME_Z_GROUP_NONE)
(FRAME_Z_GROUP_ABOVE, FRAME_Z_GROUP_ABOVE_SUSPENDED)
(FRAME_Z_GROUP_BELOW): New macros.
(frame_ancestor_p): Add declaration.
* src/gtkutil.c (xg_create_frame_widgets): Handle
`undecorated' and `override-redirect' frame parameters.
(x_wm_set_size_hint): None for child frames.
(xg_set_undecorated, xg_frame_restack, xg_set_skip_taskbar)
(xg_set_no_focus_on_map, xg_set_no_accept_focus)
(xg_set_override_redirect): New functions.
(xg_update_scrollbar_pos, xg_update_horizontal_scrollbar_pos):
Don't let scrollbars obscure child frames.
* src/gtkutil.h: (xg_set_undecorated, xg_frame_restack)
(xg_set_skip_taskbar, xg_set_no_focus_on_map)
(xg_set_no_accept_focus, xg_set_override_redirect): Add extern
declarations.
* src/nsfns.m (ns_frame_parm_handlers): Add entries for new
frame parameters.
(Fx_create_frame): Install `min-width' and `min-height' frame
parameters.
* src/nsterm.m (mouseMoved:): Handle focus_follows_mouse change.
* src/w32fns.c (WS_EX_NOACTIVATE): Define if necessary.
(x_real_positions): Handle child frames.
(x_set_menu_bar_lines): Don't for child frames.
(x_set_undecorated, x_set_parent_frame, x_set_skip_taskbar)
(x_set_no_focus_on_map, x_set_no_accept_focus)
(x_set_z_group): New functions.
(w32_createvscrollbar, w32_createhscrollbar): Don't draw
scroll bars over child frames.
(w32_createwindow): Handle new frame parameters and child frames.
(w32_wnd_proc): Let mouse clicks into a child frame activate
the frame. Try to handle the `no-accept-focus' parameter. Do
SetFocus when our window is brought to top or becomes the
foreground window.
(w32_window): Don't initialize menu bar for child frames.
(Fx_create_frame): Handle new frame parameters.
(x_create_tip_frame): Set explicit_parent slot.
(w32_dialog_in_progress): New function.
(Fx_file_dialog): Handle `z-group-above' frames.
(w32_frame_list_z_order, Fw32_frame_list_z_order)
(w32_frame_restack, Fw32_frame_restack): New functions.
(w32_frame_parm_handlers): Add entries for new frame
parameters.
* src/w32font.c (Fx_select_font): Handle `z-group-above'
frames during font selection dialogue.
* src/w32term.c (construct_mouse_wheel): Construct mouse wheel
event from F's w32 window.
(w32_mouse_position): Handle child frames.
(w32_set_vertical_scroll_bar, w32_set_horizontal_scroll_bar):
Don't draw scroll bars over child frames.
(w32_read_socket): Always erase background of child frames.
When generating SELECT_WINDOW_EVENTs handle new value of
`focus-follows-mouse' and handle `no-accept-focus' parameter.
Handle `mouse-wheel-frame' parameter.
(x_calc_absolute_position, x_set_offset, x_set_window_size):
Handle child frames.
(x_make_frame_visible): Handle child frames specially. Handle
`no-focus-on-map' parameter.
* src/w32term.h (w32_dialog_in_progress): Add external
declaration.
* src/xdisp.c (x_consider_frame_title, prepare_menu_bars): Not
for child frames.
* src/xfns.c (Xm/MwmUtil.h): Include for WM hints.
(PropMotifWmHints, PROP_MOTIF_WM_HINTS_ELEMENTS): Define for
non-Motif, non-GTK case.
(x_real_pos_and_offsets): Handle child frames.
(x_set_undecorated, x_set_parent_frame)
(x_set_no_focus_on_map, x_set_no_accept_focus)
(x_set_override_redirect): New functions.
(x_set_menu_bar_lines): Not for child frames.
(x_window): Handle `undecorated' and `override_redirect' cases.
(Fx_create_frame): Handle new frame parameters.
(frame_geometry): Handle child frames and outer border.
(x_frame_list_z_order, Fx_frame_list_z_order)
(x_frame_restack, Fx_frame_restack): New functions.
(Fx_file_dialog, Fx_select_font): Set x_menu_set_in_use.
(x_frame_parm_handlers): Add entries for new frame parameters.
* src/xmenu.c (x_menu_set_in_use): Handle `z-group-above'
frames.
* src/xterm.c (x_set_frame_alpha): Don't set alpha of parent
for child frames.
(XTmouse_position): Handle child frames.
(x_scroll_bar_create, x_scroll_bar_expose): Don't let scroll
bars obscure child frames.
(handle_one_xevent): Handle child frame positions. If necessary
set `skip-taskbar' and reassign proper `z-group' when we are
mapped. When generating SELECT_WINDOW_EVENTs handle new value
of `focus-follows-mouse'. Handle `mouse-wheel-frame' parameter.
Let mouse clicks into a child frame activate the frame.
(x_calc_absolute_position, x_set_offset): Handle child frames
specially.
(x_set_skip_taskbar, x_set_z_group): New functions.
(x_make_frame_visible): Handle child frames.
(ATOM_REFS_INIT): Add entries for
Xatom_net_wm_state_skip_taskbar, Xatom_net_wm_state_above,
Xatom_net_wm_state_below.
* src/xterm.h (top-level): Declare Xatom_net_wm_state_above,
Xatom_net_wm_state_below and Xatom_net_wm_state_skip_taskbar.
(x_set_skip_taskbar, x_set_z_group): Add extern declarations.
2017-04-12 08:38:25 +00:00
|
|
|
|
(focus-follows-mouse
|
|
|
|
|
|
frames (choice
|
|
|
|
|
|
(const :tag "Off (nil)" :value nil)
|
|
|
|
|
|
(const :tag "On (t)" :value t)
|
|
|
|
|
|
(const :tag "Auto-raise" :value auto-raise)) "26.1")
|
2012-05-02 13:00:29 +00:00
|
|
|
|
;; fontset.c
|
2013-05-09 01:40:20 +00:00
|
|
|
|
;; FIXME nil is the initial value, fontset.el setqs it.
|
|
|
|
|
|
(vertical-centering-font-regexp display
|
|
|
|
|
|
(choice (const nil) regexp))
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; frame.c
|
|
|
|
|
|
(default-frame-alist frames
|
|
|
|
|
|
(repeat (cons :format "%v"
|
|
|
|
|
|
(symbol :tag "Parameter")
|
|
|
|
|
|
(sexp :tag "Value"))))
|
2002-02-17 00:33:21 +00:00
|
|
|
|
(mouse-highlight mouse (choice (const :tag "disabled" nil)
|
|
|
|
|
|
(const :tag "always shown" t)
|
2008-01-11 09:59:48 +00:00
|
|
|
|
(other :tag "hidden by keypress" 1))
|
|
|
|
|
|
"22.1")
|
2009-07-03 11:07:02 +00:00
|
|
|
|
(make-pointer-invisible mouse boolean "23.2")
|
2010-10-31 18:26:54 +00:00
|
|
|
|
(menu-bar-mode frames boolean nil
|
2010-10-30 02:27:44 +00:00
|
|
|
|
;; FIXME?
|
Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
;; :initialize custom-initialize-default
|
2010-10-30 02:27:44 +00:00
|
|
|
|
:set custom-set-minor-mode)
|
2010-10-31 18:26:54 +00:00
|
|
|
|
(tool-bar-mode (frames mouse) boolean nil
|
Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
;; :initialize custom-initialize-default
|
2010-10-30 02:27:44 +00:00
|
|
|
|
:set custom-set-minor-mode)
|
Improve inhibiting of implied frame resizes.
* frames.texi (Size and Position): Rewrite description of
`frame-inhibit-implied-resize'.
* cus-start.el (frame-resize-pixelwise): Fix group.
(frame-inhibit-implied-resize): Add entry.
* dispnew.c (change_frame_size_1): Fix call of
adjust_frame_size.
* frame.c (Qsize, Qframe_position, Qframe_outer_size)
(Qframe_inner_size, Qexternal_border_size, Qtitle_height)
(Qmenu_bar_external, Qmenu_bar_size, Qtool_bar_external)
(Qtool_bar_size): New constants.
(frame_inhibit_resize, adjust_frame_size): New argument to
handle case where frame_inhibit_implied_resize is a list.
(Fmake_terminal_frame, Fset_frame_height, Fset_frame_width)
(Fset_frame_size, x_set_left_fringe, x_set_right_fringe)
(x_set_right_divider_width, x_set_bottom_divider_width)
(x_set_vertical_scroll_bars, x_set_horizontal_scroll_bars)
(x_set_scroll_bar_width, x_set_scroll_bar_height): Update
callers.
(frame-inhibit-implied-resize): Rewrite doc-string.
* frame.h (frame_inhibit_resize, adjust_frame_size): Fix
external declarations.
(Qframe_position, Qframe_outer_size)
(Qframe_inner_size, Qexternal_border_size, Qtitle_height)
(Qmenu_bar_external, Qmenu_bar_size, Qtool_bar_external)
(Qtool_bar_size): Extern them.
* gtkutil.c (FRAME_TOTAL_PIXEL_HEIGHT, FRAME_TOTAL_PIXEL_WIDTH)
(xg_height_or_width_changed): Remove.
(xg_frame_set_char_size): Adjust adjust_frame_size calls.
(menubar_map_cb, xg_update_frame_menubar, free_frame_menubar)
(tb_size_cb, update_frame_tool_bar, free_frame_tool_bar)
(xg_change_toolbar_position): Call adjust_frame_size directly.
* nsfns.m (x_set_internal_border_width, Fx_create_frame): Fix
calls of adjust_frame_size.
* w32fns.c (x_set_internal_border_width, x_set_menu_bar_lines)
(Fx_create_frame, x_create_tip_frame): Adjust adjust_frame_size
calls.
(x_set_tool_bar_lines, x_change_tool_bar_height): Make sure that
frame can get resized when tool-bar-lines parameter changes from
or to zero.
(Fw32_frame_menu_bar_size): Return fourth value.
(Fw32_frame_rect): Block input around system calls
(Fx_frame_geometry): New function.
* w32menu.c (set_frame_menubar): Adjust adjust_frame_size call.
* w32term.c (x_new_font): Adjust adjust_frame_size call.
* widget.c (EmacsFrameSetCharSize): Adjust frame_inhibit_resize
call.
* window.c (Fset_window_configuration): Adjust adjust_frame_size
call.
* xfns.c (x_set_menu_bar_lines, x_set_internal_border_width)
(Fx_create_frame): Adjust adjust_frame_size calls.
(x_set_tool_bar_lines, x_change_tool_bar_height): Make sure that
frame can get resized when tool-bar-lines parameter changes from
or to zero.
(Fx_frame_geometry): New function.
* xmenu.c (update_frame_menubar): On Lucid call
adjust_frame_size with one pixel less height to avoid that
repeatedly adding/removing the menu bar grows the frame.
(free_frame_menubar): On Motif arrange to optionally preserve
the old frame height when removing the menu bar.
* xterm.c (x_new_font): Adjust adjust_frame_size call.
2014-11-07 10:49:22 +00:00
|
|
|
|
(frame-resize-pixelwise frames boolean "24.4")
|
|
|
|
|
|
(frame-inhibit-implied-resize frames
|
|
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Never" nil)
|
|
|
|
|
|
(const :tag "Always" t)
|
|
|
|
|
|
(repeat (symbol :tag "Parameter")))
|
|
|
|
|
|
"25.1")
|
2017-10-01 08:17:17 +00:00
|
|
|
|
(iconify-child-frame frames
|
|
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Do nothing" nil)
|
|
|
|
|
|
(const :tag "Iconify top level frame instead" iconify-top-level)
|
|
|
|
|
|
(const :tag "Make frame invisible instead" make-invisible)
|
|
|
|
|
|
(const :tag "Iconify" t))
|
|
|
|
|
|
"26.1")
|
2016-11-18 06:50:40 +00:00
|
|
|
|
(tooltip-reuse-hidden-frame tooltip boolean "26.1")
|
2005-08-08 21:48:35 +00:00
|
|
|
|
;; fringe.c
|
2006-03-12 14:35:31 +00:00
|
|
|
|
(overflow-newline-into-fringe fringe boolean)
|
2012-02-07 03:31:29 +00:00
|
|
|
|
;; image.c
|
|
|
|
|
|
(imagemagick-render-type image integer "24.1")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; indent.c
|
2006-08-12 13:04:44 +00:00
|
|
|
|
(indent-tabs-mode indent boolean)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; keyboard.c
|
|
|
|
|
|
(meta-prefix-char keyboard character)
|
|
|
|
|
|
(auto-save-interval auto-save integer)
|
2018-08-06 22:53:05 +00:00
|
|
|
|
(auto-save-no-message auto-save boolean)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(auto-save-timeout auto-save (choice (const :tag "off" nil)
|
|
|
|
|
|
(integer :format "%v")))
|
2000-02-18 21:15:05 +00:00
|
|
|
|
(echo-keystrokes minibuffer number)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(polling-period keyboard integer)
|
1997-06-27 22:38:19 +00:00
|
|
|
|
(double-click-time mouse (restricted-sexp
|
|
|
|
|
|
:match-alternatives (integerp 'nil 't)))
|
2008-01-11 09:59:48 +00:00
|
|
|
|
(double-click-fuzz mouse integer "22.1")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(help-char keyboard character)
|
|
|
|
|
|
(help-event-list keyboard (repeat (sexp :format "%v")))
|
|
|
|
|
|
(menu-prompting menu boolean)
|
2010-08-07 19:39:04 +00:00
|
|
|
|
(select-active-regions killing
|
2010-08-16 02:33:17 +00:00
|
|
|
|
(choice (const :tag "always" t)
|
|
|
|
|
|
(const :tag "only shift-selection or mouse-drag" only)
|
2010-08-07 19:39:04 +00:00
|
|
|
|
(const :tag "off" nil))
|
|
|
|
|
|
"24.1")
|
2011-04-26 11:26:05 +00:00
|
|
|
|
(debug-on-event debug
|
|
|
|
|
|
(choice (const :tag "None" nil)
|
|
|
|
|
|
(const :tag "When sent SIGUSR1" sigusr1)
|
|
|
|
|
|
(const :tag "When sent SIGUSR2" sigusr2))
|
|
|
|
|
|
"24.1")
|
2001-11-27 04:59:43 +00:00
|
|
|
|
|
2013-02-11 19:21:23 +00:00
|
|
|
|
;; This is not good news because it will use the wrong
|
|
|
|
|
|
;; version-specific directories when you upgrade. We need
|
|
|
|
|
|
;; customization of the front of the list, maintaining the
|
|
|
|
|
|
;; standard value intact at the back.
|
|
|
|
|
|
;;(load-path environment
|
|
|
|
|
|
;; (repeat (choice :tag "[Current dir?]"
|
|
|
|
|
|
;; :format "%[Current dir?%] %v"
|
|
|
|
|
|
;; (const :tag " current dir" nil)
|
|
|
|
|
|
;; (directory :format "%v"))))
|
2013-12-18 03:21:48 +00:00
|
|
|
|
(load-prefer-newer lisp boolean "24.4")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; minibuf.c
|
|
|
|
|
|
(enable-recursive-minibuffers minibuffer boolean)
|
2002-02-01 04:26:17 +00:00
|
|
|
|
(history-length minibuffer
|
2008-01-11 09:59:48 +00:00
|
|
|
|
(choice (const :tag "Infinite" t) integer)
|
2014-03-21 17:04:50 +00:00
|
|
|
|
"24.5") ; 30 -> 100
|
2008-01-11 09:59:48 +00:00
|
|
|
|
(history-delete-duplicates minibuffer boolean "22.1")
|
2008-07-30 15:29:06 +00:00
|
|
|
|
(read-buffer-completion-ignore-case minibuffer boolean "23.1")
|
|
|
|
|
|
|
2000-11-21 16:01:32 +00:00
|
|
|
|
(minibuffer-prompt-properties
|
|
|
|
|
|
minibuffer
|
|
|
|
|
|
(list
|
|
|
|
|
|
(checklist :inline t
|
|
|
|
|
|
(const :tag "Read-Only"
|
|
|
|
|
|
:doc "Prevent prompt from being modified"
|
|
|
|
|
|
:format "%t%n%h"
|
|
|
|
|
|
:inline t
|
|
|
|
|
|
(read-only t))
|
2005-08-19 02:08:56 +00:00
|
|
|
|
(const :tag "Don't Enter"
|
2000-11-21 16:01:32 +00:00
|
|
|
|
:doc "Prevent point from ever entering prompt"
|
|
|
|
|
|
:format "%t%n%h"
|
|
|
|
|
|
:inline t
|
Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
(cursor-intangible t)))
|
2000-11-21 16:01:32 +00:00
|
|
|
|
(repeat :inline t
|
|
|
|
|
|
:tag "Other Properties"
|
|
|
|
|
|
(list :inline t
|
|
|
|
|
|
:format "%v"
|
|
|
|
|
|
(symbol :tag "Property")
|
2000-11-27 17:46:24 +00:00
|
|
|
|
(sexp :tag "Value"))))
|
Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
"21.1"
|
|
|
|
|
|
:set minibuffer-prompt-properties--setter)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(minibuffer-auto-raise minibuffer boolean)
|
2000-11-27 17:46:24 +00:00
|
|
|
|
;; options property set at end
|
2000-11-30 19:12:41 +00:00
|
|
|
|
(read-buffer-function minibuffer
|
|
|
|
|
|
(choice (const nil)
|
|
|
|
|
|
function))
|
1998-12-13 11:26:30 +00:00
|
|
|
|
;; msdos.c
|
|
|
|
|
|
(dos-unsupported-char-glyph display integer)
|
2009-03-21 02:31:29 +00:00
|
|
|
|
;; nsterm.m
|
2016-03-30 17:22:56 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; FIXME: Why does ⌃ use nil instead of none? Also the
|
|
|
|
|
|
;; description is confusing; setting it to nil disables ⌃
|
|
|
|
|
|
;; entirely.
|
2009-03-21 09:47:13 +00:00
|
|
|
|
(ns-control-modifier
|
2009-03-21 13:01:44 +00:00
|
|
|
|
ns
|
2009-03-21 02:31:29 +00:00
|
|
|
|
(choice (const :tag "No modifier" nil)
|
|
|
|
|
|
(const control) (const meta)
|
|
|
|
|
|
(const alt) (const hyper)
|
|
|
|
|
|
(const super)) "23.1")
|
2010-11-21 13:09:34 +00:00
|
|
|
|
(ns-right-control-modifier
|
|
|
|
|
|
ns
|
|
|
|
|
|
(choice (const :tag "No modifier (work as control)" none)
|
|
|
|
|
|
(const :tag "Use the value of ns-control-modifier"
|
|
|
|
|
|
left)
|
|
|
|
|
|
(const control) (const meta)
|
|
|
|
|
|
(const alt) (const hyper)
|
2014-05-28 15:48:39 +00:00
|
|
|
|
(const super)) "24.1")
|
2009-03-21 09:47:13 +00:00
|
|
|
|
(ns-command-modifier
|
2009-03-21 13:01:44 +00:00
|
|
|
|
ns
|
2016-03-30 17:22:56 +00:00
|
|
|
|
(choice (const :tag "No modifier (work as layout switch)" none)
|
2009-03-21 02:31:29 +00:00
|
|
|
|
(const control) (const meta)
|
|
|
|
|
|
(const alt) (const hyper)
|
|
|
|
|
|
(const super)) "23.1")
|
2010-11-21 13:09:34 +00:00
|
|
|
|
(ns-right-command-modifier
|
|
|
|
|
|
ns
|
2016-03-30 17:22:56 +00:00
|
|
|
|
(choice (const :tag "No modifier (work as layout switch)" none)
|
2010-11-21 13:09:34 +00:00
|
|
|
|
(const :tag "Use the value of ns-command-modifier"
|
|
|
|
|
|
left)
|
|
|
|
|
|
(const control) (const meta)
|
|
|
|
|
|
(const alt) (const hyper)
|
2014-05-28 15:48:39 +00:00
|
|
|
|
(const super)) "24.1")
|
2009-03-21 09:47:13 +00:00
|
|
|
|
(ns-alternate-modifier
|
2009-03-21 13:01:44 +00:00
|
|
|
|
ns
|
2009-03-21 02:31:29 +00:00
|
|
|
|
(choice (const :tag "No modifier (work as alternate/option)" none)
|
|
|
|
|
|
(const control) (const meta)
|
|
|
|
|
|
(const alt) (const hyper)
|
|
|
|
|
|
(const super)) "23.1")
|
2010-10-11 19:18:08 +00:00
|
|
|
|
(ns-right-alternate-modifier
|
|
|
|
|
|
ns
|
|
|
|
|
|
(choice (const :tag "No modifier (work as alternate/option)" none)
|
|
|
|
|
|
(const :tag "Use the value of ns-alternate-modifier"
|
|
|
|
|
|
left)
|
|
|
|
|
|
(const control) (const meta)
|
|
|
|
|
|
(const alt) (const hyper)
|
|
|
|
|
|
(const super)) "23.3")
|
2009-03-21 09:47:13 +00:00
|
|
|
|
(ns-function-modifier
|
2009-03-21 13:01:44 +00:00
|
|
|
|
ns
|
2009-03-21 02:31:29 +00:00
|
|
|
|
(choice (const :tag "No modifier (work as function)" none)
|
|
|
|
|
|
(const control) (const meta)
|
|
|
|
|
|
(const alt) (const hyper)
|
|
|
|
|
|
(const super)) "23.1")
|
|
|
|
|
|
(ns-antialias-text ns boolean "23.1")
|
2014-05-28 15:48:39 +00:00
|
|
|
|
(ns-auto-hide-menu-bar ns boolean "24.1")
|
2015-05-15 14:23:29 +00:00
|
|
|
|
(ns-confirm-quit ns boolean "25.1")
|
2013-02-05 12:16:35 +00:00
|
|
|
|
(ns-use-native-fullscreen ns boolean "24.4")
|
2014-10-11 20:00:59 +00:00
|
|
|
|
(ns-use-fullscreen-animation ns boolean "25.1")
|
2014-10-11 08:28:11 +00:00
|
|
|
|
(ns-use-srgb-colorspace ns boolean "24.4")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; process.c
|
1997-05-31 00:54:10 +00:00
|
|
|
|
(delete-exited-processes processes-basics boolean)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; syntax.c
|
|
|
|
|
|
(parse-sexp-ignore-comments editing-basics boolean)
|
|
|
|
|
|
(words-include-escapes editing-basics boolean)
|
2004-04-16 12:51:06 +00:00
|
|
|
|
(open-paren-in-column-0-is-defun-start editing-basics boolean
|
|
|
|
|
|
"21.1")
|
2005-12-30 21:54:32 +00:00
|
|
|
|
;; term.c
|
|
|
|
|
|
(visible-cursor cursor boolean "22.1")
|
2015-01-16 04:51:48 +00:00
|
|
|
|
;; terminal.c
|
|
|
|
|
|
(ring-bell-function display
|
|
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Default" nil)
|
|
|
|
|
|
(const :tag "Silent" ignore)
|
|
|
|
|
|
function))
|
2005-08-04 21:34:41 +00:00
|
|
|
|
;; undo.c
|
|
|
|
|
|
(undo-limit undo integer)
|
|
|
|
|
|
(undo-strong-limit undo integer)
|
|
|
|
|
|
(undo-outer-limit undo
|
|
|
|
|
|
(choice integer
|
|
|
|
|
|
(const :tag "No limit"
|
|
|
|
|
|
:format "%t\n%d"
|
|
|
|
|
|
:doc
|
|
|
|
|
|
"With this choice, \
|
|
|
|
|
|
the undo info for the current command never gets discarded.
|
|
|
|
|
|
This should only be chosen under exceptional circumstances,
|
|
|
|
|
|
since it could result in memory overflow and make Emacs crash."
|
|
|
|
|
|
nil))
|
|
|
|
|
|
"22.1")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; window.c
|
2001-02-07 23:36:32 +00:00
|
|
|
|
(temp-buffer-show-function windows (choice (const nil) function))
|
1998-04-07 17:47:01 +00:00
|
|
|
|
(next-screen-context-lines windows integer)
|
2007-04-08 22:02:42 +00:00
|
|
|
|
(scroll-preserve-screen-position
|
|
|
|
|
|
windows (choice
|
|
|
|
|
|
(const :tag "Off (nil)" :value nil)
|
|
|
|
|
|
(const :tag "Full screen (t)" :value t)
|
2008-01-11 09:59:48 +00:00
|
|
|
|
(other :tag "Always" 1)) "22.1")
|
Move window resize code from window.c to window.el.
* window.c: Remove declarations of Qwindow_size_fixed,
window_min_size_1, window_min_size_2, window_min_size,
size_window, window_fixed_size_p, enlarge_window, delete_window.
Remove static from declaration of Qdelete_window, it's
temporarily needed by Fbury_buffer.
(replace_window): Don't assign orig_top_line and
orig_total_lines.
(Fdelete_window, delete_window): Remove. Window deletion is
handled by window.el.
(window_loop): Remove DELETE_OTHER_WINDOWS case. Replace
Fdelete_window calls with calls to Qdelete_window.
(Fdelete_other_windows): Remove. Deleting other windows is
handled by window.el.
(window_fixed_size_p): Remove. Fixed-sizeness of windows is
handled in window.el.
(window_min_size_2, window_min_size_1, window_min_size): Remove.
Window minimum sizes are handled in window.el.
(shrink_windows, size_window, set_window_height)
(set_window_width, change_window_heights, window_height)
(window_width, CURBEG, CURSIZE, enlarge_window)
(adjust_window_trailing_edge, Fadjust_window_trailing_edge)
(Fenlarge_window, Fshrink_window): Remove. Window resizing is
handled in window.el.
(make_dummy_parent): Rename to make_parent_window and give it a
second argument horflag.
(make_window): Don't set resize_proportionally any more.
(Fsplit_window): Remove. Windows are split in window.el.
(save_restore_action, save_restore_orig_size)
(shrink_window_lowest_first, save_restore_orig_size): Remove.
Resize mini windows in window.el.
(grow_mini_window, shrink_mini_window): Implement by calling
Qresize_root_window_vertically, resize_window_check and
resize_window_apply.
(saved_window, Fset_window_configuration, save_window_save): Do
not handle orig_top_line, orig_total_lines, and
resize_proportionally.
(window_min_height, window_min_width): Move to window.el.
(keys_of_window): Move bindings for delete-other-windows,
split-window, delete-window and enlarge-window to window.el.
* buffer.c: Temporarily extern Qdelete_window.
(Fbury_buffer): Temporarily call Qdelete_window instead of
Fdelete_window (Fbury_buffer will move to window.el soon).
* frame.c (set_menu_bar_lines_1): Remove code handling
orig_top_line and orig_total_lines.
* dispnew.c (adjust_frame_glyphs_initially): Don't use
set_window_height but set heights directly.
(change_frame_size_1): Use resize_frame_windows.
* xdisp.c (init_xdisp): Don't use set_window_height but set
heights directly.
* xfns.c (x_set_menu_bar_lines, x_set_tool_bar_lines): Use
resize_frame_windows instead of change_window_heights and run
run_window_configuration_change_hook.
* w32fns.c (x_set_tool_bar_lines): Use resize_frame_windows
instead of change_window_heights and run
run_window_configuration_change_hook.
* window.el (window-min-height, window-min-width): Move here
from window.c. Add defcustoms and rewrite doc-strings.
(resize-mini-window, resize-window): New functions.
(adjust-window-trailing-edge, enlarge-window, shrink-window):
Move here from window.c.
(maximize-window, minimize-window): New functions.
(delete-window, delete-other-windows, split-window): Move here
from window.c.
(window-split-min-size): New function.
(split-window-keep-point): Mention split-window-above-each-other
instead of split-window-vertically.
(split-window-above-each-other, split-window-vertically): Rename
split-window-vertically to split-window-above-each-other and
provide defalias for old definition.
(split-window-side-by-side, split-window-horizontally): Rename
split-window-horizontally to split-window-side-by-side and provide
defalias for the old definition.
(ctl-x-map): Move bindings for delete-window,
delete-other-windows and enlarge-window here from window.c.
Replace bindings for split-window-vertically and
split-window-horizontally by bindings for
split-window-above-each-other and split-window-side-by-side.
* cus-start.el (all): Remove entries for window-min-height and
window-min-width. Add entries for window-splits and
window-nest.
2011-06-10 06:55:18 +00:00
|
|
|
|
(recenter-redisplay
|
|
|
|
|
|
windows (choice
|
|
|
|
|
|
(const :tag "Never (nil)" :value nil)
|
|
|
|
|
|
(const :tag "Only on ttys" :value tty)
|
|
|
|
|
|
(other :tag "Always" t)) "23.1")
|
2011-11-17 10:27:56 +00:00
|
|
|
|
(window-combination-resize windows boolean "24.1")
|
2012-09-22 12:56:08 +00:00
|
|
|
|
(window-combination-limit
|
|
|
|
|
|
windows (choice
|
|
|
|
|
|
(const :tag "Never (nil)" :value nil)
|
2017-04-27 08:18:48 +00:00
|
|
|
|
(const :tag "If requested via buffer display alist (window-size)"
|
|
|
|
|
|
:value window-size)
|
|
|
|
|
|
(const :tag "With Temp Buffer Resize mode (temp-buffer-resize)"
|
2012-09-22 12:56:08 +00:00
|
|
|
|
:value temp-buffer-resize)
|
|
|
|
|
|
(const :tag "For temporary buffers (temp-buffer)"
|
|
|
|
|
|
:value temp-buffer)
|
|
|
|
|
|
(const :tag "For buffer display (display-buffer)"
|
|
|
|
|
|
:value display-buffer)
|
|
|
|
|
|
(other :tag "Always (t)" :value t))
|
2017-04-27 08:18:48 +00:00
|
|
|
|
"26.1")
|
2014-12-14 18:26:44 +00:00
|
|
|
|
(fast-but-imprecise-scrolling scrolling boolean "25.1")
|
Support resizing frames and windows pixelwise.
* dispextern.h (enum window_part): Add ON_SCROLL_BAR,
ON_RIGHT_DIVIDER and ON_BOTTOM_DIVIDER.
(struct glyph_matrix): Replace window_left_col and
window_top_line by window_pixel_left and window_pixel_top.
(WINDOW_WANTS_MODELINE_P, WINDOW_WANTS_HEADER_LINE_P): Minor
rewrite.
(enum face_id): Add WINDOW_DIVIDER_FACE_ID.
(draw_window_divider, move_it_to, x_draw_right_divider)
(x_draw_bottom_divider, change_frame_size): Add or fix
declarations.
* dispnew.c (change_frame_size_1): Change prototype.
(adjust_glyph_matrix, required_matrix_width)
(adjust_frame_glyphs_for_window_redisplay): Use pixel
values instead of lines and columns.
(marginal_area_string): Use WINDOW_FRINGES_WIDTH instead of
WINDOW_TOTAL_FRINGE_WIDTH.
(handle_window_change_signal, do_pending_window_change)
(init_display): Adjusts calls of change_frame_size.
(change_frame_size, change_frame_size_1): Handle pixelwise
changes.
* frame.c (Qright_divider_width, Qbottom_divider_width): New
Lisp objects.
(set_menu_bar_lines_1, set_menu_bar_lines, make_frame)
(make_terminal_frame, Fmake_terminal_frame, Fframe_parameters)
(x_set_internal_border_width, x_set_vertical_scroll_bars)
(x_set_scroll_bar_width, x_figure_window_size): Handle pixel
values.
(set_frame_param): New function.
(Fframe_text_cols, Fframe_text_lines, Fframe_total_cols)
(Fframe_text_width, Fframe_text_height, Fscroll_bar_width)
(Ffringe_width, Fborder_width, Fright_divider_width)
(Fbottom_divider_width): New functions, defsubr them.
(Fset_frame_height, Fset_frame_width, Fset_frame_size): New
argument pixelwise.
(struct frame_parm_table): New members Qright_divider_width and
Qbottom_divider_width.
(x_set_frame_parameters): Handle parameters for pixelwise sizes.
(x_report_frame_params): Handle Qright_divider_width and
Qbottom_divider_width.
(x_set_right_divider_width, x_set_bottom_divider_width): New
functions.
(frame_resize_pixelwise): New option.
* frame.h (struct frame): Add tool_bar_height, menu_bar_height,
new_pixelwise, right_divider_width and bottom_divider_width;
remove total_lines; rename text_lines, text_cols, new_text_lines
and new_text_cols to text_height, text_width, new_height and
new_width respectively.
(FRAME_LINES, FRAME_COLS): Rename to FRAME_TEXT_HEIGHT and
FRAME_TEXT_WIDTH respectively.
(FRAME_MENU_BAR_HEIGHT, FRAME_TOOL_BAR_HEIGHT)
(FRAME_RIGHT_DIVIDER_WIDTH, FRAME_BOTTOM_DIVIDER_WIDTH)
(FRAME_TEXT_TO_PIXEL_WIDTH, FRAME_PIXEL_TO_TEXT_WIDTH): New
macros.
(FRAME_TOP_MARGIN_HEIGHT, FRAME_LEFT_SCROLL_BAR_AREA_WIDTH)
(FRAME_RIGHT_SCROLL_BAR_AREA_WIDTH, FRAME_SCROLL_BAR_AREA_WIDTH)
(SET_FRAME_COLS, SET_FRAME_WIDTH, SET_FRAME_HEIGHT)
(FRAME_TEXT_COLS_TO_PIXEL_WIDTH, FRAME_PIXEL_WIDTH_TO_TEXT_COLS)
(FRAME_TEXT_COLS_TO_PIXEL_WIDTH): Rewrite macros.
(FRAME_TOTAL_COLS_ARG): Remove macro.
* fringe.c (draw_fringe_bitmap_1): Handle right divder.
* gtkutil.c (xg_frame_resized, xg_frame_set_char_size)
(x_wm_set_size_hint): Handle frame pixel sizes.
* indent.c (compute_motion, Fcompute_motion): Call
window_body_width instead of window_body_cols.
* keyboard.c (Qright_divider, Qbottom_divider): New symbols.
(make_lispy_position): Handle right and bottom dividers.
(Fsuspend_emacs): Pixelize call of change_frame_size.
* keyboard.h: Extern Qright_divider, Qbottom_divider.
* lisp.h: Extern set_frame_param.
* nsfns.m (x_set_tool_bar_lines): Pixelize call of
x_set_window_size.
(Fx_create_frame): Add entry for vertical_drag_cursor. Pixelize
call of change_frame_size.
* nsterm.h (struct ns_output): Add vertical_drag_cursor.
* nsterm.m (ns_update_window_end): Optionally draw right
divider.
(x_set_window_size): Add argument pixelwise. Call
check_frame_size and change_frame_size with pixelwise zero.
(ns_draw_window_divider): New function.
(ns_redisplay_interface): Add ns_draw_window_divider.
(updateFrameSize:): Call change_frame_size with pixelwise zero.
(x_new_font): Call x_set_window_size with pixelwise zero.
* print.c (print_object): For a window print its sequence
number again.
* term.c (Fresume_tty): Pixelize call of change_frame_size.
* w32fns.c (x_set_mouse_color): Handle vertical drag cursor.
(x_set_menu_bar_lines, x_set_tool_bar_lines): Calculate pixelwise.
(w32_createwindow): Use scroll bar area width.
(w32_wnd_proc): Handle bottom divider width. For
WM_WINDOWPOSCHANGING return zero if we resize pixelwise.
(Fx_create_frame): Default divider width parameters. Caclulate
sizes pixelwise. Add vertical drag cursor support.
(x_create_tip_frame): Default divider widths to zero. Pixelize
call to change_frame_size.
(Fx_show_tip): Add handling of divider widths. Pixelize window
position and sizes.
(Fw32_frame_rect): New function.
(frame_parm_handler w32_frame_parm_handlers): Add divider
widths.
(Vx_window_vertical_drag_shape): Add variable.
* w32inevt.c (resize_event, maybe_generate_resize_event):
Pixelize change_frame_size calls.
* w32menu.c (set_frame_menubar): Pixelize x_set_window_size
call.
* w32term.c (w32_draw_window_divider): New function.
(x_update_window_end): Handle right divider.
(w32_draw_fringe_bitmap, x_scroll_run)
(w32_set_vertical_scroll_bar): Pixelize scrollbar widths.
(w32_read_socket): Handle SIZE_MAXIMIZED separately. Calculate
new frame sizes pixelwise.
(x_new_font): Pixelize call to x_set_window_size.
(x_check_fullscreen): Pixelize call to change_frame_size.
(x_set_window_size_1, x_set_window_size): New argument
pixelwise. Calculate pixelwise.
(x_wm_set_size_hint): Use scroll bar area width.
(w32_redisplay_interface): Add w32_draw_window_divider.
* w32term.h (struct w32_output): Add vertical drag cursor.
* widget.c (set_frame_size, update_wm_hints)
(EmacsFrameResize, EmacsFrameSetValues): Pixelize calls of
change_frame_size.
(EmacsFrameSetCharSize): Pixelize call of x_set_window_size.
* window.c (sequence_number): Restore.
(Fwindow_pixel_width, Fwindow_pixel_height)
(Fwindow_mode_line_height, Fwindow_header_line_height)
(window_pixel_to_total, Frun_window_scroll_functions)
(Fset_window_new_pixel, window_resize_apply_total)
(Fwindow_resize_apply_total): New functions.
(window_body_height, window_body_width): Rename from
window_body_lines. New argument PIXELWISE. Calculate
pixelwise.
(Fwindow_body_height, Fwindow_body_width): New argument
PIXELWISE.
(coordinates_in_window, window_relative_x_coord): Use window's
pixel width instead of total width.
(replace_window, recombine_windows): Initialize pixel values.
(resize_root_window, resize_frame_windows, grow_mini_window)
(shrink_mini_window): New argument PIXELWISE. Calculate
pixelwise.
(Fdelete_other_windows_internal, adjust_window_margins)
(window_resize_check, window_resize_apply)
(Fdelete_window_internal, Fresize_mini_window_internal)
(Fwindow_text_width, Fwindow_text_height): Calculate pixelwise.
(check_frame_size): Rename arguments. New argument PIXELWISE.
Calculate pixelwise.
(set_window_buffer): Make samebuf bool. Run configuration change
hook only if buffer changed.
(Fset_window_buffer): Rewrite doc-string.
(make_window): Initialize new_pixel slot.
(Fwindow_resize_apply): Check pixel size of root window.
(Fsplit_window_internal): Call 2nd argument pixel_size.
Calculate pixelwise.
(Fscroll_left, Fscroll_right): Call window_body_width instead of
window_body_cols.
(save_window_data): New slots frame_text_width,
frame_text_height, frame_menu_bar_height, frame_tool_bar_height.
(saved_window): New slots pixel_left, pixel_top, pixel_height,
pixel_width.
(Fcurrent_window_configuration, Fset_window_configuration)
(save_window_save, compare_window_configurations): Handle new
slots in save_window_data and saved_window.
(Fset_window_scroll_bars): Fix doc-string.
(window_resize_pixelwise): New variable.
(coordinates_in_window, Fcoordinates_in_window_p): Handle
dividers.
(make_parent_window): Adjust sequence_number.
(Fwindow_right_divider_width, Fwindow_bottom_divider_width): New
functions.
* window.h (struct window): New members new_pixel, pixel_left,
pixel_top, pixel_width, pixel_height. Restore sequence_number.
(wset_new_pixel): New function.
(WINDOW_PIXEL_WIDTH, WINDOW_PIXEL_HEIGHT)
(MIN_SAFE_WINDOW_PIXEL_WIDTH, MIN_SAFE_WINDOW_PIXEL_HEIGHT)
(WINDOW_LEFT_PIXEL_EDGE, WINDOW_RIGHT_PIXEL_EDGE)
(WINDOW_TOP_PIXEL_EDGE, WINDOW_BOTTOM_PIXEL_EDGE)
(WINDOW_BOTTOMMOST_P, WINDOW_BOX_LEFT_PIXEL_EDGE)
(WINDOW_BOX_RIGHT_PIXEL_EDGE, WINDOW_MARGINS_COLS)
(WINDOW_MARGINS_WIDTH, WINDOW_RIGHT_DIVIDER_WIDTH)
(WINDOW_BOTTOM_DIVIDER_WIDTH): New macros.
(WINDOW_TOTAL_FRINGE_WIDTH): Rename to WINDOW_FRINGES_WIDTH.
(WINDOW_TOTAL_WIDTH, WINDOW_TOTAL_HEIGHT): Remove macros.
(WINDOW_RIGHT_EDGE_X, WINDOW_LEFT_EDGE_X, WINDOW_TOP_EDGE_Y)
(WINDOW_BOTTOM_EDGE_Y, WINDOW_FULL_WIDTH_P, WINDOW_LEFTMOST_P)
(WINDOW_RIGHTMOST_P, WINDOW_BOX_LEFT_EDGE_X)
(WINDOW_BOX_RIGHT_EDGE_X, WINDOW_FRINGE_COLS)
(WINDOW_BOX_HEIGHT_NO_MODE_LINE, WINDOW_BOX_TEXT_HEIGHT):
Rewrite.
(resize_frame_windows, grow_mini_window, shrink_mini_window)
(window_body_width, check_frame_size): Adapt external declarations.
* xdisp.c (last_max_ascent): New integer.
(window_text_bottom_y): Handle bottom divider.
(window_box_width, window_box_height): Calculate pixelwise.
(get_glyph_string_clip_rects): Handle right divider.
(remember_mouse_glyph): When windows are resized pixelwise
proceed with width and height set to 1.
(init_iterator): Use WINDOW_PIXEL_WIDTH instead of
WINDOW_TOTAL_WIDTH.
(move_it_to): Calculate and return maximum x position
encountered.
(Fwindow_text_pixel_size): New function.
(resize_mini_window, update_tool_bar): Calculate pixelwise.
(tool_bar_lines_needed): Rename to tool_bar_height. Calculate
pixelwise.
(Ftool_bar_lines_needed): Rename to Ftool_bar_height. Calculate
pixelwise.
(redisplay_tool_bar): Calculate pixelwise.
(redisplay_window): Calculate pixelwise. Handle dividers.
(draw_glyphs, x_clear_end_of_line, note_mouse_highlight)
(x_draw_vertical_border): Handle dividers.
(define_frame_cursor1): Handle vertical drag cursor.
(x_draw_right_divider, x_draw_bottom_divider): New functions.
(expose_window): Calculate pixelwise. Handle dividers.
(init_xdisp): Initialize pixel values.
* xfaces.c (Qwindow_divider): New face.
(realize_basic_faces): Realize it.
* xfns.c (x_set_mouse_color): Handle vertical_drag_cursor.
(x_set_menu_bar_lines, x_set_tool_bar_lines): Calculate pixelwise.
(x_set_scroll_bar_default_width): Default actual width to 16.
(Fx_create_frame): Set sizes pixelwise.
(x_create_tip_frame): Default divider widths to zero. Pixelize
call of change_frame_size.
(Fx_show_tip): Handle divider widths. Initial pixel position
and sizes.
(frame_parm_handler x_frame_parm_handlers): Add divider widths.
(Vx_window_vertical_drag_shape): New option.
* xmenu.c (free_frame_menubar): Pixelize call of
x_set_window_size.
* xterm.c (x_draw_window_divider): New function.
(x_update_window_end): Optionally draw right divider.
(x_draw_fringe_bitmap, x_scroll_run, x_scroll_bar_create)
(XTset_vertical_scroll_bar): Use scroll bar pixel width.
(handle_one_xevent, x_new_font): Calculate pixelwise.
(x_set_window_size_1, x_set_window_size): New argument
pixelwise. Calculate pixelwise.
(x_wm_set_size_hint): Pixelize call of check_frame_size.
(struct x_redisplay_interface): Add x_draw_window_divider.
* xterm.h (struct x_output): Add vertical_drag_cursor.
* cus-start.el (frame-resize-pixelwise)
(window-resize-pixelwise): New entries.
* emacs-lisp/debug.el (debug): Use window-total-height instead
of window-total-size.
* frame.el (tool-bar-lines-needed): Defalias to tool-bar-height.
* help.el (describe-bindings-internal): Call help-buffer
(temp-buffer-max-width): New option.
(resize-temp-buffer-window, help-window-setup)
(with-help-window): Rewrite.
* mouse.el (mouse-drag-line): Rewrite. Add key bindings for
dragging dividers.
* window.el (frame-char-size, window-min-pixel-height)
(window-safe-min-pixel-height, window-safe-min-pixel-width)
(window-min-pixel-width, window-safe-min-pixel-size)
(window-combination-p, window-safe-min-size)
(window-resizable-p, window--size-to-pixel)
(window--pixel-to-size, window--resize-apply-p): New functions.
(window-safe-min-height): Fix doc-string.
(window-size, window-min-size, window--min-size-1)
(window-sizable, window-sizable-p, window--min-delta-1)
(window-min-delta, window--max-delta-1, window-max-delta)
(window--resizable, window--resizable-p, window-resizable)
(window-full-height-p, window-full-width-p, window-at-side-p)
(window--in-direction-2, window-in-direction)
(window--resize-reset-1, window--resize-mini-window)
(window-resize, window-resize-no-error)
(window--resize-child-windows-normal)
(window--resize-child-windows, window--resize-siblings)
(window--resize-this-window, window--resize-root-window)
(window--resize-root-window-vertically)
(adjust-window-trailing-edge, enlarge-window, shrink-window)
(maximize-window, minimize-window, delete-window)
(quit-restore-window, window-split-min-size, split-window)
(balance-windows-2, balance-windows)
(balance-windows-area-adjust, balance-windows-area)
(window--state-get-1, window-state-get, window--state-put-1)
(window--state-put-2, window-state-put)
(display-buffer-record-window, window--display-buffer): Make
functions handle pixelwise sizing of windows.
(display-buffer--action-function-custom-type)
(display-buffer-fallback-action): Add
display-buffer-in-previous-window.
(display-buffer-use-some-window): Resize window to height it had
before.
(fit-window-to-buffer-horizontally): New option.
(fit-frame-to-buffer): Describe new values.
(fit-frame-to-buffer-bottom-margin): Replace with
fit-frame-to-buffer-margins.
(window--sanitize-margin): New function.
(fit-frame-to-buffer, fit-window-to-buffer): Rewrite completely
using window-text-pixel-size.
2013-11-30 09:25:31 +00:00
|
|
|
|
(window-resize-pixelwise windows boolean "24.4")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; xdisp.c
|
2013-05-15 23:55:41 +00:00
|
|
|
|
;; The whitespace group is for whitespace.el.
|
|
|
|
|
|
(show-trailing-whitespace editing-basics boolean nil
|
2010-10-24 00:58:22 +00:00
|
|
|
|
:safe booleanp)
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(scroll-step windows integer)
|
1999-05-22 19:49:10 +00:00
|
|
|
|
(scroll-conservatively windows integer)
|
|
|
|
|
|
(scroll-margin windows integer)
|
2016-09-11 15:09:57 +00:00
|
|
|
|
(maximum-scroll-margin windows float "26.1")
|
2006-09-02 13:49:05 +00:00
|
|
|
|
(hscroll-margin windows integer "22.1")
|
|
|
|
|
|
(hscroll-step windows number "22.1")
|
2013-08-13 07:42:51 +00:00
|
|
|
|
(truncate-partial-width-windows
|
|
|
|
|
|
display
|
|
|
|
|
|
(choice (integer :tag "Truncate if narrower than")
|
|
|
|
|
|
(const :tag "Respect `truncate-lines'" nil)
|
|
|
|
|
|
(other :tag "Truncate if not full-width" t))
|
|
|
|
|
|
"23.1")
|
2012-05-02 13:00:29 +00:00
|
|
|
|
(make-cursor-line-fully-visible windows boolean)
|
2007-12-19 17:06:28 +00:00
|
|
|
|
(mode-line-in-non-selected-windows mode-line boolean "22.1")
|
2000-07-12 17:28:19 +00:00
|
|
|
|
(line-number-display-limit display
|
|
|
|
|
|
(choice integer
|
|
|
|
|
|
(const :tag "No limit" nil)))
|
2008-01-11 09:59:48 +00:00
|
|
|
|
(line-number-display-limit-width display integer "22.1")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(highlight-nonselected-windows display boolean)
|
|
|
|
|
|
(message-log-max debug (choice (const :tag "Disable" nil)
|
|
|
|
|
|
(integer :menu-tag "lines"
|
|
|
|
|
|
:format "%v")
|
2012-10-08 07:18:02 +00:00
|
|
|
|
(other :tag "Unlimited" t))
|
|
|
|
|
|
"24.3")
|
1999-04-26 05:16:07 +00:00
|
|
|
|
(unibyte-display-via-language-environment mule boolean)
|
2005-02-09 15:50:47 +00:00
|
|
|
|
(blink-cursor-alist cursor alist "22.1")
|
2006-08-24 20:52:54 +00:00
|
|
|
|
(overline-margin display integer "22.1")
|
2008-06-10 20:22:10 +00:00
|
|
|
|
(underline-minimum-offset display integer "23.1")
|
2006-09-08 14:15:02 +00:00
|
|
|
|
(mouse-autoselect-window
|
|
|
|
|
|
display (choice
|
|
|
|
|
|
(const :tag "Off (nil)" :value nil)
|
|
|
|
|
|
(const :tag "Immediate" :value t)
|
|
|
|
|
|
(number :tag "Delay by secs" :value 0.5)) "22.1")
|
Gtk tool bars can be text, icons with text or just icons.
* xsettings.c: Qmonospace_font_name, Qtool_bar_style and
current_tool_bar_style are new.
(store_config_changed_event): Rename from store_font_changed_event.
(XSETTINGS_TOOL_BAR_STYLE): New define.
(SEEN_FONT, SEEN_TB_STYLE): New enum values.
(struct xsettings): Add font and tb_style, set xft stuff inside #ifdef
HAVE_XFT.
(something_changedCB): store_font_changed_event is now
store_config_changed_event
(parse_settings): Rename from parse_xft_settings. Read
non-xft xsettings outside #ifdef HAVE_XFT.
(read_settings): Renamed from read_xft_settings.
(apply_xft_settings): Take current settings as parameter. Do not
call read_(xft)_settings.
(read_and_apply_settings): New function.
(xft_settings_event): Do non-xft stuff out of HAVE_XFT. Call
read_and_apply_settings if there are settings to be read.
(init_xsettings): Renamed from init_xfd_settings.
Call read_and_apply_settings unconditionally.
(xsettings_initialize): Call init_xsettings.
(Ftool_bar_get_system_style): New function.
(syms_of_xsettings): Define Qmonospace_font_name and
Qtool_bar_style. Initialize current_tool_bar_style to nil.
defsubr Stool_bar_get_system_style. Fprovide on
dynamic-setting.
* xsettings.h (Ftool_bar_get_system_style): Declare.
* xdisp.c: Vtool_bar_style, tool_bar_max_label_size,
Qtext, Qboth, Qboth_horiz are new.
(syms_of_xdisp): Intern Qtext, Qboth, Qboth_horiz, DEFVAR
Vtool_bar_style, tool_bar_max_label_size.
* lisp.h: Extern declare Qtext, Qboth, Qboth_horiz.
* keyboard.c: QClabel is new.
(parse_tool_bar_item): Take out QClabel from tool bar items.
Try to construct a label if ther is no QClabel.
(syms_of_keyboard): Intern :label as QClabel.
* dispextern.h (tool_bar_item_idx): TOOL_BAR_ITEM_LABEL is new.
(Vtool_bar_style, tool_bar_max_label_size, DEFAULT_TOOL_BAR_LABEL_SIZE):
New.
* Makefile.in (SOME_MACHINE_LISP): font-setting.el renamed to
dynamic-setting.el.
* gtkutil.c (xg_tool_bar_menu_proxy): Handle label in tool bar item.
(xg_make_tool_item, xg_show_toolbar_item): New function.
(update_frame_tool_bar): Take label from TOOL_BAR_ITEM_LABEL.
Call xg_make_tool_item to make a tool bar item.
Call xg_show_toolbar_item. Use wtoolbar instead of x->toolbar_widget.
* xterm.c (x_draw_image_relief): Take Vtool_bar_button_margin
into account for toolbars.
* vc-dir.el (vc-dir-tool-bar-map): Add :label on some tool bar items.
* tool-bar.el (tool-bar-setup): Add :label on some tool bar items.
* loadup.el: Load dynamic-setting.el if feature dynamic-setting
is present.
* info.el (info-tool-bar-map): Add labels.
* cus-start.el (all): Add tool-bar-style and tool-bar-max-label-size.
* cus-edit.el (custom-commands): Add labels for tool bar.
(custom-buffer-create-internal, Custom-mode): Adjust for
labels in custom-commands.
* dynamic-setting.el: Renamed from font-setting.el.
2010-04-20 18:52:07 +00:00
|
|
|
|
(tool-bar-style
|
|
|
|
|
|
frames (choice
|
|
|
|
|
|
(const :tag "Images" :value image)
|
|
|
|
|
|
(const :tag "Text" :value text)
|
|
|
|
|
|
(const :tag "Both" :value both)
|
|
|
|
|
|
(const :tag "Both-horiz" :value both-horiz)
|
2010-07-28 17:34:51 +00:00
|
|
|
|
(const :tag "Text-image-horiz" :value text-image-horiz)
|
2012-06-03 23:28:17 +00:00
|
|
|
|
(const :tag "System default" :value nil)) "24.1")
|
|
|
|
|
|
(tool-bar-max-label-size frames integer "24.1")
|
2017-05-19 07:01:23 +00:00
|
|
|
|
(auto-hscroll-mode scrolling
|
|
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Don't scroll automatically"
|
|
|
|
|
|
:value nil)
|
|
|
|
|
|
(const :tag "Scroll the entire window"
|
|
|
|
|
|
:value t)
|
|
|
|
|
|
(const :tag "Scroll only the current line"
|
2017-05-19 09:36:01 +00:00
|
|
|
|
:value current-line))
|
2017-05-19 07:01:23 +00:00
|
|
|
|
"26.1")
|
2012-05-02 13:00:29 +00:00
|
|
|
|
(void-text-area-pointer cursor
|
|
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Standard (text pointer)" :value nil)
|
|
|
|
|
|
(const :tag "Arrow" :value arrow)
|
|
|
|
|
|
(const :tag "Text pointer" :value text)
|
|
|
|
|
|
(const :tag "Hand" :value hand)
|
|
|
|
|
|
(const :tag "Vertical dragger" :value vdrag)
|
|
|
|
|
|
(const :tag "Horizontal dragger" :value hdrag)
|
|
|
|
|
|
(const :tag "Same as mode line" :value modeline)
|
|
|
|
|
|
(const :tag "Hourglass" :value hourglass)))
|
2010-10-24 00:58:22 +00:00
|
|
|
|
(display-hourglass cursor boolean)
|
|
|
|
|
|
(hourglass-delay cursor number)
|
2014-12-25 13:13:26 +00:00
|
|
|
|
(resize-mini-windows
|
|
|
|
|
|
windows (choice
|
|
|
|
|
|
(const :tag "Off (nil)" :value nil)
|
|
|
|
|
|
(const :tag "Fit (t)" :value t)
|
|
|
|
|
|
(const :tag "Grow only" :value grow-only))
|
|
|
|
|
|
"25.1")
|
2017-06-01 18:25:58 +00:00
|
|
|
|
(display-raw-bytes-as-hex display boolean "26.1")
|
2017-07-22 09:16:08 +00:00
|
|
|
|
(display-line-numbers display-line-numbers
|
2017-06-17 14:42:44 +00:00
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Off (nil)" :value nil)
|
|
|
|
|
|
(const :tag "Absolute line numbers"
|
|
|
|
|
|
:value t)
|
|
|
|
|
|
(const :tag "Relative line numbers"
|
2017-06-26 20:20:49 +00:00
|
|
|
|
:value relative)
|
|
|
|
|
|
(const :tag "Visually relative line numbers"
|
|
|
|
|
|
:value visual))
|
2017-06-17 14:42:44 +00:00
|
|
|
|
"26.1")
|
2017-07-22 09:16:08 +00:00
|
|
|
|
(display-line-numbers-width display-line-numbers
|
2017-06-17 14:42:44 +00:00
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Dynamically computed"
|
|
|
|
|
|
:value nil)
|
|
|
|
|
|
(integer :menu-tag "Fixed number of columns"
|
|
|
|
|
|
:value 2
|
|
|
|
|
|
:format "%v"))
|
|
|
|
|
|
"26.1")
|
2017-07-22 09:16:08 +00:00
|
|
|
|
(display-line-numbers-current-absolute display-line-numbers
|
2017-06-30 13:37:57 +00:00
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Display actual number of current line"
|
|
|
|
|
|
:value t)
|
|
|
|
|
|
(const :tag "Display zero as number of current line"
|
|
|
|
|
|
:value nil))
|
2017-07-06 17:22:16 +00:00
|
|
|
|
"26.1")
|
2017-07-22 09:16:08 +00:00
|
|
|
|
(display-line-numbers-widen display-line-numbers
|
2017-07-06 17:22:16 +00:00
|
|
|
|
(choice
|
|
|
|
|
|
(const :tag "Disregard narrowing when calculating line numbers"
|
|
|
|
|
|
:value t)
|
2017-07-08 15:42:09 +00:00
|
|
|
|
(const :tag "Count lines from beginning of narrowed region"
|
2017-07-06 17:22:16 +00:00
|
|
|
|
:value nil))
|
|
|
|
|
|
"26.1")
|
2002-10-29 18:51:52 +00:00
|
|
|
|
;; xfaces.c
|
2008-01-11 09:59:48 +00:00
|
|
|
|
(scalable-fonts-allowed display boolean "22.1")
|
1997-04-12 17:51:31 +00:00
|
|
|
|
;; xfns.c
|
|
|
|
|
|
(x-bitmap-file-path installation
|
1999-08-16 23:00:42 +00:00
|
|
|
|
(repeat (directory :format "%v")))
|
2006-09-18 16:50:31 +00:00
|
|
|
|
(x-gtk-use-old-file-dialog menu boolean "22.1")
|
2005-12-27 10:40:58 +00:00
|
|
|
|
(x-gtk-show-hidden-files menu boolean "22.1")
|
2006-09-18 16:50:31 +00:00
|
|
|
|
(x-gtk-file-dialog-help-text menu boolean "22.1")
|
2010-08-01 13:57:07 +00:00
|
|
|
|
(x-gtk-use-system-tooltips tooltip boolean "23.3")
|
1999-08-16 23:00:42 +00:00
|
|
|
|
;; xterm.c
|
2006-09-02 13:49:05 +00:00
|
|
|
|
(x-use-underline-position-properties display boolean "22.1")
|
2006-08-24 20:52:54 +00:00
|
|
|
|
(x-underline-at-descent-line display boolean "22.1")
|
2009-11-17 20:17:46 +00:00
|
|
|
|
(x-stretch-cursor display boolean "21.1")
|
2013-01-11 05:09:30 +00:00
|
|
|
|
(scroll-bar-adjust-thumb-portion windows boolean "24.4")
|
2012-03-04 06:55:06 +00:00
|
|
|
|
;; xselect.c
|
|
|
|
|
|
(x-select-enable-clipboard-manager killing boolean "24.1")
|
2009-11-17 20:17:46 +00:00
|
|
|
|
;; xsettings.c
|
|
|
|
|
|
(font-use-system-font font-selection boolean "23.2")))
|
Deprecate `intangible' and `point-entered' properties
* lisp/emacs-lisp/cursor-sensor.el: New file.
* lisp/simple.el (pre-redisplay-functions): New hook.
(redisplay--pre-redisplay-functions): New function.
(pre-redisplay-function): Use it.
(minibuffer-avoid-prompt): Mark obsolete.
(redisplay--update-region-highlight): Adapt it to work as a function on
pre-redisplay-functions.
* lisp/cus-start.el (minibuffer-prompt-properties--setter): New fun.
(minibuffer-prompt-properties): Use it. Use cursor-intangible rather
than point-entered to make the prompt intangible.
* lisp/forms.el: Move `provide' calls to the end.
(forms-mode): Don't use `run-hooks' on a local var.
(forms--make-format, forms--make-format-elt-using-text-properties):
Use cursor-intangible rather than `intangible'.
(forms-mode): Enable cursor-intangible-mode.
* lisp/isearch.el (isearch-mode): Use defvar-local.
(cursor-sensor-inhibit): Declare.
(isearch-mode): Set cursor-sensor-inhibit.
(isearch-done): Set it back.
(isearch-open-overlay-temporary, isearch-open-necessary-overlays)
(isearch-close-unnecessary-overlays): Don't bother with `intangible'
any more.
* lisp/ses.el (ses-localvars): Remove `mode-line-process'.
(ses-sym-rowcol, ses-cell-value, ses-col-width, ses-col-printer):
Add Edebug spec.
(ses-goto-print, ses-print-cell, ses-adjust-print-width)
(ses-goto-data, ses-setup, ses-copy-region): Don't let-bind
inhibit-point-motion-hooks any more.
(ses--cell-at-pos, ses--curcell): New functions, extracted from
ses-set-curcell.
(ses-set-curcell): Use them.
(ses-print-cell, ses-setup): Use cursor-intangible instead of
`intangible'. Make sure cursor-intangible isn't sticky at BOB.
(ses-print-cell-new-width, ses-reprint-all, ses-recalculate-all):
Use ses--cell-at-pos.
(ses--mode-line-process, ses--cursor-sensor-highlight): New functions,
extracted from ses-command-hook. Make them work with multiple windows
displaying the same buffer.
(ses-mode): Use them via mode-line-process and pre-redisplay-functions.
Enable cursor-intangible-mode.
(ses-command-hook): Remove cell highlight and mode-line update code.
(ses-forward-or-insert, ses-copy-region-helper, ses-sort-column):
Update for new name of text-property holding the cell name.
(ses-rename-cell): Don't mess with mode-line-process.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Use the new
cursor-sensor-functions property instead of point-entered.
(erc-insert-timestamp-right, erc-format-timestamp):
Use cursor-intangible rather than `intangible'.
(erc-munge-invisibility-spec): Use add-to-invisibility-spec and
remove-from-invisibility-spec. Enable cursor-intangible-mode and
cursor-sensor-mode if needed.
(erc-echo-timestamp): Adapt to calling convention of
cursor-sensor-functions.
(erc-insert-timestamp-right): Remove unused vars `current-window' and
`indent'.
* lisp/gnus/gnus-group.el (gnus-tmp-*): Declare.
(gnus-update-group-mark-positions): Remove unused `topic' var.
(gnus-group-insert-group-line): Remove unused var `header'.
(gnus-group--setup-tool-bar-update): New function.
(gnus-group-insert-group-line): Use it.
(gnus-group-update-eval-form): Declare local
dynamically-bound variables.
(gnus-group-unsubscribe-group): Use \` and \' to match string bounds.
* lisp/gnus/gnus-topic.el (gnus-topic-jump-to-topic)
(gnus-group-prepare-topics, gnus-topic-update-topic)
(gnus-topic-change-level, gnus-topic-catchup-articles)
(gnus-topic-remove-group, gnus-topic-delete, gnus-topic-indent):
Use inhibit-read-only.
(gnus-topic-prepare-topic): Use gnus-group--setup-tool-bar-update.
(gnus-topic-mode): Use define-minor-mode and derived-mode-p.
* lisp/textmodes/reftex-index.el (reftex-display-index):
Use cursor-intangible-mode if available.
(reftex-index-post-command-hook): Check cursor-intangible.
* lisp/textmodes/reftex-toc.el (reftex-toc):
Use cursor-intangible-mode if available.
(reftex-toc-recenter, reftex-toc-post-command-hook):
Check cursor-intangible.
* lisp/textmodes/sgml-mode.el: Use lexical-binding.
(sgml-tag): Use cursor-sensor-functions instead of point-entered.
(sgml-tags-invisible): Use with-silent-modifications and
inhibit-read-only. Enable cursor-sensor-mode.
(sgml-cursor-sensor): Rename from sgml-point-entered and adjust to
calling convention of cursor-sensor-functions.
* lisp/textmodes/table.el (table-cell-map-hook, table-load-hook)
(table-point-entered-cell-hook, table-point-left-cell-hook):
Don't autoload.
(table-cell-entered-state): Remove var.
(table--put-cell-point-entered/left-property)
(table--remove-cell-properties):
Use cursor-sensor-functions rather than point-entered/left.
(table--point-entered/left-cell-function): Merge
table--point-entered-cell-function and table--point-left-cell-function
and adjust to calling convention of cursor-sensor-functions.
2015-04-13 19:51:15 +00:00
|
|
|
|
(setq ;; If we did not specify any standard value expression above,
|
2005-02-14 09:49:38 +00:00
|
|
|
|
;; use the current value as the standard value.
|
2010-10-31 18:26:54 +00:00
|
|
|
|
standard (if (setq prop (memq :standard rest))
|
|
|
|
|
|
(cadr prop)
|
|
|
|
|
|
(if (default-boundp symbol)
|
|
|
|
|
|
(funcall quoter (default-value symbol))))
|
1998-12-31 13:04:54 +00:00
|
|
|
|
;; Don't complain about missing variables which are
|
|
|
|
|
|
;; irrelevant to this platform.
|
|
|
|
|
|
native-p (save-match-data
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((string-match "\\`dos-" (symbol-name symbol))
|
|
|
|
|
|
(eq system-type 'ms-dos))
|
|
|
|
|
|
((string-match "\\`w32-" (symbol-name symbol))
|
|
|
|
|
|
(eq system-type 'windows-nt))
|
2009-03-21 09:47:13 +00:00
|
|
|
|
((string-match "\\`ns-" (symbol-name symbol))
|
|
|
|
|
|
(featurep 'ns))
|
2005-06-13 11:54:48 +00:00
|
|
|
|
((string-match "\\`x-.*gtk" (symbol-name symbol))
|
2005-09-10 23:00:15 +00:00
|
|
|
|
(featurep 'gtk))
|
2012-03-07 05:53:51 +00:00
|
|
|
|
((string-match "clipboard-manager" (symbol-name symbol))
|
|
|
|
|
|
(boundp 'x-select-enable-clipboard-manager))
|
2002-02-11 07:06:55 +00:00
|
|
|
|
((string-match "\\`x-" (symbol-name symbol))
|
|
|
|
|
|
(fboundp 'x-create-frame))
|
2005-09-09 16:22:11 +00:00
|
|
|
|
((string-match "selection" (symbol-name symbol))
|
|
|
|
|
|
(fboundp 'x-selection-exists-p))
|
|
|
|
|
|
((string-match "fringe" (symbol-name symbol))
|
|
|
|
|
|
(fboundp 'define-fringe-bitmap))
|
2012-02-07 03:31:29 +00:00
|
|
|
|
((string-match "\\`imagemagick" (symbol-name symbol))
|
|
|
|
|
|
(fboundp 'imagemagick-types))
|
2009-11-21 15:40:24 +00:00
|
|
|
|
((equal "font-use-system-font" (symbol-name symbol))
|
|
|
|
|
|
(featurep 'system-font-setting))
|
2010-05-07 13:52:25 +00:00
|
|
|
|
;; Conditioned on x-create-frame, because that's
|
|
|
|
|
|
;; the condition for loadup.el to preload tool-bar.el.
|
|
|
|
|
|
((string-match "tool-bar-" (symbol-name symbol))
|
|
|
|
|
|
(fboundp 'x-create-frame))
|
2012-05-25 10:31:18 +00:00
|
|
|
|
((equal "vertical-centering-font-regexp"
|
|
|
|
|
|
(symbol-name symbol))
|
|
|
|
|
|
;; Any function from fontset.c will do.
|
|
|
|
|
|
(fboundp 'new-fontset))
|
2013-01-13 17:47:45 +00:00
|
|
|
|
((equal "scroll-bar-adjust-thumb-portion"
|
|
|
|
|
|
(symbol-name symbol))
|
|
|
|
|
|
(featurep 'x))
|
1998-12-31 13:04:54 +00:00
|
|
|
|
(t t))))
|
1997-04-12 17:51:31 +00:00
|
|
|
|
(if (not (boundp symbol))
|
|
|
|
|
|
;; If variables are removed from C code, give an error here!
|
1998-12-31 13:04:54 +00:00
|
|
|
|
(and native-p
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(message "Note, built-in variable `%S' not bound" symbol))
|
1997-05-31 00:54:10 +00:00
|
|
|
|
;; Save the standard value, unless we already did.
|
|
|
|
|
|
(or (get symbol 'standard-value)
|
2005-02-14 09:49:38 +00:00
|
|
|
|
(put symbol 'standard-value (list standard)))
|
2010-10-24 00:58:22 +00:00
|
|
|
|
;; We need these properties independent of whether cus-start is loaded.
|
|
|
|
|
|
(if (setq prop (memq :safe rest))
|
|
|
|
|
|
(put symbol 'safe-local-variable (cadr prop)))
|
|
|
|
|
|
(if (setq prop (memq :risky rest))
|
|
|
|
|
|
(put symbol 'risky-local-variable (cadr prop)))
|
2010-10-30 02:27:44 +00:00
|
|
|
|
(if (setq prop (memq :set rest))
|
|
|
|
|
|
(put symbol 'custom-set (cadr prop)))
|
2018-01-17 02:20:43 +00:00
|
|
|
|
;; Don't re-add to custom-delayed-init-variables post-startup.
|
|
|
|
|
|
(unless after-init-time
|
|
|
|
|
|
;; Note this is the _only_ initialize property we handle.
|
|
|
|
|
|
(if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay)
|
|
|
|
|
|
;; These vars are defined early and should hence be initialized
|
|
|
|
|
|
;; early, even if this file happens to be loaded late. so add them
|
|
|
|
|
|
;; to the end of custom-delayed-init-variables. Otherwise,
|
|
|
|
|
|
;; auto-save-file-name-transforms will appear in customize-rogue.
|
|
|
|
|
|
(add-to-list 'custom-delayed-init-variables symbol 'append)))
|
2010-10-30 02:27:44 +00:00
|
|
|
|
;; If this is NOT while dumping Emacs, set up the rest of the
|
|
|
|
|
|
;; customization info. This is the stuff that is not needed
|
|
|
|
|
|
;; until someone does M-x customize etc.
|
1997-05-31 00:54:10 +00:00
|
|
|
|
(unless purify-flag
|
2010-10-29 03:29:29 +00:00
|
|
|
|
;; 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))
|
1997-05-31 00:54:10 +00:00
|
|
|
|
;; Set the type.
|
2000-07-12 17:28:19 +00:00
|
|
|
|
(put symbol 'custom-type type)
|
2010-10-31 18:26:54 +00:00
|
|
|
|
(if version (put symbol 'custom-version version))
|
2010-10-24 00:58:22 +00:00
|
|
|
|
(while rest
|
|
|
|
|
|
(setq prop (car rest)
|
|
|
|
|
|
propval (cadr rest)
|
|
|
|
|
|
rest (nthcdr 2 rest))
|
2010-10-31 18:26:54 +00:00
|
|
|
|
(cond ((memq prop '(:standard :risky :safe :set))) ; handled above
|
2010-10-24 00:58:22 +00:00
|
|
|
|
((eq prop :tag)
|
|
|
|
|
|
(put symbol 'custom-tag propval))))))))
|
1997-05-31 00:54:10 +00:00
|
|
|
|
|
2004-04-16 12:51:06 +00:00
|
|
|
|
(custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start
|
|
|
|
|
|
'custom-variable)
|
2000-11-27 17:46:24 +00:00
|
|
|
|
|
2010-10-24 00:58:22 +00:00
|
|
|
|
;; Record cus-start as loaded if we have set up all the info that we can.
|
|
|
|
|
|
;; Don't record it as loaded if we have only set up the standard values
|
|
|
|
|
|
;; and safe/risky properties.
|
1997-05-31 00:54:10 +00:00
|
|
|
|
(unless purify-flag
|
|
|
|
|
|
(provide 'cus-start))
|
1997-04-12 17:51:31 +00:00
|
|
|
|
|
2001-07-14 11:21:08 +00:00
|
|
|
|
;;; cus-start.el ends here
|