2011-03-11 18:46:12 +00:00
|
|
|
;; allout-widgets.el --- Visually highlight allout outline structure.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
2021-01-01 09:13:56 +00:00
|
|
|
;; Copyright (C) 2005-2021 Free Software Foundation, Inc.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
2011-11-16 16:37:48 +00:00
|
|
|
;; Author: Ken Manheimer <ken dot manheimer at gmail...>
|
2011-02-16 22:10:43 +00:00
|
|
|
;; Version: 1.0
|
|
|
|
;; Created: Dec 2005
|
|
|
|
;; Keywords: outlines
|
2011-11-16 16:37:48 +00:00
|
|
|
;; Website: http://myriadicity.net/software-and-systems/craft/emacs-allout
|
2011-02-16 22:10:43 +00:00
|
|
|
|
2012-02-12 01:49:16 +00:00
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
|
|
|
|
|
|
|
;; 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/>.
|
2012-02-12 01:49:16 +00:00
|
|
|
|
2011-02-16 22:10:43 +00:00
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
;; This is an allout outline-mode add-on that highlights outline structure
|
|
|
|
;; with graphical widgets.
|
|
|
|
;;
|
|
|
|
;; To activate, customize `allout-widgets-auto-activation'. You can also
|
|
|
|
;; invoke allout-widgets-mode in a particular allout buffer. When
|
|
|
|
;; auto-enabled, you can inhibit widget operation in particular allout
|
|
|
|
;; buffers by setting the variable `allout-widgets-mode-inhibit' non-nil in
|
|
|
|
;; that file's buffer. Use emacs *file local variables* to generally
|
|
|
|
;; inhibit for a file.
|
|
|
|
;;
|
|
|
|
;; See the `allout-widgets-mode' docstring for more details.
|
|
|
|
;;
|
|
|
|
;; Info about allout and allout-widgets development are available at
|
|
|
|
;; http://myriadicity.net/Sundry/EmacsAllout
|
|
|
|
;;
|
|
|
|
;; The graphics include:
|
|
|
|
;;
|
|
|
|
;; - icons for item bullets, varying to distinguish whether the item either
|
|
|
|
;; lacks any subitems, the subitems are currently collapsed within the
|
|
|
|
;; item, or the item is currently expanded.
|
|
|
|
;;
|
|
|
|
;; - guide lines connecting item bullet-icons with those of their subitems.
|
|
|
|
;;
|
|
|
|
;; - cue area between the bullet-icon and the start of the body headline,
|
|
|
|
;; for item numbering, encryption indicator, and distinctive bullets.
|
|
|
|
;;
|
|
|
|
;; The bullet-icon and guide line graphics provide keybindings and mouse
|
|
|
|
;; bindings for easy outline navigation and exposure control, extending
|
|
|
|
;; outline hot-spot navigation (see `allout-mode' docstring for details).
|
|
|
|
;;
|
|
|
|
;; Developers note: Our use of emacs widgets is unconventional. We
|
|
|
|
;; decorate existing text rather than substituting for it, to
|
|
|
|
;; piggy-back on existing allout operation. This employs the C-coded
|
|
|
|
;; efficiencies of widget-apply, widget-get, and widget-put, along
|
|
|
|
;; with the basic object-oriented organization of widget-create, to
|
|
|
|
;; systematically couple overlays, graphics, and other features with
|
|
|
|
;; allout-governed text.
|
|
|
|
|
2012-06-07 14:30:54 +00:00
|
|
|
;;; Code:
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
;;;_ : General Environment
|
|
|
|
(require 'allout)
|
|
|
|
(require 'widget)
|
|
|
|
(require 'wid-edit)
|
2019-05-23 03:21:47 +00:00
|
|
|
(eval-when-compile (require 'cl-lib))
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
;;;_ : internal variables needed before user-customization variables
|
|
|
|
;;; In order to enable activation of allout-widgets-mode via customization,
|
|
|
|
;;; allout-widgets-auto-activation uses a setting function. That function
|
|
|
|
;;; is invoked when the customization variable definition is evaluated,
|
|
|
|
;;; during file load, so the involved code must reside above that
|
|
|
|
;;; definition in the file.
|
|
|
|
;;;_ = allout-widgets-mode
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-widgets-mode nil
|
2011-02-16 22:10:43 +00:00
|
|
|
"Allout mode enhanced with graphical widgets.")
|
|
|
|
|
|
|
|
;;;_ : USER CUSTOMIZATION VARIABLES and incidental functions:
|
|
|
|
;;;_ > defgroup allout-widgets
|
|
|
|
(defgroup allout-widgets nil
|
|
|
|
"Allout extension that highlights outline structure graphically.
|
|
|
|
|
|
|
|
Customize `allout-widgets-auto-activation' to activate allout-widgets
|
|
|
|
with allout-mode."
|
|
|
|
:group 'allout)
|
|
|
|
;;;_ > defgroup allout-widgets-developer
|
|
|
|
(defgroup allout-widgets-developer nil
|
|
|
|
"Settings for development of allout widgets extension."
|
|
|
|
:group 'allout-widgets)
|
|
|
|
;;;_ ; some functions a bit early, for allout-auto-activation dependency:
|
|
|
|
;;;_ > allout-widgets-mode-enable
|
|
|
|
(defun allout-widgets-mode-enable ()
|
|
|
|
"Enable allout-widgets-mode in allout-mode buffers.
|
|
|
|
|
|
|
|
See `allout-widgets-mode-inhibit' for per-file/per-buffer
|
|
|
|
inhibition of allout-widgets-mode."
|
|
|
|
(add-hook 'allout-mode-off-hook 'allout-widgets-mode-off)
|
|
|
|
(add-hook 'allout-mode-on-hook 'allout-widgets-mode-on)
|
|
|
|
t)
|
|
|
|
;;;_ > allout-widgets-mode-disable
|
|
|
|
(defun allout-widgets-mode-disable ()
|
|
|
|
"Disable allout-widgets-mode in allout-mode buffers.
|
|
|
|
|
|
|
|
See `allout-widgets-mode-inhibit' for per-file/per-buffer
|
|
|
|
inhibition of allout-widgets-mode."
|
|
|
|
(remove-hook 'allout-mode-off-hook 'allout-widgets-mode-off)
|
|
|
|
(remove-hook 'allout-mode-on-hook 'allout-widgets-mode-on)
|
|
|
|
t)
|
|
|
|
;;;_ > allout-widgets-setup (varname value)
|
|
|
|
;;;###autoload
|
|
|
|
(defun allout-widgets-setup (varname value)
|
2011-12-05 08:55:25 +00:00
|
|
|
"Commission or decommission allout-widgets-mode along with allout-mode.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
Meant to be used by customization of `allout-widgets-auto-activation'."
|
|
|
|
(set-default varname value)
|
|
|
|
(if allout-widgets-auto-activation
|
|
|
|
(allout-widgets-mode-enable)
|
|
|
|
(allout-widgets-mode-disable)))
|
|
|
|
;;;_ = allout-widgets-auto-activation
|
|
|
|
;;;###autoload
|
|
|
|
(defcustom allout-widgets-auto-activation nil
|
|
|
|
"Activate to enable allout icon graphics wherever allout mode is active.
|
|
|
|
|
|
|
|
Also enable `allout-auto-activation' for this to take effect upon
|
|
|
|
visiting an outline.
|
|
|
|
|
|
|
|
When this is set you can disable allout widgets in select files
|
lisp/*.el: Fix typos and other trivial doc fixes
* lisp/allout-widgets.el (allout-widgets-auto-activation)
(allout-current-decorated-p):
* lisp/auth-source.el (auth-source-protocols):
* lisp/autorevert.el (auto-revert-set-timer):
* lisp/battery.el (battery-mode-line-limit):
* lisp/calc/calcalg3.el (math-map-binop):
* lisp/calendar/cal-dst.el (calendar-dst-find-startend):
* lisp/calendar/cal-mayan.el (calendar-mayan-long-count-to-absolute):
* lisp/calendar/calendar.el (calendar-date-echo-text)
(calendar-generate-month, calendar-string-spread)
(calendar-cursor-to-date, calendar-read, calendar-read-date)
(calendar-mark-visible-date, calendar-dayname-on-or-before):
* lisp/calendar/diary-lib.el (diary-ordinal-suffix):
* lisp/cedet/ede/autoconf-edit.el (autoconf-new-program)
(autoconf-find-last-macro, autoconf-parameter-strip):
* lisp/cedet/ede/config.el (ede-target-with-config-build):
* lisp/cedet/ede/linux.el (ede-linux--detect-architecture)
(ede-linux--get-architecture):
* lisp/cedet/semantic/complete.el (semantic-collector-calculate-cache)
(semantic-displayer-abstract, semantic-displayer-point-position):
* lisp/cedet/semantic/format.el (semantic-format-face-alist)
(semantic-format-tag-short-doc):
* lisp/cedet/semantic/fw.el (semantic-find-file-noselect):
* lisp/cedet/semantic/idle.el (semantic-idle-scheduler-work-idle-time)
(semantic-idle-breadcrumbs-display-function)
(semantic-idle-breadcrumbs-format-tag-list-function):
* lisp/cedet/semantic/lex.el (semantic-lex-map-types)
(define-lex, define-lex-block-type-analyzer):
* lisp/cedet/semantic/senator.el (senator-search-default-tag-filter):
* lisp/cedet/semantic/symref.el (semantic-symref-result)
(semantic-symref-hit-to-tag-via-db):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-new-variable)
(semantic-tag-new-include, semantic-tag-new-package)
(semantic-tag-set-faux, semantic-create-tag-proxy)
(semantic-tag-function-parent)
(semantic-tag-components-with-overlays):
* lisp/cedet/srecode/cpp.el (srecode-cpp-namespaces)
(srecode-semantic-handle-:c, srecode-semantic-apply-tag-to-dict):
* lisp/cedet/srecode/dictionary.el (srecode-create-dictionary)
(srecode-dictionary-add-entries, srecode-dictionary-lookup-name)
(srecode-create-dictionaries-from-tags):
* lisp/cmuscheme.el (scheme-compile-region):
* lisp/color.el (color-lab-to-lch):
* lisp/doc-view.el (doc-view-image-width)
(doc-view-set-up-single-converter):
* lisp/dynamic-setting.el (font-setting-change-default-font)
(dynamic-setting-handle-config-changed-event):
* lisp/elec-pair.el (electric-pair-text-pairs)
(electric-pair-skip-whitespace-function)
(electric-pair-string-bound-function):
* lisp/emacs-lisp/avl-tree.el (avl-tree--del-balance)
(avl-tree-member, avl-tree-mapcar, avl-tree-iter):
* lisp/emacs-lisp/bytecomp.el (byte-compile-generate-call-tree):
* lisp/emacs-lisp/checkdoc.el (checkdoc-autofix-flag)
(checkdoc-spellcheck-documentation-flag, checkdoc-ispell)
(checkdoc-ispell-current-buffer, checkdoc-ispell-interactive)
(checkdoc-ispell-message-interactive)
(checkdoc-ispell-message-text, checkdoc-ispell-start)
(checkdoc-ispell-continue, checkdoc-ispell-comments)
(checkdoc-ispell-defun):
* lisp/emacs-lisp/cl-generic.el (cl--generic-search-method):
* lisp/emacs-lisp/eieio-custom.el (eieio-read-customization-group):
* lisp/emacs-lisp/lisp.el (forward-sexp, up-list):
* lisp/emacs-lisp/package-x.el (package--archive-contents-from-file):
* lisp/emacs-lisp/package.el (package-desc)
(package--make-autoloads-and-stuff, package-hidden-regexps):
* lisp/emacs-lisp/tcover-ses.el (ses-exercise-startup):
* lisp/emacs-lisp/testcover.el (testcover-nohits)
(testcover-1value):
* lisp/epg.el (epg-receive-keys, epg-start-edit-key):
* lisp/erc/erc-backend.el (erc-server-processing-p)
(erc-split-line-length, erc-server-coding-system)
(erc-server-send, erc-message):
* lisp/erc/erc-button.el (erc-button-face, erc-button-alist)
(erc-browse-emacswiki):
* lisp/erc/erc-ezbounce.el (erc-ezbounce, erc-ezb-get-login):
* lisp/erc/erc-fill.el (erc-fill-variable-maximum-indentation):
* lisp/erc/erc-log.el (erc-current-logfile):
* lisp/erc/erc-match.el (erc-log-match-format)
(erc-text-matched-hook):
* lisp/erc/erc-netsplit.el (erc-netsplit, erc-netsplit-debug):
* lisp/erc/erc-networks.el (erc-server-alist)
(erc-networks-alist, erc-current-network):
* lisp/erc/erc-ring.el (erc-input-ring-index):
* lisp/erc/erc-speedbar.el (erc-speedbar)
(erc-speedbar-update-channel):
* lisp/erc/erc-stamp.el (erc-timestamp-only-if-changed-flag):
* lisp/erc/erc-track.el (erc-track-position-in-mode-line)
(erc-track-remove-from-mode-line, erc-modified-channels-update)
(erc-track-last-non-erc-buffer, erc-track-sort-by-importance)
(erc-track-get-active-buffer):
* lisp/erc/erc.el (erc-get-channel-user-list)
(erc-echo-notice-hook, erc-echo-notice-always-hook)
(erc-wash-quit-reason, erc-format-@nick):
* lisp/ffap.el (ffap-latex-mode):
* lisp/files.el (abort-if-file-too-large)
(dir-locals--get-sort-score, buffer-stale--default-function):
* lisp/filesets.el (filesets-tree-max-level, filesets-data)
(filesets-update-pre010505):
* lisp/gnus/gnus-agent.el (gnus-agent-flush-cache):
* lisp/gnus/gnus-art.el (gnus-article-encrypt-protocol)
(gnus-button-prefer-mid-or-mail):
* lisp/gnus/gnus-cus.el (gnus-group-parameters):
* lisp/gnus/gnus-demon.el (gnus-demon-handlers)
(gnus-demon-run-callback):
* lisp/gnus/gnus-dired.el (gnus-dired-print):
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event-from-buffer):
* lisp/gnus/gnus-range.el (gnus-range-normalize):
* lisp/gnus/gnus-spec.el (gnus-pad-form):
* lisp/gnus/gnus-srvr.el (gnus-server-agent, gnus-server-cloud)
(gnus-server-opened, gnus-server-closed, gnus-server-denied)
(gnus-server-offline):
* lisp/gnus/gnus-sum.el (gnus-refer-thread-use-nnir)
(gnus-refer-thread-limit-to-thread)
(gnus-summary-limit-include-thread, gnus-summary-refer-thread)
(gnus-summary-find-matching):
* lisp/gnus/gnus-util.el (gnus-rescale-image):
* lisp/gnus/gnus.el (gnus-summary-line-format, gnus-no-server):
* lisp/gnus/mail-source.el (mail-source-incoming-file-prefix):
* lisp/gnus/message.el (message-cite-reply-position)
(message-cite-style-outlook, message-cite-style-thunderbird)
(message-cite-style-gmail, message--send-mail-maybe-partially):
* lisp/gnus/mm-extern.el (mm-inline-external-body):
* lisp/gnus/mm-partial.el (mm-inline-partial):
* lisp/gnus/mml-sec.el (mml-secure-message-sign)
(mml-secure-message-sign-encrypt, mml-secure-message-encrypt):
* lisp/gnus/mml2015.el (mml2015-epg-key-image)
(mml2015-epg-key-image-to-string):
* lisp/gnus/nndiary.el (nndiary-reminders, nndiary-get-new-mail):
* lisp/gnus/nnheader.el (nnheader-directory-files-is-safe):
* lisp/gnus/nnir.el (nnir-search-history)
(nnir-imap-search-other, nnir-artlist-length)
(nnir-artlist-article, nnir-artitem-group, nnir-artitem-number)
(nnir-artitem-rsv, nnir-article-group, nnir-article-number)
(nnir-article-rsv, nnir-article-ids, nnir-categorize)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-hyrex-additional-switches)
(gnus-group-make-nnir-group, nnir-run-namazu, nnir-read-parms)
(nnir-read-parm, nnir-read-server-parm, nnir-search-thread):
* lisp/gnus/nnmairix.el (nnmairix-default-group)
(nnmairix-propagate-marks):
* lisp/gnus/smime.el (smime-keys, smime-crl-check)
(smime-verify-buffer, smime-noverify-buffer):
* lisp/gnus/spam-report.el (spam-report-url-ping-mm-url):
* lisp/gnus/spam.el (spam-spamassassin-positive-spam-flag-header)
(spam-spamassassin-spam-status-header, spam-sa-learn-rebuild)
(spam-classifications, spam-check-stat, spam-spamassassin-score):
* lisp/help.el (describe-minor-mode-from-symbol):
* lisp/hippie-exp.el (hippie-expand-ignore-buffers):
* lisp/htmlfontify.el (hfy-optimizations, hfy-face-resolve-face)
(hfy-begin-span):
* lisp/ibuf-ext.el (ibuffer-update-saved-filters-format)
(ibuffer-saved-filters, ibuffer-old-saved-filters-warning)
(ibuffer-filtering-qualifiers, ibuffer-repair-saved-filters)
(eval, ibuffer-unary-operand, file-extension, directory):
* lisp/image-dired.el (image-dired-cmd-pngcrush-options):
* lisp/image-mode.el (image-toggle-display):
* lisp/international/ccl.el (ccl-compile-read-multibyte-character)
(ccl-compile-write-multibyte-character):
* lisp/international/kkc.el (kkc-save-init-file):
* lisp/international/latin1-disp.el (latin1-display):
* lisp/international/ogonek.el (ogonek-name-encoding-alist)
(ogonek-information, ogonek-lookup-encoding)
(ogonek-deprefixify-region):
* lisp/isearch.el (isearch-filter-predicate)
(isearch--momentary-message):
* lisp/jsonrpc.el (jsonrpc-connection-send)
(jsonrpc-process-connection, jsonrpc-shutdown)
(jsonrpc--async-request-1):
* lisp/language/tibet-util.el (tibetan-char-p):
* lisp/mail/feedmail.el (feedmail-queue-use-send-time-for-date)
(feedmail-last-chance-hook, feedmail-before-fcc-hook)
(feedmail-send-it-immediately-wrapper, feedmail-find-eoh):
* lisp/mail/hashcash.el (hashcash-generate-payment)
(hashcash-generate-payment-async, hashcash-insert-payment)
(hashcash-verify-payment):
* lisp/mail/rmail.el (rmail-movemail-variant-in-use)
(rmail-get-attr-value):
* lisp/mail/rmailmm.el (rmail-mime-prefer-html, rmail-mime):
* lisp/mail/rmailsum.el (rmail-summary-show-message):
* lisp/mail/supercite.el (sc-raw-mode-toggle):
* lisp/man.el (Man-start-calling):
* lisp/mh-e/mh-acros.el (mh-do-at-event-location)
(mh-iterate-on-messages-in-region, mh-iterate-on-range):
* lisp/mh-e/mh-alias.el (mh-alias-system-aliases)
(mh-alias-reload, mh-alias-ali)
(mh-alias-canonicalize-suggestion, mh-alias-add-alias-to-file)
(mh-alias-add-alias):
* lisp/mouse.el (mouse-save-then-kill):
* lisp/net/browse-url.el (browse-url-default-macosx-browser):
* lisp/net/eudc.el (eudc-set, eudc-variable-protocol-value)
(eudc-variable-server-value, eudc-update-variable)
(eudc-expand-inline):
* lisp/net/eudcb-bbdb.el (eudc-bbdb-format-record-as-result):
* lisp/net/eudcb-ldap.el (eudc-ldap-get-field-list):
* lisp/net/pop3.el (pop3-list):
* lisp/net/soap-client.el (soap-namespace-put)
(soap-xs-parse-sequence, soap-parse-envelope):
* lisp/net/soap-inspect.el (soap-inspect-xs-complex-type):
* lisp/nxml/rng-xsd.el (rng-xsd-date-to-days):
* lisp/org/ob-C.el (org-babel-prep-session:C)
(org-babel-load-session:C):
* lisp/org/ob-J.el (org-babel-execute:J):
* lisp/org/ob-asymptote.el (org-babel-prep-session:asymptote):
* lisp/org/ob-awk.el (org-babel-execute:awk):
* lisp/org/ob-core.el (org-babel-process-file-name):
* lisp/org/ob-ebnf.el (org-babel-execute:ebnf):
* lisp/org/ob-forth.el (org-babel-execute:forth):
* lisp/org/ob-fortran.el (org-babel-execute:fortran)
(org-babel-prep-session:fortran, org-babel-load-session:fortran):
* lisp/org/ob-groovy.el (org-babel-execute:groovy):
* lisp/org/ob-io.el (org-babel-execute:io):
* lisp/org/ob-js.el (org-babel-execute:js):
* lisp/org/ob-lilypond.el (org-babel-default-header-args:lilypond)
(org-babel-lilypond-compile-post-tangle)
(org-babel-lilypond-display-pdf-post-tangle)
(org-babel-lilypond-tangle)
(org-babel-lilypond-execute-tangled-ly)
(org-babel-lilypond-compile-lilyfile)
(org-babel-lilypond-check-for-compile-error)
(org-babel-lilypond-process-compile-error)
(org-babel-lilypond-mark-error-line)
(org-babel-lilypond-parse-error-line)
(org-babel-lilypond-attempt-to-open-pdf)
(org-babel-lilypond-attempt-to-play-midi)
(org-babel-lilypond-switch-extension)
(org-babel-lilypond-set-header-args):
* lisp/org/ob-lua.el (org-babel-prep-session:lua):
* lisp/org/ob-picolisp.el (org-babel-execute:picolisp):
* lisp/org/ob-processing.el (org-babel-prep-session:processing):
* lisp/org/ob-python.el (org-babel-prep-session:python):
* lisp/org/ob-scheme.el (org-babel-scheme-capture-current-message)
(org-babel-scheme-execute-with-geiser, org-babel-execute:scheme):
* lisp/org/ob-shen.el (org-babel-execute:shen):
* lisp/org/org-agenda.el (org-agenda-entry-types)
(org-agenda-move-date-from-past-immediately-to-today)
(org-agenda-time-grid, org-agenda-sorting-strategy)
(org-agenda-filter-by-category, org-agenda-forward-block):
* lisp/org/org-colview.el (org-columns--overlay-text):
* lisp/org/org-faces.el (org-verbatim, org-cycle-level-faces):
* lisp/org/org-indent.el (org-indent-set-line-properties):
* lisp/org/org-macs.el (org-get-limited-outline-regexp):
* lisp/org/org-mobile.el (org-mobile-files):
* lisp/org/org.el (org-use-fast-todo-selection)
(org-extend-today-until, org-use-property-inheritance)
(org-refresh-effort-properties, org-open-at-point-global)
(org-track-ordered-property-with-tag, org-shiftright):
* lisp/org/ox-html.el (org-html-checkbox-type):
* lisp/org/ox-man.el (org-man-source-highlight)
(org-man-verse-block):
* lisp/org/ox-publish.el (org-publish-sitemap-default):
* lisp/outline.el (outline-head-from-level):
* lisp/progmodes/dcl-mode.el (dcl-back-to-indentation-1)
(dcl-calc-command-indent, dcl-indent-to):
* lisp/progmodes/flymake.el (flymake-make-diagnostic)
(flymake--overlays, flymake-diagnostic-functions)
(flymake-diagnostic-types-alist, flymake--backend-state)
(flymake-is-running, flymake--collect, flymake-mode):
* lisp/progmodes/gdb-mi.el (gdb-threads-list, gdb, gdb-non-stop)
(gdb-buffers, gdb-gud-context-call, gdb-jsonify-buffer):
* lisp/progmodes/grep.el (grep-error-screen-columns):
* lisp/progmodes/gud.el (gud-prev-expr):
* lisp/progmodes/ps-mode.el (ps-mode, ps-mode-target-column)
(ps-run-goto-error):
* lisp/progmodes/python.el (python-eldoc-get-doc)
(python-eldoc-function-timeout-permanent, python-eldoc-function):
* lisp/shadowfile.el (shadow-make-group):
* lisp/speedbar.el (speedbar-obj-do-check):
* lisp/textmodes/flyspell.el (flyspell-auto-correct-previous-hook):
* lisp/textmodes/reftex-cite.el (reftex-bib-or-thebib):
* lisp/textmodes/reftex-index.el (reftex-index-goto-entry)
(reftex-index-kill, reftex-index-undo):
* lisp/textmodes/reftex-parse.el (reftex-context-substring):
* lisp/textmodes/reftex.el (reftex-TeX-master-file):
* lisp/textmodes/rst.el (rst-next-hdr, rst-toc)
(rst-uncomment-region, rst-font-lock-extend-region-internal):
* lisp/thumbs.el (thumbs-mode):
* lisp/vc/ediff-util.el (ediff-restore-diff):
* lisp/vc/pcvs-defs.el (cvs-cvsroot, cvs-force-dir-tag):
* lisp/vc/vc-hg.el (vc-hg--ignore-patterns-valid-p):
* lisp/wid-edit.el (widget-field-value-set, string):
* lisp/x-dnd.el (x-dnd-version-from-flags)
(x-dnd-more-than-3-from-flags): Assorted docfixes.
2019-09-20 22:27:53 +00:00
|
|
|
by setting `allout-widgets-mode-inhibit'.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
Instead of setting `allout-widgets-auto-activation' you can
|
|
|
|
explicitly invoke `allout-widgets-mode' in allout buffers where
|
|
|
|
you want allout widgets operation.
|
|
|
|
|
|
|
|
See `allout-widgets-mode' for allout widgets mode features."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'boolean
|
|
|
|
:group 'allout-widgets
|
|
|
|
:set 'allout-widgets-setup
|
|
|
|
)
|
|
|
|
;; ;;;_ = allout-widgets-allow-unruly-edits
|
|
|
|
;; (defcustom allout-widgets-allow-unruly-edits nil
|
2012-04-09 13:05:48 +00:00
|
|
|
;; "Control whether manual edits are restricted to maintain outline integrity.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
;; When nil, manual edits must either be within an item's body or encompass
|
|
|
|
;; one or more items completely - eg, killing topics as entities, rather than
|
|
|
|
;; deleting from the middle of one to the middle of another.
|
|
|
|
|
|
|
|
;; If you only occasionally need to make unrestricted change, you can set this
|
|
|
|
;; variable in the specific buffer using set-variable, or just deactivate
|
|
|
|
;; `allout-mode' temporarily. You can customize this to always allow unruly
|
|
|
|
;; edits, but you will be able to create outlines that are unnavigable in
|
|
|
|
;; principle, and not just for allout's navigation and exposure mechanisms."
|
|
|
|
;; :type 'boolean
|
|
|
|
;; :group allout-widgets)
|
|
|
|
;; (make-variable-buffer-local 'allout-widgets-allow-unruly-edits)
|
|
|
|
;;;_ = allout-widgets-auto-activation - below, for eval-order dependencies
|
|
|
|
;;;_ = allout-widgets-icons-dark-subdir
|
2011-02-17 21:47:18 +00:00
|
|
|
(defcustom allout-widgets-icons-dark-subdir "icons/allout-widgets/dark-bg/"
|
2011-02-16 22:10:43 +00:00
|
|
|
"Directory on `image-load-path' holding allout icons for dark backgrounds."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'string
|
|
|
|
:group 'allout-widgets)
|
|
|
|
;;;_ = allout-widgets-icons-light-subdir
|
2011-02-17 21:47:18 +00:00
|
|
|
(defcustom allout-widgets-icons-light-subdir "icons/allout-widgets/light-bg/"
|
2011-02-16 22:10:43 +00:00
|
|
|
"Directory on `image-load-path' holding allout icons for light backgrounds."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'string
|
|
|
|
:group 'allout-widgets)
|
|
|
|
;;;_ = allout-widgets-icon-types
|
|
|
|
(defcustom allout-widgets-icon-types '(xpm png)
|
|
|
|
"File extensions for the icon graphic format types, in order of preference."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type '(repeat symbol)
|
|
|
|
:group 'allout-widgets)
|
|
|
|
|
|
|
|
;;;_ . Decoration format
|
|
|
|
;;;_ = allout-widgets-theme-dark-background
|
|
|
|
(defcustom allout-widgets-theme-dark-background "allout-dark-bg"
|
|
|
|
"Identify the outline's icon theme to use with a dark background."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type '(string)
|
|
|
|
:group 'allout-widgets)
|
|
|
|
;;;_ = allout-widgets-theme-light-background
|
|
|
|
(defcustom allout-widgets-theme-light-background "allout-light-bg"
|
|
|
|
"Identify the outline's icon theme to use with a light background."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type '(string)
|
|
|
|
:group 'allout-widgets)
|
|
|
|
;;;_ = allout-widgets-item-image-properties-emacs
|
|
|
|
(defcustom allout-widgets-item-image-properties-emacs
|
|
|
|
'(:ascent center :mask (heuristic t))
|
2012-04-09 13:05:48 +00:00
|
|
|
"Default properties item widget images in mainline Emacs."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'plist
|
|
|
|
:group 'allout-widgets)
|
|
|
|
;;;_ = allout-widgets-item-image-properties-xemacs
|
|
|
|
(defcustom allout-widgets-item-image-properties-xemacs
|
|
|
|
nil
|
2012-04-09 13:05:48 +00:00
|
|
|
"Default properties item widget images in XEmacs."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'plist
|
|
|
|
:group 'allout-widgets)
|
2020-08-12 23:23:46 +00:00
|
|
|
(make-obsolete-variable 'allout-widgets-item-image-properties-xemacs nil "28.1")
|
2011-02-16 22:10:43 +00:00
|
|
|
;;;_ . Developer
|
|
|
|
;;;_ = allout-widgets-time-decoration-activity
|
|
|
|
(defcustom allout-widgets-time-decoration-activity nil
|
2012-04-09 13:05:48 +00:00
|
|
|
"Retain timing info of the last cooperative redecoration.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
The details are retained as the value of
|
|
|
|
`allout-widgets-last-decoration-timing'.
|
|
|
|
|
|
|
|
Generally, allout widgets code developers are the only ones who'll want to
|
|
|
|
set this."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'boolean
|
|
|
|
:group 'allout-widgets-developer)
|
|
|
|
;;;_ = allout-widgets-hook-error-post-time 0
|
|
|
|
(defcustom allout-widgets-hook-error-post-time 0
|
2012-04-09 13:05:48 +00:00
|
|
|
"Amount of time to sit showing hook error messages.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
0 is minimal, or nil to not post to the message area.
|
|
|
|
|
|
|
|
This is for debugging purposes."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'integer
|
|
|
|
:group 'allout-widgets-developer)
|
|
|
|
;;;_ = allout-widgets-maintain-tally nil
|
|
|
|
(defcustom allout-widgets-maintain-tally nil
|
2012-04-09 13:05:48 +00:00
|
|
|
"If non-nil, maintain a collection of widgets, `allout-widgets-tally'.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
This is for debugging purposes.
|
|
|
|
|
|
|
|
The tally shows the total number of item widgets in the current
|
|
|
|
buffer, and tracking increases as new widgets are added and
|
|
|
|
decreases as obsolete widgets are garbage collected."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'boolean
|
|
|
|
:group 'allout-widgets-developer)
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-widgets-tally nil
|
2011-02-16 22:10:43 +00:00
|
|
|
"Hash-table of existing allout widgets, for debugging.
|
|
|
|
|
2014-05-01 23:55:25 +00:00
|
|
|
Table is maintained only if `allout-widgets-maintain-tally' is non-nil.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
The table contents will be out of sync if any widgets are created
|
|
|
|
or deleted while this variable is nil.")
|
2011-05-05 06:53:29 +00:00
|
|
|
(defvar allout-widgets-mode-inhibit) ; defined below
|
2011-02-16 22:10:43 +00:00
|
|
|
;;;_ > allout-widgets-tally-string
|
|
|
|
(defun allout-widgets-tally-string ()
|
2020-12-19 16:14:33 +00:00
|
|
|
"Return a string with number of tracked widgets, or empty string if not tracking.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
The string is formed for appending to the allout-mode mode-line lighter.
|
|
|
|
|
|
|
|
An empty string is also returned if tracking is inhibited or
|
|
|
|
widgets are locally inhibited.
|
|
|
|
|
|
|
|
The number varies according to the evanescence of objects on a
|
|
|
|
hash table with weak keys, so tracking of widget erasures is often delayed."
|
2011-06-26 16:47:39 +00:00
|
|
|
(when (and allout-widgets-maintain-tally
|
|
|
|
(not allout-widgets-mode-inhibit)
|
|
|
|
allout-widgets-tally)
|
2011-02-16 22:10:43 +00:00
|
|
|
(format ":%s" (hash-table-count allout-widgets-tally))))
|
|
|
|
;;;_ = allout-widgets-track-decoration nil
|
|
|
|
(defcustom allout-widgets-track-decoration nil
|
2012-04-09 13:05:48 +00:00
|
|
|
"If non-nil, show cursor position of each item decoration.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
This is for debugging purposes, and generally set at need in a
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
buffer rather than as a prevailing configuration (but it's handy
|
|
|
|
to publicize it by making it a customization variable)."
|
Add missing :version tags to new defgroups and defcustoms
* window.el (window-sides-slots):
* tool-bar.el (tool-bar-position):
* term/xterm.el (xterm-extra-capabilities):
* ses.el (ses-self-reference-early-detection):
* progmodes/verilog-mode.el (verilog-auto-declare-nettype)
(verilog-auto-wire-type)
(verilog-auto-delete-trailing-whitespace)
(verilog-auto-reset-blocking-in-non, verilog-auto-inst-sort)
(verilog-auto-tieoff-declaration):
* progmodes/sql.el (sql-login-hook, sql-ansi-statement-starters)
(sql-oracle-statement-starters, sql-oracle-scan-on):
* progmodes/prolog.el (prolog-align-comments-flag)
(prolog-indent-mline-comments-flag, prolog-object-end-to-0-flag)
(prolog-left-indent-regexp, prolog-paren-indent-p)
(prolog-paren-indent, prolog-parse-mode, prolog-keywords)
(prolog-types, prolog-mode-specificators)
(prolog-determinism-specificators, prolog-directives)
(prolog-electric-newline-flag, prolog-hungry-delete-key-flag)
(prolog-electric-dot-flag)
(prolog-electric-dot-full-predicate-template)
(prolog-electric-underscore-flag, prolog-electric-tab-flag)
(prolog-electric-if-then-else-flag, prolog-electric-colon-flag)
(prolog-electric-dash-flag, prolog-old-sicstus-keys-flag)
(prolog-program-switches, prolog-prompt-regexp)
(prolog-debug-on-string, prolog-debug-off-string)
(prolog-trace-on-string, prolog-trace-off-string)
(prolog-zip-on-string, prolog-zip-off-string)
(prolog-use-standard-consult-compile-method-flag)
(prolog-use-prolog-tokenizer-flag, prolog-imenu-flag)
(prolog-imenu-max-lines, prolog-info-predicate-index)
(prolog-underscore-wordchar-flag, prolog-use-sicstus-sd)
(prolog-char-quote-workaround):
* progmodes/cc-vars.el (c-defun-tactic):
* net/tramp.el (tramp-encoding-command-interactive)
(tramp-local-end-of-line):
* net/soap-client.el (soap-client):
* net/netrc.el (netrc-file):
* net/gnutls.el (gnutls):
* minibuffer.el (completion-category-overrides)
(completion-cycle-threshold)
(completion-pcm-complete-word-inserts-delimiters):
* man.el (Man-name-local-regexp):
* mail/feedmail.el (feedmail-display-full-frame):
* international/characters.el (glyphless-char-display-control):
* eshell/em-ls.el (eshell-ls-date-format):
* emacs-lisp/cl-indent.el (lisp-lambda-list-keyword-alignment)
(lisp-lambda-list-keyword-parameter-indentation)
(lisp-lambda-list-keyword-parameter-alignment):
* doc-view.el (doc-view-image-width, doc-view-unoconv-program):
* dired-x.el (dired-omit-verbose):
* cus-theme.el (custom-theme-allow-multiple-selections):
* calc/calc.el (calc-highlight-selections-with-faces)
(calc-lu-field-reference, calc-lu-power-reference)
(calc-note-threshold):
* battery.el (battery-mode-line-limit):
* arc-mode.el (archive-7z-extract, archive-7z-expunge)
(archive-7z-update):
* allout.el (allout-prefixed-keybindings)
(allout-unprefixed-keybindings)
(allout-inhibit-auto-fill-on-headline)
(allout-flattened-numbering-abbreviation):
* allout-widgets.el (allout-widgets-auto-activation)
(allout-widgets-icons-dark-subdir)
(allout-widgets-icons-light-subdir, allout-widgets-icon-types)
(allout-widgets-theme-dark-background)
(allout-widgets-theme-light-background)
(allout-widgets-item-image-properties-emacs)
(allout-widgets-item-image-properties-xemacs)
(allout-widgets-run-unit-tests-on-load)
(allout-widgets-time-decoration-activity)
(allout-widgets-hook-error-post-time)
(allout-widgets-track-decoration):
* gnus/sieve-manage.el (sieve-manage-default-stream):
* gnus/shr.el (shr):
* gnus/nnir.el (nnir-ignored-newsgroups, nnir-summary-line-format)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-notmuch-program)
(nnir-notmuch-additional-switches, nnir-notmuch-remove-prefix)
(nnir-method-default-engines):
* gnus/message.el (message-cite-reply-position):
* gnus/gssapi.el (gssapi-program):
* gnus/gravatar.el (gravatar):
* gnus/gnus-sum.el (gnus-refer-thread-use-nnir):
* gnus/gnus-registry.el (gnus-registry-unfollowed-addresses)
(gnus-registry-max-pruned-entries):
* gnus/gnus-picon.el (gnus-picon-inhibit-top-level-domains):
* gnus/gnus-int.el (gnus-after-set-mark-hook)
(gnus-before-update-mark-hook):
* gnus/gnus-async.el (gnus-async-post-fetch-function):
* gnus/auth-source.el (auth-source-cache-expiry):
Add missing :version tags to new defcustoms and defgroups.
2012-02-11 22:13:29 +00:00
|
|
|
:version "24.1"
|
2011-02-16 22:10:43 +00:00
|
|
|
:type 'boolean
|
|
|
|
:group 'allout-widgets-developer)
|
|
|
|
(make-variable-buffer-local 'allout-widgets-track-decoration)
|
|
|
|
|
|
|
|
;;;_ : Mode context - variables, hookup, and hooks
|
|
|
|
;;;_ . internal mode variables
|
|
|
|
;;;_ , Mode activation and environment
|
|
|
|
;;;_ = allout-widgets-version
|
|
|
|
(defvar allout-widgets-version "1.0"
|
|
|
|
"Version of currently loaded allout-widgets extension.")
|
|
|
|
;;;_ > allout-widgets-version
|
|
|
|
(defun allout-widgets-version (&optional here)
|
|
|
|
"Return string describing the loaded outline version."
|
|
|
|
(interactive "P")
|
|
|
|
(let ((msg (concat "Allout Outline Widgets Extension v "
|
|
|
|
allout-widgets-version)))
|
|
|
|
(if here (insert msg))
|
|
|
|
(message "%s" msg)
|
|
|
|
msg))
|
|
|
|
;;;_ = allout-widgets-mode-inhibit
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-widgets-mode-inhibit nil
|
2011-02-16 22:10:43 +00:00
|
|
|
"Inhibit `allout-widgets-mode' from activating widgets.
|
|
|
|
|
|
|
|
This also inhibits automatic adjustment of widgets to track allout outline
|
|
|
|
changes.
|
|
|
|
|
|
|
|
You can use this as a file local variable setting to disable
|
|
|
|
allout widgets enhancements in selected buffers while generally
|
|
|
|
enabling widgets by customizing `allout-widgets-auto-activation'.
|
|
|
|
|
|
|
|
In addition, you can invoked `allout-widgets-mode' allout-mode
|
|
|
|
buffers where this is set to enable and disable widget
|
|
|
|
enhancements, directly.")
|
|
|
|
;;;###autoload
|
2020-08-12 16:34:29 +00:00
|
|
|
(put 'allout-widgets-mode-inhibit 'safe-local-variable 'booleanp)
|
2011-02-16 22:10:43 +00:00
|
|
|
;;;_ = allout-inhibit-body-modification-hook
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-inhibit-body-modification-hook nil
|
2011-02-16 22:10:43 +00:00
|
|
|
"Override de-escaping of text-prefixes in item bodies during specific changes.
|
|
|
|
|
|
|
|
This is used by `allout-buffer-modification-handler' to signal such changes
|
|
|
|
to `allout-body-modification-handler', and is always reset by
|
|
|
|
`allout-post-command-business'.")
|
|
|
|
;;;_ = allout-widgets-icons-cache
|
|
|
|
(defvar allout-widgets-icons-cache nil
|
|
|
|
"Cache allout icon images, as an association list.
|
|
|
|
|
|
|
|
`allout-fetch-icon-image' uses this cache transparently, keying
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
images with lists containing the name of the icon directory (as
|
2011-02-16 22:10:43 +00:00
|
|
|
found on the `load-path') and the icon name.
|
|
|
|
|
2015-05-21 17:04:45 +00:00
|
|
|
Set this variable to nil to empty the cache, and have it replenish from the
|
2011-02-16 22:10:43 +00:00
|
|
|
filesystem.")
|
|
|
|
;;;_ = allout-widgets-unset-inhibit-read-only
|
|
|
|
(defvar allout-widgets-unset-inhibit-read-only nil
|
|
|
|
"Tell `allout-widgets-post-command-business' to unset `inhibit-read-only'.
|
|
|
|
|
|
|
|
Used by `allout-graphics-modification-handler'")
|
|
|
|
;;;_ = allout-widgets-reenable-before-change-handler
|
|
|
|
(defvar allout-widgets-reenable-before-change-handler nil
|
|
|
|
"Tell `allout-widgets-post-command-business' to reequip the handler.
|
|
|
|
|
|
|
|
Necessary because the handler sometimes deliberately raises an
|
|
|
|
error, causing it to be disabled.")
|
|
|
|
;;;_ , State for hooks
|
|
|
|
;;;_ = allout-unresolved-body-mod-workroster
|
|
|
|
(defvar allout-unresolved-body-mod-workroster (make-hash-table :size 16)
|
|
|
|
"List of body-overlays that did before-change business but not after-change.
|
|
|
|
|
|
|
|
See `allout-post-command-business' and `allout-body-modification-handler'.")
|
|
|
|
;;;_ = allout-structure-unruly-deletion-message
|
|
|
|
(defvar allout-structure-unruly-deletion-message
|
|
|
|
"Unruly edit prevented --
|
|
|
|
To change the bullet character: \\[allout-rebullet-current-heading]
|
|
|
|
To promote this item: \\[allout-shift-out]
|
|
|
|
To demote it: \\[allout-shift-in]
|
|
|
|
To delete it and offspring: \\[allout-kill-topic]
|
|
|
|
See \\[describe-mode] for many more options."
|
|
|
|
"Informative message presented on improper editing of outline structure.
|
|
|
|
|
|
|
|
The structure includes the guides lines, bullet, and bullet cue.")
|
|
|
|
;;;_ = allout-widgets-changes-record
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-widgets-changes-record nil
|
2011-02-16 22:10:43 +00:00
|
|
|
"Record outline changes for processing by post-command hook.
|
|
|
|
|
|
|
|
Entries on the list are lists whose first element is a symbol indicating
|
|
|
|
the change type and subsequent elements are data specific to that change
|
2015-09-03 22:31:12 +00:00
|
|
|
type. For example:
|
2011-02-16 22:10:43 +00:00
|
|
|
|
2015-09-03 22:31:12 +00:00
|
|
|
(exposure ALLOUT-EXPOSURE-FROM ALLOUT-EXPOSURE-TO ALLOUT-EXPOSURE-FLAG)
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
The changes are recorded in reverse order, with new values pushed
|
|
|
|
onto the front.")
|
|
|
|
;;;_ = allout-widgets-undo-exposure-record
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-widgets-undo-exposure-record nil
|
2011-02-16 22:10:43 +00:00
|
|
|
"Record outline undo traces for processing by post-command hook.
|
|
|
|
|
|
|
|
The changes are recorded in reverse order, with new values pushed
|
|
|
|
onto the front.")
|
|
|
|
;;;_ = allout-widgets-last-hook-error
|
|
|
|
(defvar allout-widgets-last-hook-error nil
|
|
|
|
"String holding last error string, for debugging purposes.")
|
|
|
|
;;;_ = allout-widgets-adjust-message-length-threshold 100
|
|
|
|
(defvar allout-widgets-adjust-message-length-threshold 100
|
|
|
|
"Display \"Adjusting widgets\" message above this number of pending changes."
|
|
|
|
)
|
|
|
|
;;;_ = allout-widgets-adjust-message-size-threshold 10000
|
|
|
|
(defvar allout-widgets-adjust-message-size-threshold 10000
|
|
|
|
"Display \"Adjusting widgets\" message above this size of pending changes."
|
|
|
|
)
|
|
|
|
;;;_ = allout-doing-exposure-undo-processor nil
|
|
|
|
(defvar allout-undo-exposure-in-progress nil
|
|
|
|
"Maintained true during `allout-widgets-exposure-undo-processor'")
|
|
|
|
;;;_ , Widget-specific outline text format
|
|
|
|
;;;_ = allout-escaped-prefix-regexp
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-escaped-prefix-regexp ""
|
2012-04-09 13:05:48 +00:00
|
|
|
"Regular expression for body text that would look like an item prefix if
|
2011-02-16 22:10:43 +00:00
|
|
|
not altered with an escape sequence.")
|
|
|
|
;;;_ , Widget element formatting
|
|
|
|
;;;_ = allout-item-icon-keymap
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-item-icon-keymap
|
2020-07-07 14:32:03 +00:00
|
|
|
(let ((km (make-sparse-keymap))
|
|
|
|
(as-parent (if (current-local-map)
|
|
|
|
(make-composed-keymap (current-local-map)
|
|
|
|
(current-global-map))
|
|
|
|
(current-global-map))))
|
|
|
|
;; The keymap parent is reset on the each local var when mode starts.
|
|
|
|
(set-keymap-parent km as-parent)
|
2011-02-16 22:10:43 +00:00
|
|
|
(dolist (digit '("0" "1" "2" "3"
|
|
|
|
"4" "5" "6" "7" "8" "9"))
|
|
|
|
(define-key km digit 'digit-argument))
|
|
|
|
(define-key km "-" 'negative-argument)
|
|
|
|
;; Override underlying mouse-1 and mouse-2 bindings in icon territory:
|
|
|
|
(define-key km [(mouse-1)] (lambda () (interactive) nil))
|
|
|
|
(define-key km [(mouse-2)] (lambda () (interactive) nil))
|
|
|
|
|
|
|
|
;; Catchall, handles actual keybindings, dynamically doing keymap lookups:
|
|
|
|
(define-key km [t] 'allout-item-icon-key-handler)
|
|
|
|
|
|
|
|
km)
|
|
|
|
"General tree-node key bindings.")
|
|
|
|
;;;_ = allout-item-body-keymap
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-item-body-keymap
|
2011-02-16 22:10:43 +00:00
|
|
|
(let ((km (make-sparse-keymap))
|
2020-07-07 14:32:03 +00:00
|
|
|
(as-parent (if (current-local-map)
|
|
|
|
(make-composed-keymap (current-local-map)
|
|
|
|
(current-global-map))
|
|
|
|
(current-global-map))))
|
|
|
|
;; The keymap parent is reset on the each local var when mode starts.
|
|
|
|
(set-keymap-parent km as-parent)
|
2011-02-16 22:10:43 +00:00
|
|
|
km)
|
|
|
|
"General key bindings for the text content of outline items.")
|
|
|
|
;;;_ = allout-body-span-category
|
|
|
|
(defvar allout-body-span-category nil
|
|
|
|
"Symbol carrying allout body-text overlay properties.")
|
|
|
|
;;;_ = allout-cue-span-keymap
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-cue-span-keymap
|
2011-02-16 22:10:43 +00:00
|
|
|
(let ((km (make-sparse-keymap)))
|
|
|
|
(set-keymap-parent km allout-item-icon-keymap)
|
|
|
|
km)
|
|
|
|
"Keymap used in the item cue area - the space between the icon and headline.")
|
|
|
|
;;;_ = allout-escapes-category
|
|
|
|
(defvar allout-escapes-category nil
|
|
|
|
"Symbol for category of text property used to hide escapes of prefix-like
|
|
|
|
text in allout item bodies.")
|
|
|
|
;;;_ = allout-guides-category
|
|
|
|
(defvar allout-guides-category nil
|
|
|
|
"Symbol carrying allout icon-guides overlay properties.")
|
|
|
|
;;;_ = allout-guides-span-category
|
|
|
|
(defvar allout-guides-span-category nil
|
|
|
|
"Symbol carrying allout icon and guide lines overlay properties.")
|
|
|
|
;;;_ = allout-icon-span-category
|
|
|
|
(defvar allout-icon-span-category nil
|
|
|
|
"Symbol carrying allout icon and guide lines overlay properties.")
|
|
|
|
;;;_ = allout-cue-span-category
|
|
|
|
(defvar allout-cue-span-category nil
|
|
|
|
"Symbol carrying common properties of the space following the outline icon.
|
|
|
|
|
|
|
|
\(That space is used to convey selected cues indicating body qualities,
|
|
|
|
including things like:
|
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
|
|
|
- encryption `~'
|
|
|
|
- numbering `#'
|
|
|
|
- indirect reference `@'
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
- distinctive bullets - see `allout-distinctive-bullets-string'.)")
|
2011-02-16 22:10:43 +00:00
|
|
|
;;;_ = allout-span-to-category
|
|
|
|
(defvar allout-span-to-category
|
|
|
|
'((:guides-span . allout-guides-span-category)
|
|
|
|
(:cue-span . allout-cue-span-category)
|
|
|
|
(:icon-span . allout-icon-span-category)
|
|
|
|
(:body-span . allout-body-span-category))
|
|
|
|
"Association list mapping span identifier to category identifier.")
|
|
|
|
;;;_ = allout-trailing-category
|
|
|
|
(defvar allout-trailing-category nil
|
|
|
|
"Symbol carrying common properties of an overlay's trailing newline.")
|
|
|
|
;;;_ , Developer
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-widgets-last-decoration-timing nil
|
2011-02-16 22:10:43 +00:00
|
|
|
"Timing details for the last cooperative decoration action.
|
|
|
|
|
|
|
|
This is maintained when `allout-widgets-time-decoration-activity' is set.
|
|
|
|
|
|
|
|
The value is a list containing two elements:
|
|
|
|
- the elapsed time as a number of seconds
|
|
|
|
- the list of changes processed, a la `allout-widgets-changes-record'.
|
|
|
|
|
|
|
|
When active, the value is revised each time automatic decoration activity
|
|
|
|
happens in the buffer.")
|
|
|
|
;;;_ . mode hookup
|
|
|
|
;;;_ > define-minor-mode allout-widgets-mode (arg)
|
|
|
|
;;;###autoload
|
|
|
|
(define-minor-mode allout-widgets-mode
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
"Toggle Allout Widgets mode.
|
|
|
|
|
|
|
|
Allout Widgets mode is an extension of Allout mode that provides
|
|
|
|
graphical decoration of outline structure. It is meant to
|
|
|
|
operate along with `allout-mode', via `allout-mode-hook'.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
The graphics include:
|
|
|
|
|
|
|
|
- guide lines connecting item bullet-icons with those of their subitems.
|
|
|
|
|
|
|
|
- icons for item bullets, varying to indicate whether or not the item
|
|
|
|
has subitems, and if so, whether or not the item is expanded.
|
|
|
|
|
|
|
|
- cue area between the bullet-icon and the start of the body headline,
|
|
|
|
for item numbering, encryption indicator, and distinctive bullets.
|
|
|
|
|
|
|
|
The bullet-icon and guide line graphics provide keybindings and mouse
|
|
|
|
bindings for easy outline navigation and exposure control, extending
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
outline hot-spot navigation (see `allout-mode')."
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
:lighter nil
|
|
|
|
:keymap nil
|
|
|
|
|
|
|
|
;; define-minor-mode handles any provided argument according to emacs
|
|
|
|
;; minor-mode conventions - '(elisp) Minor Mode Conventions' - and sets
|
|
|
|
;; allout-widgets-mode accordingly *before* running the body code, so we
|
|
|
|
;; cue on that.
|
|
|
|
(if allout-widgets-mode
|
|
|
|
;; Activating:
|
|
|
|
(progn
|
|
|
|
(allout-add-resumptions
|
|
|
|
;; XXX user may need say in line-truncation/hscrolling - an option
|
|
|
|
;; that abstracts mode.
|
|
|
|
;; truncate text lines to keep guide lines intact:
|
|
|
|
'(truncate-lines t)
|
|
|
|
;; and enable autoscrolling to ease view of text
|
|
|
|
'(auto-hscroll-mode t)
|
|
|
|
'(line-move-ignore-fields t)
|
|
|
|
'(widget-push-button-prefix "")
|
|
|
|
'(widget-push-button-suffix "")
|
|
|
|
;; allout-escaped-prefix-regexp depends on allout-regexp:
|
|
|
|
(list 'allout-escaped-prefix-regexp (concat "\\(\\\\\\)"
|
|
|
|
"\\(" allout-regexp "\\)")))
|
|
|
|
(allout-add-resumptions
|
|
|
|
(list 'allout-widgets-tally allout-widgets-tally)
|
|
|
|
(list 'allout-widgets-escapes-sanitization-regexp-pair
|
|
|
|
(list (concat "\\(\n\\|\\`\\)"
|
|
|
|
allout-escaped-prefix-regexp
|
|
|
|
)
|
|
|
|
;; Include everything but the escape symbol.
|
|
|
|
"\\1\\3"))
|
|
|
|
)
|
|
|
|
|
|
|
|
(add-hook 'after-change-functions 'allout-widgets-after-change-handler
|
|
|
|
nil t)
|
|
|
|
|
|
|
|
(allout-setup-text-properties)
|
|
|
|
(add-to-invisibility-spec '(allout-torso . t))
|
|
|
|
(add-to-invisibility-spec 'allout-escapes)
|
|
|
|
|
2020-07-07 14:32:03 +00:00
|
|
|
(let ((as-parent (if (current-local-map)
|
|
|
|
(make-composed-keymap (current-local-map)
|
|
|
|
(current-global-map))
|
|
|
|
(current-global-map))))
|
|
|
|
(set-keymap-parent allout-item-body-keymap as-parent)
|
|
|
|
;; allout-cue-span-keymap uses allout-item-icon-keymap as parent.
|
|
|
|
(set-keymap-parent allout-item-icon-keymap as-parent))
|
2011-02-16 22:10:43 +00:00
|
|
|
|
2012-05-02 10:57:03 +00:00
|
|
|
(add-hook 'allout-exposure-change-functions
|
2011-02-16 22:10:43 +00:00
|
|
|
'allout-widgets-exposure-change-recorder nil 'local)
|
2012-05-02 10:57:03 +00:00
|
|
|
(add-hook 'allout-structure-added-functions
|
2011-02-16 22:10:43 +00:00
|
|
|
'allout-widgets-additions-recorder nil 'local)
|
2012-05-02 10:57:03 +00:00
|
|
|
(add-hook 'allout-structure-deleted-functions
|
2011-02-16 22:10:43 +00:00
|
|
|
'allout-widgets-deletions-recorder nil 'local)
|
2012-05-02 10:57:03 +00:00
|
|
|
(add-hook 'allout-structure-shifted-functions
|
2011-02-16 22:10:43 +00:00
|
|
|
'allout-widgets-shifts-recorder nil 'local)
|
|
|
|
(add-hook 'allout-after-copy-or-kill-hook
|
|
|
|
'allout-widgets-after-copy-or-kill-function nil 'local)
|
2011-07-05 18:54:08 +00:00
|
|
|
(add-hook 'allout-post-undo-hook
|
|
|
|
'allout-widgets-after-undo-function nil 'local)
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
(add-hook 'before-change-functions 'allout-widgets-before-change-handler
|
|
|
|
nil 'local)
|
|
|
|
(add-hook 'post-command-hook 'allout-widgets-post-command-business
|
|
|
|
nil 'local)
|
|
|
|
(add-hook 'pre-command-hook 'allout-widgets-pre-command-business
|
|
|
|
nil 'local)
|
|
|
|
|
|
|
|
;; init the widgets tally for debugging:
|
|
|
|
(if (not allout-widgets-tally)
|
|
|
|
(setq allout-widgets-tally (make-hash-table
|
|
|
|
:test 'eq :weakness 'key)))
|
|
|
|
;; add tally count display on minor-mode-alist just after
|
|
|
|
;; allout-mode entry.
|
|
|
|
;; (we use ternary condition form to keep condition simple for deletion.)
|
|
|
|
(let* ((mode-line-entry '(allout-widgets-mode-inhibit ""
|
|
|
|
(:eval (allout-widgets-tally-string))))
|
|
|
|
(associated (assoc (car mode-line-entry) minor-mode-alist))
|
|
|
|
;; need location for it only if not already present:
|
|
|
|
(after (and (not associated)
|
|
|
|
(memq (assq 'allout-mode minor-mode-alist) minor-mode-alist))))
|
|
|
|
(if after
|
|
|
|
(rplacd after (cons mode-line-entry (cdr after)))))
|
|
|
|
(allout-widgets-prepopulate-buffer)
|
|
|
|
t)
|
|
|
|
;; Deactivating:
|
|
|
|
(let ((inhibit-read-only t)
|
|
|
|
(was-modified (buffer-modified-p)))
|
|
|
|
|
|
|
|
(allout-widgets-undecorate-region (point-min)(point-max))
|
|
|
|
(remove-from-invisibility-spec '(allout-torso . t))
|
|
|
|
(remove-from-invisibility-spec 'allout-escapes)
|
|
|
|
|
|
|
|
(remove-hook 'after-change-functions
|
|
|
|
'allout-widgets-after-change-handler 'local)
|
2012-05-02 10:57:03 +00:00
|
|
|
(remove-hook 'allout-exposure-change-functions
|
2011-02-16 22:10:43 +00:00
|
|
|
'allout-widgets-exposure-change-recorder 'local)
|
2012-05-02 10:57:03 +00:00
|
|
|
(remove-hook 'allout-structure-added-functions
|
2011-02-16 22:10:43 +00:00
|
|
|
'allout-widgets-additions-recorder 'local)
|
2012-05-02 10:57:03 +00:00
|
|
|
(remove-hook 'allout-structure-deleted-functions
|
2011-02-16 22:10:43 +00:00
|
|
|
'allout-widgets-deletions-recorder 'local)
|
2012-05-02 10:57:03 +00:00
|
|
|
(remove-hook 'allout-structure-shifted-functions
|
2011-02-16 22:10:43 +00:00
|
|
|
'allout-widgets-shifts-recorder 'local)
|
|
|
|
(remove-hook 'allout-after-copy-or-kill-hook
|
|
|
|
'allout-widgets-after-copy-or-kill-function 'local)
|
|
|
|
(remove-hook 'before-change-functions
|
|
|
|
'allout-widgets-before-change-handler 'local)
|
|
|
|
(remove-hook 'post-command-hook
|
|
|
|
'allout-widgets-post-command-business 'local)
|
|
|
|
(remove-hook 'pre-command-hook
|
|
|
|
'allout-widgets-pre-command-business 'local)
|
|
|
|
(assq-delete-all 'allout-widgets-mode-inhibit minor-mode-alist)
|
|
|
|
(set-buffer-modified-p was-modified))))
|
|
|
|
;;;_ > allout-widgets-mode-off
|
|
|
|
(defun allout-widgets-mode-off ()
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
"Explicitly disable `allout-widgets-mode'."
|
2011-02-16 22:10:43 +00:00
|
|
|
(allout-widgets-mode -1))
|
|
|
|
;;;_ > allout-widgets-mode-off
|
|
|
|
(defun allout-widgets-mode-on ()
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
"Explicitly enable `allout-widgets-mode'."
|
2011-02-16 22:10:43 +00:00
|
|
|
(allout-widgets-mode 1))
|
|
|
|
;;;_ > allout-setup-text-properties ()
|
|
|
|
(defun allout-setup-text-properties ()
|
|
|
|
"Configure category and literal text properties."
|
|
|
|
|
|
|
|
;; XXX body - before-change, entry, keymap
|
|
|
|
|
|
|
|
(setplist 'allout-guides-span-category nil)
|
|
|
|
(put 'allout-guides-span-category
|
|
|
|
'modification-hooks '(allout-graphics-modification-handler))
|
|
|
|
(put 'allout-guides-span-category 'local-map allout-item-icon-keymap)
|
|
|
|
(put 'allout-guides-span-category 'mouse-face widget-button-face)
|
|
|
|
(put 'allout-guides-span-category 'field 'structure)
|
|
|
|
;; (put 'allout-guides-span-category 'face 'widget-button)
|
|
|
|
|
|
|
|
(setplist 'allout-icon-span-category
|
|
|
|
(allout-widgets-copy-list (symbol-plist
|
|
|
|
'allout-guides-span-category)))
|
|
|
|
(put 'allout-icon-span-category 'field 'structure)
|
|
|
|
|
|
|
|
;; XXX for body text we're instead going to use the buffer-wide
|
|
|
|
;; resources, like before/after-change-functions hooks and the
|
|
|
|
;; buffer's key map. that way we won't have to do painful provisions
|
|
|
|
;; to fixup things after edits, catch outlier interstitial
|
|
|
|
;; characters, like newline and empty lines after hidden subitems,
|
|
|
|
;; etc.
|
|
|
|
(setplist 'allout-body-span-category nil)
|
|
|
|
(put 'allout-body-span-category 'evaporate t)
|
|
|
|
(put 'allout-body-span-category 'local-map allout-item-body-keymap)
|
|
|
|
;;(put 'allout-body-span-category
|
|
|
|
;; 'modification-hooks '(allout-body-modification-handler))
|
|
|
|
;;(put 'allout-body-span-category 'field 'body)
|
|
|
|
|
|
|
|
(setplist 'allout-cue-span-category nil)
|
|
|
|
(put 'allout-cue-span-category 'evaporate t)
|
|
|
|
(put 'allout-cue-span-category
|
2020-07-05 20:27:52 +00:00
|
|
|
'modification-hooks '(allout-graphics-modification-handler))
|
2011-02-16 22:10:43 +00:00
|
|
|
(put 'allout-cue-span-category 'local-map allout-cue-span-keymap)
|
|
|
|
(put 'allout-cue-span-category 'mouse-face widget-button-face)
|
|
|
|
(put 'allout-cue-span-category 'pointer 'arrow)
|
|
|
|
(put 'allout-cue-span-category 'field 'structure)
|
|
|
|
|
|
|
|
(setplist 'allout-trailing-category nil)
|
|
|
|
(put 'allout-trailing-category 'evaporate t)
|
|
|
|
(put 'allout-trailing-category 'local-map allout-item-body-keymap)
|
|
|
|
|
|
|
|
(setplist 'allout-escapes-category nil)
|
|
|
|
(put 'allout-escapes-category 'invisible 'allout-escapes)
|
|
|
|
(put 'allout-escapes-category 'evaporate t))
|
|
|
|
;;;_ > allout-widgets-prepopulate-buffer ()
|
|
|
|
(defun allout-widgets-prepopulate-buffer ()
|
|
|
|
"Step over the current buffers exposed items to do initial widgetizing."
|
|
|
|
(if (not allout-widgets-mode-inhibit)
|
|
|
|
(save-excursion
|
|
|
|
(goto-char (point-min))
|
|
|
|
(while (allout-next-visible-heading 1)
|
|
|
|
(when (not (widget-at (point)))
|
|
|
|
(allout-get-or-create-item-widget))))))
|
|
|
|
;;;_ . settings context
|
|
|
|
;;;_ = allout-container-item
|
Prefer defvar-local in allout
* lisp/allout.el (allout-just-did-undo, allout-mode)
(allout-layout, allout-regexp, allout-bullets-string)
(allout-bullets-string-len, allout-depth-specific-regexp)
(allout-depth-one-regexp, allout-line-boundary-regexp)
(allout-bob-regexp, allout-header-subtraction)
(allout-plain-bullets-string-len, allout-mode-prior-settings)
(allout-outside-normal-auto-fill-function)
(allout-encryption-plaintext-sanitization-regexps)
(allout-encryption-ciphertext-rejection-regexps)
(allout-explicitly-deactivated, allout-recent-prefix-beginning)
(allout-recent-prefix-end, allout-recent-depth)
(allout-recent-end-of-subtree, allout-post-goto-bullet)
(allout-command-counter, allout-this-command-hid-text):
* lisp/allout-widgets.el (allout-widgets-mode)
(allout-widgets-tally, allout-widgets-mode-inhibit)
(allout-inhibit-body-modification-hook)
(allout-widgets-changes-record)
(allout-widgets-undo-exposure-record)
(allout-escaped-prefix-regexp, allout-item-icon-keymap)
(allout-item-body-keymap, allout-cue-span-keymap)
(allout-widgets-last-decoration-timing)
(allout-container-item-widget): Prefer defvar-local.
2021-01-31 13:35:44 +00:00
|
|
|
(defvar-local allout-container-item-widget nil
|
2011-02-16 22:10:43 +00:00
|
|
|
"A widget for the current outline's overarching container as an item.
|
|
|
|
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
The item has settings (of the file/connection) and maybe a body, but no
|
2011-02-16 22:10:43 +00:00
|
|
|
icon/bullet.")
|
|
|
|
;;;_ . Hooks and hook helpers
|
|
|
|
;;;_ , major command-loop business:
|
|
|
|
;;;_ > allout-widgets-pre-command-business (&optional recursing)
|
2013-08-08 23:59:14 +00:00
|
|
|
(defun allout-widgets-pre-command-business (&optional _recursing)
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
"Handle actions pending before `allout-mode' activity."
|
2011-02-16 22:10:43 +00:00
|
|
|
)
|
|
|
|
;;;_ > allout-widgets-post-command-business (&optional recursing)
|
2013-08-08 23:59:14 +00:00
|
|
|
(defun allout-widgets-post-command-business (&optional _recursing)
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
"Handle actions pending after any `allout-mode' commands.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
Optional RECURSING is for internal use, to limit recursion."
|
|
|
|
;; - check changed text for nesting discontinuities and escape anything
|
|
|
|
;; that's: (1) asterisks at bol or (2) excessively nested.
|
2013-08-08 23:59:14 +00:00
|
|
|
(condition-case nil
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
(when (and (boundp 'allout-mode) allout-mode)
|
|
|
|
|
|
|
|
(if allout-widgets-unset-inhibit-read-only
|
|
|
|
(setq inhibit-read-only nil
|
|
|
|
allout-widgets-unset-inhibit-read-only nil))
|
|
|
|
|
|
|
|
(when allout-widgets-reenable-before-change-handler
|
|
|
|
(add-hook 'before-change-functions
|
|
|
|
'allout-widgets-before-change-handler
|
|
|
|
nil 'local)
|
|
|
|
(setq allout-widgets-reenable-before-change-handler nil))
|
|
|
|
|
|
|
|
(when (or allout-widgets-undo-exposure-record
|
|
|
|
allout-widgets-changes-record)
|
|
|
|
(let* ((debug-on-signal t)
|
|
|
|
(debug-on-error t)
|
|
|
|
;; inhibit recording new undo records when processing
|
|
|
|
;; effects of undo-exposure:
|
|
|
|
(debugger 'allout-widgets-hook-error-handler)
|
|
|
|
(adjusting-message " Adjusting widgets...")
|
|
|
|
(replaced-message (allout-widgets-adjusting-message
|
|
|
|
adjusting-message))
|
|
|
|
(start-time (current-time)))
|
|
|
|
|
|
|
|
(if allout-widgets-undo-exposure-record
|
|
|
|
;; inhibit undo recording iff undoing exposure stuff.
|
|
|
|
;; XXX we might need to inhibit per respective
|
|
|
|
;; change-record, rather than assuming that some undo
|
|
|
|
;; activity during a command is all undo activity.
|
|
|
|
(let ((buffer-undo-list t))
|
|
|
|
(allout-widgets-exposure-undo-processor)
|
|
|
|
(allout-widgets-changes-dispatcher))
|
|
|
|
(allout-widgets-exposure-undo-processor)
|
|
|
|
(allout-widgets-changes-dispatcher))
|
|
|
|
|
|
|
|
(if allout-widgets-time-decoration-activity
|
|
|
|
(setq allout-widgets-last-decoration-timing
|
Prefer nil to (current-time) when either works
* doc/misc/gnus.texi (Category Syntax):
* lisp/allout-widgets.el (allout-widgets-post-command-business):
* lisp/cedet/ede/detect.el (ede-detect-qtest):
* lisp/cedet/pulse.el (pulse-momentary-highlight-overlay)
(pulse-tick):
* lisp/cedet/semantic.el (bovinate):
* lisp/cedet/semantic/analyze.el:
(semantic-analyze-current-symbol-default, semantic-adebug-analyze):
* lisp/cedet/semantic/analyze/refs.el (semantic-analyze-current-tag):
* lisp/cedet/semantic/lex.el (semantic-lex-test):
* lisp/cedet/semantic/symref/filter.el:
(semantic-symref-test-count-hits-in-tag):
* lisp/cedet/srecode/dictionary.el (srecode-adebug-dictionary):
* lisp/cedet/srecode/map.el (srecode-adebug-maps):
* lisp/desktop.el (desktop-create-buffer):
* lisp/emacs-lisp/benchmark.el (benchmark-elapse):
* lisp/emacs-lisp/elp.el (elp--make-wrapper):
* lisp/epa.el (epa--show-key):
* lisp/erc/erc.el (erc-lurker-cleanup, erc-lurker-p):
* lisp/gnus/gnus-agent.el (gnus-agent-fetch-articles)
(gnus-agent-expire-group-1, gnus-agent-store-article):
* lisp/gnus/gnus-art.el (article-lapsed-string):
* lisp/gnus/gnus-cloud.el (gnus-cloud-update-newsrc-data)
(gnus-cloud-collect-full-newsrc):
* lisp/gnus/gnus-group.el (gnus-group-timestamp-delta):
* lisp/gnus/gnus-html.el (gnus-html-cache-expired):
* lisp/gnus/gnus-score.el (gnus-score-load-file)
(gnus-decay-scores):
* lisp/gnus/nndiary.el (nndiary-expired-article-p):
* lisp/gnus/nnmail.el (nnmail-expired-article-p):
* lisp/gnus/nnmaildir.el (nnmaildir--scan):
* lisp/gnus/score-mode.el (gnus-score-edit-insert-date):
* lisp/image/gravatar.el (gravatar-cache-expired):
* lisp/net/newst-backend.el (newsticker--image-get)
(newsticker--cache-mark-expired):
* lisp/nxml/rng-maint.el (rng-time-function):
* lisp/org/org-agenda.el (org-agenda-to-appt):
* lisp/org/org-clock.el (org-clock-resolve-clock)
(org-clock-resolve, org-resolve-clocks-if-idle):
* lisp/org/org-colview.el (org-columns-edit-value, org-columns)
(org-columns-compute-all, org-agenda-columns):
* lisp/org/org-element.el (org-element--cache-interrupt-p)
(org-element--cache-sync):
* lisp/org/org-habit.el (org-habit-get-faces)
(org-habit-insert-consistency-graphs):
* lisp/org/org-indent.el (org-indent-add-properties):
* lisp/org/org-timer.el (org-timer-start)
(org-timer-pause-or-continue, org-timer-seconds)
(org-timer-show-remaining-time, org-timer-set-timer):
* lisp/org/org.el (org-babel-load-file, org-current-time)
(org-today, org-auto-repeat-maybe, org-read-date-analyze)
(org-small-year-to-year, org-goto-calendar):
* lisp/org/ox.el (org-export-insert-default-template):
* lisp/time.el (emacs-uptime):
* lisp/type-break.el (type-break-mode, type-break)
(type-break-time-warning-schedule, type-break-check):
* lisp/url/url-cache.el (url-cache-expired):
* lisp/url/url.el (url-retrieve-synchronously):
* test/lisp/char-fold-tests.el (char-fold--speed-test):
* test/manual/cedet/semantic-ia-utest.el:
(semantic-symref-test-count-hits-in-tag):
* test/manual/cedet/semantic-tests.el (semantic-idle-pnf-test)
(semantic-lex-test-full-depth):
Use nil instead of (current-time) where either will do, as nil is
a bit more efficient and should have less timing error.
2017-10-21 02:40:09 +00:00
|
|
|
(list (allout-elapsed-time-seconds nil start-time)
|
2011-02-16 22:10:43 +00:00
|
|
|
allout-widgets-changes-record)))
|
|
|
|
|
|
|
|
(setq allout-widgets-changes-record nil)
|
|
|
|
|
|
|
|
(if replaced-message
|
|
|
|
(if (stringp replaced-message)
|
|
|
|
(message replaced-message)
|
|
|
|
(message "")))))
|
|
|
|
|
2011-06-26 16:47:39 +00:00
|
|
|
;; alas, decorated intermediate matches are not easily undecorated
|
|
|
|
;; when they're automatically rehidden by isearch, so we're
|
|
|
|
;; dropping this nicety.
|
|
|
|
;; ;; Detect undecorated items, eg during isearch into previously
|
|
|
|
;; ;; unexposed topics, and decorate "economically". Some
|
|
|
|
;; ;; undecorated stuff is often exposed, to reduce lag, but the
|
|
|
|
;; ;; item containing the cursor is decorated. We constrain
|
|
|
|
;; ;; recursion to avoid being trapped by unexpectedly undecoratable
|
|
|
|
;; ;; items.
|
|
|
|
;; (when (and (not recursing)
|
|
|
|
;; (not (allout-current-decorated-p))
|
|
|
|
;; (or (not (equal (allout-depth) 0))
|
|
|
|
;; (not allout-container-item-widget)))
|
|
|
|
;; (let ((buffer-undo-list t))
|
|
|
|
;; (allout-widgets-exposure-change-recorder
|
|
|
|
;; allout-recent-prefix-beginning allout-recent-prefix-end nil)
|
|
|
|
;; (allout-widgets-post-command-business 'recursing)))
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
;; Detect and rectify fouled outline structure - decorated item
|
|
|
|
;; not at beginning of line.
|
|
|
|
(let ((this-widget (or (widget-at (point))
|
|
|
|
;; XXX we really should be checking across
|
|
|
|
;; edited span, not just point and point+1
|
|
|
|
(and (not (eq (point) (point-max)))
|
|
|
|
(widget-at (1+ (point))))))
|
|
|
|
inserted-at)
|
|
|
|
(save-excursion
|
|
|
|
(if (and this-widget
|
|
|
|
(goto-char (widget-get this-widget :from))
|
|
|
|
(not (bolp)))
|
|
|
|
(if (not
|
2013-08-08 23:59:14 +00:00
|
|
|
(condition-case nil
|
2011-02-16 22:10:43 +00:00
|
|
|
(yes-or-no-p
|
|
|
|
(concat "Misplaced item won't be recognizable "
|
|
|
|
" as part of outline - rectify? "))
|
|
|
|
(quit nil)))
|
|
|
|
(progn
|
|
|
|
(if (allout-hidden-p (max (1- (point)) 1))
|
|
|
|
(save-excursion
|
|
|
|
(goto-char (max (1- (point)) 1))
|
|
|
|
(allout-show-to-offshoot)))
|
|
|
|
(allout-widgets-undecorate-item this-widget))
|
|
|
|
;; expose any hidden intervening items, so resulting
|
|
|
|
;; position is clear:
|
|
|
|
(setq inserted-at (point))
|
|
|
|
(allout-unprotected (insert-before-markers "\n"))
|
|
|
|
(forward-char -1)
|
|
|
|
;; ensure the inserted newline is visible:
|
|
|
|
(allout-flag-region inserted-at (1+ inserted-at) nil)
|
|
|
|
(allout-widgets-post-command-business 'recursing)
|
|
|
|
(message (concat "outline structure corrected - item"
|
|
|
|
" moved to beginning of new line"))
|
|
|
|
;; preserve cursor position in some cases:
|
|
|
|
(if (and inserted-at
|
|
|
|
(> (point) inserted-at))
|
|
|
|
(forward-char -1)))))))
|
|
|
|
|
|
|
|
(error
|
2011-11-17 17:40:48 +00:00
|
|
|
;; zero work list so we don't get stuck futilely retrying.
|
2011-02-16 22:10:43 +00:00
|
|
|
;; error recording done by allout-widgets-hook-error-handler.
|
|
|
|
(setq allout-widgets-changes-record nil))))
|
|
|
|
;;;_ , major change handlers:
|
|
|
|
;;;_ > allout-widgets-before-change-handler
|
|
|
|
(defun allout-widgets-before-change-handler (beg end)
|
|
|
|
"Business to be done before changes in a widgetized allout outline."
|
|
|
|
;; protect against unruly edits to structure:
|
|
|
|
(cond
|
|
|
|
(undo-in-progress (when (eq (get-text-property beg 'category)
|
|
|
|
'allout-icon-span-category)
|
|
|
|
(save-excursion
|
|
|
|
(goto-char beg)
|
|
|
|
(let* ((item-widget (allout-get-item-widget)))
|
|
|
|
(if item-widget
|
|
|
|
(allout-widgets-exposure-undo-recorder
|
|
|
|
item-widget))))))
|
|
|
|
(inhibit-read-only t)
|
|
|
|
((not (and (boundp 'allout-mode) allout-mode)) t)
|
|
|
|
((equal this-command 'quoted-insert) t)
|
|
|
|
((not (text-property-any beg (if (equal end beg)
|
|
|
|
(min (1+ beg) (point-max))
|
|
|
|
end)
|
|
|
|
'field 'structure))
|
|
|
|
t)
|
|
|
|
((yes-or-no-p "Unruly edit of outline structure - allow? ")
|
|
|
|
(setq allout-widgets-unset-inhibit-read-only (not inhibit-read-only)
|
|
|
|
inhibit-read-only t))
|
|
|
|
(t
|
|
|
|
;; tell the allout-widgets-post-command-business to reestablish the hook:
|
|
|
|
(setq allout-widgets-reenable-before-change-handler t)
|
|
|
|
;; and raise an error to prevent the edit (and disable the hook):
|
2015-08-06 02:06:57 +00:00
|
|
|
(error "%s"
|
2011-02-16 22:10:43 +00:00
|
|
|
(substitute-command-keys allout-structure-unruly-deletion-message)))))
|
|
|
|
;;;_ > allout-widgets-after-change-handler
|
2013-08-08 23:59:14 +00:00
|
|
|
(defun allout-widgets-after-change-handler (_beg _end _prelength)
|
2011-02-16 22:10:43 +00:00
|
|
|
"Reconcile what needs to be reconciled for allout widgets after edits."
|
|
|
|
)
|
|
|
|
;;;_ > allout-current-decorated-p ()
|
|
|
|
(defun allout-current-decorated-p ()
|
lisp/*.el: Fix typos and other trivial doc fixes
* lisp/allout-widgets.el (allout-widgets-auto-activation)
(allout-current-decorated-p):
* lisp/auth-source.el (auth-source-protocols):
* lisp/autorevert.el (auto-revert-set-timer):
* lisp/battery.el (battery-mode-line-limit):
* lisp/calc/calcalg3.el (math-map-binop):
* lisp/calendar/cal-dst.el (calendar-dst-find-startend):
* lisp/calendar/cal-mayan.el (calendar-mayan-long-count-to-absolute):
* lisp/calendar/calendar.el (calendar-date-echo-text)
(calendar-generate-month, calendar-string-spread)
(calendar-cursor-to-date, calendar-read, calendar-read-date)
(calendar-mark-visible-date, calendar-dayname-on-or-before):
* lisp/calendar/diary-lib.el (diary-ordinal-suffix):
* lisp/cedet/ede/autoconf-edit.el (autoconf-new-program)
(autoconf-find-last-macro, autoconf-parameter-strip):
* lisp/cedet/ede/config.el (ede-target-with-config-build):
* lisp/cedet/ede/linux.el (ede-linux--detect-architecture)
(ede-linux--get-architecture):
* lisp/cedet/semantic/complete.el (semantic-collector-calculate-cache)
(semantic-displayer-abstract, semantic-displayer-point-position):
* lisp/cedet/semantic/format.el (semantic-format-face-alist)
(semantic-format-tag-short-doc):
* lisp/cedet/semantic/fw.el (semantic-find-file-noselect):
* lisp/cedet/semantic/idle.el (semantic-idle-scheduler-work-idle-time)
(semantic-idle-breadcrumbs-display-function)
(semantic-idle-breadcrumbs-format-tag-list-function):
* lisp/cedet/semantic/lex.el (semantic-lex-map-types)
(define-lex, define-lex-block-type-analyzer):
* lisp/cedet/semantic/senator.el (senator-search-default-tag-filter):
* lisp/cedet/semantic/symref.el (semantic-symref-result)
(semantic-symref-hit-to-tag-via-db):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-new-variable)
(semantic-tag-new-include, semantic-tag-new-package)
(semantic-tag-set-faux, semantic-create-tag-proxy)
(semantic-tag-function-parent)
(semantic-tag-components-with-overlays):
* lisp/cedet/srecode/cpp.el (srecode-cpp-namespaces)
(srecode-semantic-handle-:c, srecode-semantic-apply-tag-to-dict):
* lisp/cedet/srecode/dictionary.el (srecode-create-dictionary)
(srecode-dictionary-add-entries, srecode-dictionary-lookup-name)
(srecode-create-dictionaries-from-tags):
* lisp/cmuscheme.el (scheme-compile-region):
* lisp/color.el (color-lab-to-lch):
* lisp/doc-view.el (doc-view-image-width)
(doc-view-set-up-single-converter):
* lisp/dynamic-setting.el (font-setting-change-default-font)
(dynamic-setting-handle-config-changed-event):
* lisp/elec-pair.el (electric-pair-text-pairs)
(electric-pair-skip-whitespace-function)
(electric-pair-string-bound-function):
* lisp/emacs-lisp/avl-tree.el (avl-tree--del-balance)
(avl-tree-member, avl-tree-mapcar, avl-tree-iter):
* lisp/emacs-lisp/bytecomp.el (byte-compile-generate-call-tree):
* lisp/emacs-lisp/checkdoc.el (checkdoc-autofix-flag)
(checkdoc-spellcheck-documentation-flag, checkdoc-ispell)
(checkdoc-ispell-current-buffer, checkdoc-ispell-interactive)
(checkdoc-ispell-message-interactive)
(checkdoc-ispell-message-text, checkdoc-ispell-start)
(checkdoc-ispell-continue, checkdoc-ispell-comments)
(checkdoc-ispell-defun):
* lisp/emacs-lisp/cl-generic.el (cl--generic-search-method):
* lisp/emacs-lisp/eieio-custom.el (eieio-read-customization-group):
* lisp/emacs-lisp/lisp.el (forward-sexp, up-list):
* lisp/emacs-lisp/package-x.el (package--archive-contents-from-file):
* lisp/emacs-lisp/package.el (package-desc)
(package--make-autoloads-and-stuff, package-hidden-regexps):
* lisp/emacs-lisp/tcover-ses.el (ses-exercise-startup):
* lisp/emacs-lisp/testcover.el (testcover-nohits)
(testcover-1value):
* lisp/epg.el (epg-receive-keys, epg-start-edit-key):
* lisp/erc/erc-backend.el (erc-server-processing-p)
(erc-split-line-length, erc-server-coding-system)
(erc-server-send, erc-message):
* lisp/erc/erc-button.el (erc-button-face, erc-button-alist)
(erc-browse-emacswiki):
* lisp/erc/erc-ezbounce.el (erc-ezbounce, erc-ezb-get-login):
* lisp/erc/erc-fill.el (erc-fill-variable-maximum-indentation):
* lisp/erc/erc-log.el (erc-current-logfile):
* lisp/erc/erc-match.el (erc-log-match-format)
(erc-text-matched-hook):
* lisp/erc/erc-netsplit.el (erc-netsplit, erc-netsplit-debug):
* lisp/erc/erc-networks.el (erc-server-alist)
(erc-networks-alist, erc-current-network):
* lisp/erc/erc-ring.el (erc-input-ring-index):
* lisp/erc/erc-speedbar.el (erc-speedbar)
(erc-speedbar-update-channel):
* lisp/erc/erc-stamp.el (erc-timestamp-only-if-changed-flag):
* lisp/erc/erc-track.el (erc-track-position-in-mode-line)
(erc-track-remove-from-mode-line, erc-modified-channels-update)
(erc-track-last-non-erc-buffer, erc-track-sort-by-importance)
(erc-track-get-active-buffer):
* lisp/erc/erc.el (erc-get-channel-user-list)
(erc-echo-notice-hook, erc-echo-notice-always-hook)
(erc-wash-quit-reason, erc-format-@nick):
* lisp/ffap.el (ffap-latex-mode):
* lisp/files.el (abort-if-file-too-large)
(dir-locals--get-sort-score, buffer-stale--default-function):
* lisp/filesets.el (filesets-tree-max-level, filesets-data)
(filesets-update-pre010505):
* lisp/gnus/gnus-agent.el (gnus-agent-flush-cache):
* lisp/gnus/gnus-art.el (gnus-article-encrypt-protocol)
(gnus-button-prefer-mid-or-mail):
* lisp/gnus/gnus-cus.el (gnus-group-parameters):
* lisp/gnus/gnus-demon.el (gnus-demon-handlers)
(gnus-demon-run-callback):
* lisp/gnus/gnus-dired.el (gnus-dired-print):
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event-from-buffer):
* lisp/gnus/gnus-range.el (gnus-range-normalize):
* lisp/gnus/gnus-spec.el (gnus-pad-form):
* lisp/gnus/gnus-srvr.el (gnus-server-agent, gnus-server-cloud)
(gnus-server-opened, gnus-server-closed, gnus-server-denied)
(gnus-server-offline):
* lisp/gnus/gnus-sum.el (gnus-refer-thread-use-nnir)
(gnus-refer-thread-limit-to-thread)
(gnus-summary-limit-include-thread, gnus-summary-refer-thread)
(gnus-summary-find-matching):
* lisp/gnus/gnus-util.el (gnus-rescale-image):
* lisp/gnus/gnus.el (gnus-summary-line-format, gnus-no-server):
* lisp/gnus/mail-source.el (mail-source-incoming-file-prefix):
* lisp/gnus/message.el (message-cite-reply-position)
(message-cite-style-outlook, message-cite-style-thunderbird)
(message-cite-style-gmail, message--send-mail-maybe-partially):
* lisp/gnus/mm-extern.el (mm-inline-external-body):
* lisp/gnus/mm-partial.el (mm-inline-partial):
* lisp/gnus/mml-sec.el (mml-secure-message-sign)
(mml-secure-message-sign-encrypt, mml-secure-message-encrypt):
* lisp/gnus/mml2015.el (mml2015-epg-key-image)
(mml2015-epg-key-image-to-string):
* lisp/gnus/nndiary.el (nndiary-reminders, nndiary-get-new-mail):
* lisp/gnus/nnheader.el (nnheader-directory-files-is-safe):
* lisp/gnus/nnir.el (nnir-search-history)
(nnir-imap-search-other, nnir-artlist-length)
(nnir-artlist-article, nnir-artitem-group, nnir-artitem-number)
(nnir-artitem-rsv, nnir-article-group, nnir-article-number)
(nnir-article-rsv, nnir-article-ids, nnir-categorize)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-hyrex-additional-switches)
(gnus-group-make-nnir-group, nnir-run-namazu, nnir-read-parms)
(nnir-read-parm, nnir-read-server-parm, nnir-search-thread):
* lisp/gnus/nnmairix.el (nnmairix-default-group)
(nnmairix-propagate-marks):
* lisp/gnus/smime.el (smime-keys, smime-crl-check)
(smime-verify-buffer, smime-noverify-buffer):
* lisp/gnus/spam-report.el (spam-report-url-ping-mm-url):
* lisp/gnus/spam.el (spam-spamassassin-positive-spam-flag-header)
(spam-spamassassin-spam-status-header, spam-sa-learn-rebuild)
(spam-classifications, spam-check-stat, spam-spamassassin-score):
* lisp/help.el (describe-minor-mode-from-symbol):
* lisp/hippie-exp.el (hippie-expand-ignore-buffers):
* lisp/htmlfontify.el (hfy-optimizations, hfy-face-resolve-face)
(hfy-begin-span):
* lisp/ibuf-ext.el (ibuffer-update-saved-filters-format)
(ibuffer-saved-filters, ibuffer-old-saved-filters-warning)
(ibuffer-filtering-qualifiers, ibuffer-repair-saved-filters)
(eval, ibuffer-unary-operand, file-extension, directory):
* lisp/image-dired.el (image-dired-cmd-pngcrush-options):
* lisp/image-mode.el (image-toggle-display):
* lisp/international/ccl.el (ccl-compile-read-multibyte-character)
(ccl-compile-write-multibyte-character):
* lisp/international/kkc.el (kkc-save-init-file):
* lisp/international/latin1-disp.el (latin1-display):
* lisp/international/ogonek.el (ogonek-name-encoding-alist)
(ogonek-information, ogonek-lookup-encoding)
(ogonek-deprefixify-region):
* lisp/isearch.el (isearch-filter-predicate)
(isearch--momentary-message):
* lisp/jsonrpc.el (jsonrpc-connection-send)
(jsonrpc-process-connection, jsonrpc-shutdown)
(jsonrpc--async-request-1):
* lisp/language/tibet-util.el (tibetan-char-p):
* lisp/mail/feedmail.el (feedmail-queue-use-send-time-for-date)
(feedmail-last-chance-hook, feedmail-before-fcc-hook)
(feedmail-send-it-immediately-wrapper, feedmail-find-eoh):
* lisp/mail/hashcash.el (hashcash-generate-payment)
(hashcash-generate-payment-async, hashcash-insert-payment)
(hashcash-verify-payment):
* lisp/mail/rmail.el (rmail-movemail-variant-in-use)
(rmail-get-attr-value):
* lisp/mail/rmailmm.el (rmail-mime-prefer-html, rmail-mime):
* lisp/mail/rmailsum.el (rmail-summary-show-message):
* lisp/mail/supercite.el (sc-raw-mode-toggle):
* lisp/man.el (Man-start-calling):
* lisp/mh-e/mh-acros.el (mh-do-at-event-location)
(mh-iterate-on-messages-in-region, mh-iterate-on-range):
* lisp/mh-e/mh-alias.el (mh-alias-system-aliases)
(mh-alias-reload, mh-alias-ali)
(mh-alias-canonicalize-suggestion, mh-alias-add-alias-to-file)
(mh-alias-add-alias):
* lisp/mouse.el (mouse-save-then-kill):
* lisp/net/browse-url.el (browse-url-default-macosx-browser):
* lisp/net/eudc.el (eudc-set, eudc-variable-protocol-value)
(eudc-variable-server-value, eudc-update-variable)
(eudc-expand-inline):
* lisp/net/eudcb-bbdb.el (eudc-bbdb-format-record-as-result):
* lisp/net/eudcb-ldap.el (eudc-ldap-get-field-list):
* lisp/net/pop3.el (pop3-list):
* lisp/net/soap-client.el (soap-namespace-put)
(soap-xs-parse-sequence, soap-parse-envelope):
* lisp/net/soap-inspect.el (soap-inspect-xs-complex-type):
* lisp/nxml/rng-xsd.el (rng-xsd-date-to-days):
* lisp/org/ob-C.el (org-babel-prep-session:C)
(org-babel-load-session:C):
* lisp/org/ob-J.el (org-babel-execute:J):
* lisp/org/ob-asymptote.el (org-babel-prep-session:asymptote):
* lisp/org/ob-awk.el (org-babel-execute:awk):
* lisp/org/ob-core.el (org-babel-process-file-name):
* lisp/org/ob-ebnf.el (org-babel-execute:ebnf):
* lisp/org/ob-forth.el (org-babel-execute:forth):
* lisp/org/ob-fortran.el (org-babel-execute:fortran)
(org-babel-prep-session:fortran, org-babel-load-session:fortran):
* lisp/org/ob-groovy.el (org-babel-execute:groovy):
* lisp/org/ob-io.el (org-babel-execute:io):
* lisp/org/ob-js.el (org-babel-execute:js):
* lisp/org/ob-lilypond.el (org-babel-default-header-args:lilypond)
(org-babel-lilypond-compile-post-tangle)
(org-babel-lilypond-display-pdf-post-tangle)
(org-babel-lilypond-tangle)
(org-babel-lilypond-execute-tangled-ly)
(org-babel-lilypond-compile-lilyfile)
(org-babel-lilypond-check-for-compile-error)
(org-babel-lilypond-process-compile-error)
(org-babel-lilypond-mark-error-line)
(org-babel-lilypond-parse-error-line)
(org-babel-lilypond-attempt-to-open-pdf)
(org-babel-lilypond-attempt-to-play-midi)
(org-babel-lilypond-switch-extension)
(org-babel-lilypond-set-header-args):
* lisp/org/ob-lua.el (org-babel-prep-session:lua):
* lisp/org/ob-picolisp.el (org-babel-execute:picolisp):
* lisp/org/ob-processing.el (org-babel-prep-session:processing):
* lisp/org/ob-python.el (org-babel-prep-session:python):
* lisp/org/ob-scheme.el (org-babel-scheme-capture-current-message)
(org-babel-scheme-execute-with-geiser, org-babel-execute:scheme):
* lisp/org/ob-shen.el (org-babel-execute:shen):
* lisp/org/org-agenda.el (org-agenda-entry-types)
(org-agenda-move-date-from-past-immediately-to-today)
(org-agenda-time-grid, org-agenda-sorting-strategy)
(org-agenda-filter-by-category, org-agenda-forward-block):
* lisp/org/org-colview.el (org-columns--overlay-text):
* lisp/org/org-faces.el (org-verbatim, org-cycle-level-faces):
* lisp/org/org-indent.el (org-indent-set-line-properties):
* lisp/org/org-macs.el (org-get-limited-outline-regexp):
* lisp/org/org-mobile.el (org-mobile-files):
* lisp/org/org.el (org-use-fast-todo-selection)
(org-extend-today-until, org-use-property-inheritance)
(org-refresh-effort-properties, org-open-at-point-global)
(org-track-ordered-property-with-tag, org-shiftright):
* lisp/org/ox-html.el (org-html-checkbox-type):
* lisp/org/ox-man.el (org-man-source-highlight)
(org-man-verse-block):
* lisp/org/ox-publish.el (org-publish-sitemap-default):
* lisp/outline.el (outline-head-from-level):
* lisp/progmodes/dcl-mode.el (dcl-back-to-indentation-1)
(dcl-calc-command-indent, dcl-indent-to):
* lisp/progmodes/flymake.el (flymake-make-diagnostic)
(flymake--overlays, flymake-diagnostic-functions)
(flymake-diagnostic-types-alist, flymake--backend-state)
(flymake-is-running, flymake--collect, flymake-mode):
* lisp/progmodes/gdb-mi.el (gdb-threads-list, gdb, gdb-non-stop)
(gdb-buffers, gdb-gud-context-call, gdb-jsonify-buffer):
* lisp/progmodes/grep.el (grep-error-screen-columns):
* lisp/progmodes/gud.el (gud-prev-expr):
* lisp/progmodes/ps-mode.el (ps-mode, ps-mode-target-column)
(ps-run-goto-error):
* lisp/progmodes/python.el (python-eldoc-get-doc)
(python-eldoc-function-timeout-permanent, python-eldoc-function):
* lisp/shadowfile.el (shadow-make-group):
* lisp/speedbar.el (speedbar-obj-do-check):
* lisp/textmodes/flyspell.el (flyspell-auto-correct-previous-hook):
* lisp/textmodes/reftex-cite.el (reftex-bib-or-thebib):
* lisp/textmodes/reftex-index.el (reftex-index-goto-entry)
(reftex-index-kill, reftex-index-undo):
* lisp/textmodes/reftex-parse.el (reftex-context-substring):
* lisp/textmodes/reftex.el (reftex-TeX-master-file):
* lisp/textmodes/rst.el (rst-next-hdr, rst-toc)
(rst-uncomment-region, rst-font-lock-extend-region-internal):
* lisp/thumbs.el (thumbs-mode):
* lisp/vc/ediff-util.el (ediff-restore-diff):
* lisp/vc/pcvs-defs.el (cvs-cvsroot, cvs-force-dir-tag):
* lisp/vc/vc-hg.el (vc-hg--ignore-patterns-valid-p):
* lisp/wid-edit.el (widget-field-value-set, string):
* lisp/x-dnd.el (x-dnd-version-from-flags)
(x-dnd-more-than-3-from-flags): Assorted docfixes.
2019-09-20 22:27:53 +00:00
|
|
|
"True if the current item is not decorated."
|
2011-02-16 22:10:43 +00:00
|
|
|
(save-excursion
|
|
|
|
(if (allout-back-to-current-heading)
|
|
|
|
(if (> allout-recent-depth 0)
|
|
|
|
(and (allout-get-item-widget) t)
|
|
|
|
allout-container-item-widget))))
|
|
|
|
|
|
|
|
;;;_ > allout-widgets-hook-error-handler
|
|
|
|
(defun allout-widgets-hook-error-handler (mode args)
|
|
|
|
"Process errors which occurred in the course of command hook operation.
|
|
|
|
|
|
|
|
We store a backtrace of the error information in the variable,
|
|
|
|
`allout-widgets-last-hook-error', unset the error handlers, and
|
|
|
|
reraise the error, so that processing continues to the
|
|
|
|
encompassing condition-case."
|
|
|
|
;; first deconstruct special error environment so errors here propagate
|
|
|
|
;; to encompassing condition-case:
|
|
|
|
(setq debugger 'debug
|
|
|
|
debug-on-error nil
|
|
|
|
debug-on-signal nil)
|
|
|
|
(let* ((bt (with-output-to-string (backtrace)))
|
|
|
|
(this "allout-widgets-hook-error-handler")
|
|
|
|
(header
|
|
|
|
(format "allout-widgets-last-hook-error stored, %s/%s %s %s"
|
|
|
|
this mode args
|
Simplify use of current-time and friends.
* doc/misc/org.texi (Dynamic blocks):
* lisp/allout-widgets.el (allout-widgets-hook-error-handler):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/icalendar.el (icalendar--convert-float-to-ical):
* lisp/calendar/timeclock.el (timeclock-in, timeclock-when-to-leave)
(timeclock-last-period, timeclock-day-base):
* lisp/eshell/em-ls.el (eshell-ls-file):
* lisp/eshell/esh-util.el (eshell-parse-ange-ls):
* lisp/generic-x.el (named-database-print-serial):
* lisp/net/newst-backend.el (newsticker--get-news-by-url-callback)
(newsticker-get-news, newsticker--sentinel-work)
(newsticker--image-get, newsticker--image-sentinel):
* lisp/net/tramp-sh.el (tramp-get-remote-touch):
* lisp/progmodes/opascal.el (opascal-debug-log):
* lisp/textmodes/remember.el (remember-mail-date)
(remember-store-in-files):
* lisp/vc/vc-annotate.el (vc-annotate-display-autoscale)
(vc-default-annotate-current-time):
* lisp/vc/vc-bzr.el (vc-bzr-shelve-snapshot):
* lisp/vc/vc-cvs.el (vc-cvs-annotate-current-time):
* lisp/vc/vc-rcs.el (vc-rcs-annotate-current-time):
* lisp/url/url-util.el (url-get-normalized-date):
* lisp/erc/erc-backend.el (TOPIC):
* lisp/gnus/gnus-delay.el (gnus-delay-article):
* lisp/gnus/gnus-sum.el (gnus-summary-read-document):
* lisp/gnus/gnus-util.el (gnus-seconds-today, gnus-seconds-month):
* lisp/gnus/message.el (message-make-expires-date):
* lisp/org/org-archive.el (org-archive-subtree)
(org-archive-to-archive-sibling):
* lisp/org/org-clock.el (org-resolve-clocks, org-clock-get-sum-start)
(org-clock-special-range):
* lisp/org/org-timer.el (org-timer-seconds):
* lisp/org/org.el (org-read-date-analyze, org-get-cursor-date):
* lisp/org/ox-html.el (org-html-format-spec):
* lisp/org/ox-icalendar.el (org-icalendar--vtodo):
Omit unnecessary call to current-time.
* lisp/calendar/time-date.el (time-to-seconds) [!float-time]:
* lisp/calendar/timeclock.el (timeclock-time-to-date):
* lisp/vc/vc-annotate.el (vc-annotate-convert-time):
Use current time if arg is nil, to be compatible with float-time.
(time-date--day-in-year): New function, with most of the guts of
the old time-to-day-in-year.
(time-to-day-in-year): Use it.
(time-to-days): Use it, to avoid decoding the same time stamp twice.
* lisp/calendar/timeclock.el (timeclock-update-mode-line):
* lisp/cedet/srecode/args.el (srecode-semantic-handle-:time):
* lisp/gnus/gnus-util.el (gnus-seconds-year):
* lisp/org/org.el (org-get-cursor-date):
Don't call current-time twice to get the current time stamp,
as this can lead to inconsistent results.
* lisp/completion.el (cmpl-hours-since-origin):
* lisp/erc/erc.el (erc-emacs-time-to-erc-time):
* lisp/ido.el (ido-time-stamp):
* lisp/vc/vc-annotate.el (vc-annotate-convert-time):
Simplify by using float-time.
* lisp/completion.el (save-completions-to-file):
* lisp/url/url-cache.el (url-cache-prune-cache):
Rename local var to avoid confusion.
* lisp/gnus/gnus-util.el (gnus-float-time):
* lisp/net/rcirc.el (rcirc-float-time):
* lisp/org/org-compat.el (org-float-time):
Simplify to an alias because time-to-seconds now behaves like float-time
with respect to nil arg.
* lisp/subr.el (progress-reporter-do-update):
Don't call float-time unless needed.
* lisp/erc/erc.el (erc-current-time): Simplify by using erc-emacs-time-to-erc-time.
* lisp/org/org-clock.el (org-clock-get-table-data): Omit unnecessary, lossy
conversion from floating point to Emacs time and back.
(org-resolve-clocks): Prefer two-argument floor.
2014-10-29 01:42:51 +00:00
|
|
|
(format-time-string "%e-%b-%Y %r"))))
|
2011-02-16 22:10:43 +00:00
|
|
|
;; post to *Messages* then immediately replace with more compact notice:
|
|
|
|
(message "%s" (setq allout-widgets-last-hook-error
|
|
|
|
(format "%s:\n%s" header bt)))
|
|
|
|
(message header) (sit-for allout-widgets-hook-error-post-time)
|
|
|
|
;; reraise the error, or one concerning this function if unexpected:
|
|
|
|
(if (equal mode 'error)
|
|
|
|
(apply 'signal args)
|
|
|
|
(error "%s: unexpected mode, %s %s" this mode args))))
|
|
|
|
;;;_ > allout-widgets-changes-exceed-threshold-p ()
|
|
|
|
(defun allout-widgets-adjusting-message (message)
|
|
|
|
"Post MESSAGE when pending are likely to make a big enough delay.
|
|
|
|
|
|
|
|
If posting of the MESSAGE is warranted and there already is a
|
|
|
|
`current-message' in the minibuffer, the MESSAGE is appended to
|
|
|
|
the current one, and the previously pending `current-message' is
|
|
|
|
returned for later posting on completion.
|
|
|
|
|
|
|
|
If posting of the MESSAGE is warranted, but no `current-message'
|
|
|
|
is pending, then t is returned to indicate that case.
|
|
|
|
|
|
|
|
If posting of the MESSAGE is not warranted, then nil is returned.
|
|
|
|
|
|
|
|
See `allout-widgets-adjust-message-length-threshold',
|
|
|
|
`allout-widgets-adjust-message-size-threshold' for message
|
|
|
|
posting threshold criteria."
|
|
|
|
(if (or (> (length allout-widgets-changes-record)
|
|
|
|
allout-widgets-adjust-message-length-threshold)
|
|
|
|
;; for size, use distance from start of first to end of last:
|
|
|
|
(let ((min (point-max))
|
|
|
|
(max 0)
|
|
|
|
first second)
|
2020-11-12 21:06:47 +00:00
|
|
|
(mapc (lambda (entry)
|
|
|
|
(if (eq :undone-exposure (car entry))
|
|
|
|
nil
|
|
|
|
(setq first (cadr entry)
|
|
|
|
second (caddr entry))
|
|
|
|
(if (< (min first second) min)
|
|
|
|
(setq min (min first second)))
|
|
|
|
(if (> (max first second) max)
|
|
|
|
(setq max (max first second)))))
|
2011-02-16 22:10:43 +00:00
|
|
|
allout-widgets-changes-record)
|
|
|
|
(> (- max min) allout-widgets-adjust-message-size-threshold)))
|
|
|
|
(let ((prior (current-message)))
|
|
|
|
(message (if prior (concat prior " - " message) message))
|
|
|
|
(or prior t))))
|
|
|
|
;;;_ > allout-widgets-changes-dispatcher ()
|
|
|
|
(defun allout-widgets-changes-dispatcher ()
|
|
|
|
"Dispatch CHANGES-RECORD items to respective widgets change processors."
|
|
|
|
|
|
|
|
(if (not allout-widgets-mode-inhibit)
|
|
|
|
(let* ((changes-record allout-widgets-changes-record)
|
|
|
|
(changes-pending (and changes-record t))
|
|
|
|
entry
|
|
|
|
exposures
|
|
|
|
additions
|
|
|
|
deletions
|
|
|
|
shifts)
|
|
|
|
|
|
|
|
(when changes-pending
|
|
|
|
(while changes-record
|
|
|
|
(setq entry (pop changes-record))
|
2019-05-23 03:21:47 +00:00
|
|
|
(pcase (car entry)
|
2011-02-16 22:10:43 +00:00
|
|
|
(:exposed (push entry exposures))
|
|
|
|
(:added (push entry additions))
|
|
|
|
(:deleted (push entry deletions))
|
|
|
|
(:shifted (push entry shifts))))
|
|
|
|
|
|
|
|
(if exposures
|
|
|
|
(allout-widgets-exposure-change-processor exposures))
|
|
|
|
(if additions
|
|
|
|
(allout-widgets-additions-processor additions))
|
|
|
|
(if deletions
|
|
|
|
(allout-widgets-deletions-processor deletions))
|
|
|
|
(if shifts
|
|
|
|
(allout-widgets-shifts-processor shifts))))
|
|
|
|
(when (not (equal allout-widgets-mode-inhibit 'undecorated))
|
|
|
|
(allout-widgets-undecorate-region (point-min)(point-max))
|
|
|
|
(setq allout-widgets-mode-inhibit 'undecorated))))
|
|
|
|
;;;_ > allout-widgets-exposure-change-recorder (from to flag)
|
|
|
|
(defun allout-widgets-exposure-change-recorder (from to flag)
|
|
|
|
"Record allout exposure changes for tracking during post-command processing.
|
|
|
|
|
|
|
|
Records changes in `allout-widgets-changes-record'."
|
|
|
|
(push (list :exposed from to flag) allout-widgets-changes-record))
|
|
|
|
;;;_ > allout-widgets-exposure-change-processor (changes)
|
|
|
|
(defun allout-widgets-exposure-change-processor (changes)
|
|
|
|
"Widgetize and adjust item widgets tracking allout outline exposure changes.
|
|
|
|
|
2012-05-02 10:57:03 +00:00
|
|
|
Generally invoked via `allout-exposure-change-functions'."
|
2011-02-16 22:10:43 +00:00
|
|
|
|
2020-11-12 21:06:47 +00:00
|
|
|
(let ((changes (sort changes (lambda (this next)
|
|
|
|
(< (cadr this) (cadr next)))))
|
2011-02-16 22:10:43 +00:00
|
|
|
;; have to distinguish between concealing and exposing so that, eg,
|
|
|
|
;; `allout-expose-topic's mix is handled properly.
|
|
|
|
handled-expose
|
2020-07-06 17:19:11 +00:00
|
|
|
handled-conceal
|
2011-02-16 22:10:43 +00:00
|
|
|
covered
|
|
|
|
deactivate-mark)
|
|
|
|
|
|
|
|
(dolist (change changes)
|
|
|
|
(let (handling
|
|
|
|
(from (cadr change))
|
|
|
|
bucket got
|
|
|
|
(to (caddr change))
|
|
|
|
(flag (cadddr change))
|
|
|
|
parent)
|
|
|
|
|
|
|
|
;; swap from and to:
|
|
|
|
(if (< to from) (setq bucket to
|
|
|
|
to from
|
|
|
|
from bucket))
|
|
|
|
|
|
|
|
;; have we already handled exposure changes in this region?
|
|
|
|
(setq handling (if flag 'handled-conceal 'handled-expose)
|
|
|
|
got (allout-range-overlaps from to (symbol-value handling))
|
|
|
|
covered (car got))
|
|
|
|
(set handling (cadr got))
|
|
|
|
|
|
|
|
(when (not covered)
|
|
|
|
(save-excursion
|
|
|
|
(goto-char from)
|
|
|
|
(cond
|
|
|
|
|
|
|
|
;; collapsing:
|
|
|
|
(flag
|
|
|
|
(allout-widgets-undecorate-region from to)
|
|
|
|
(allout-beginning-of-current-line)
|
|
|
|
(let ((widget (allout-get-item-widget)))
|
|
|
|
(if (not widget)
|
|
|
|
(allout-get-or-create-item-widget)
|
|
|
|
(widget-apply widget :redecorate))))
|
|
|
|
|
|
|
|
;; expanding:
|
|
|
|
(t
|
|
|
|
(while (< (point) to)
|
|
|
|
(allout-beginning-of-current-line)
|
|
|
|
(setq parent (allout-get-item-widget))
|
|
|
|
(if (not parent)
|
|
|
|
(setq parent (allout-get-or-create-item-widget))
|
|
|
|
(widget-apply parent :redecorate))
|
|
|
|
(allout-next-visible-heading 1)
|
|
|
|
(if (widget-get parent :has-subitems)
|
|
|
|
(allout-redecorate-visible-subtree parent))
|
|
|
|
(if (> (point) to)
|
|
|
|
;; subtree may be well beyond to - incorporate in ranges:
|
|
|
|
(setq handled-expose
|
|
|
|
(allout-range-overlaps from (point) handled-expose)
|
|
|
|
covered (car handled-expose)
|
|
|
|
handled-expose (cadr handled-expose)))
|
|
|
|
(allout-next-visible-heading 1))))))))))
|
|
|
|
|
|
|
|
;;;_ > allout-widgets-additions-recorder (from to)
|
|
|
|
(defun allout-widgets-additions-recorder (from to)
|
|
|
|
"Record allout item additions for tracking during post-command processing.
|
|
|
|
|
2012-05-02 10:57:03 +00:00
|
|
|
Intended for use on `allout-structure-added-functions'.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
FROM point at the start of the first new item and TO is point at the start
|
|
|
|
of the last one.
|
|
|
|
|
|
|
|
Records changes in `allout-widgets-changes-record'."
|
|
|
|
(push (list :added from to) allout-widgets-changes-record))
|
|
|
|
;;;_ > allout-widgets-additions-processor (changes)
|
|
|
|
(defun allout-widgets-additions-processor (changes)
|
|
|
|
"Widgetize and adjust items tracking allout outline structure additions.
|
|
|
|
|
|
|
|
Dispatched by `allout-widgets-post-command-business' in response to
|
|
|
|
:added entries recorded by `allout-widgets-additions-recorder'."
|
|
|
|
(save-excursion
|
|
|
|
(let (handled
|
|
|
|
covered)
|
|
|
|
(dolist (change changes)
|
|
|
|
(let ((from (cadr change))
|
|
|
|
bucket
|
|
|
|
(to (caddr change)))
|
|
|
|
(if (< to from) (setq bucket to to from from bucket))
|
|
|
|
;; have we already handled exposure changes in this region?
|
|
|
|
(setq handled (allout-range-overlaps from to handled)
|
|
|
|
covered (car handled)
|
|
|
|
handled (cadr handled))
|
|
|
|
(when (not covered)
|
|
|
|
(goto-char from)
|
|
|
|
;; Prior sibling and parent can both be affected.
|
|
|
|
(if (allout-ascend)
|
|
|
|
(allout-redecorate-visible-subtree
|
|
|
|
(allout-get-or-create-item-widget 'redecorate)))
|
|
|
|
(if (< (point) from)
|
|
|
|
(goto-char from))
|
|
|
|
(while (and (< (point) to) (not (eobp)))
|
|
|
|
(allout-beginning-of-current-line)
|
|
|
|
(allout-redecorate-visible-subtree
|
|
|
|
(allout-get-or-create-item-widget))
|
|
|
|
(allout-next-visible-heading 1))
|
|
|
|
(if (> (point) to)
|
|
|
|
;; subtree may be well beyond to - incorporate in ranges:
|
|
|
|
(setq handled (allout-range-overlaps from (point) handled)
|
|
|
|
covered (car handled)
|
|
|
|
handled (cadr handled)))))))))
|
|
|
|
|
|
|
|
;;;_ > allout-widgets-deletions-recorder (depth from)
|
|
|
|
(defun allout-widgets-deletions-recorder (depth from)
|
|
|
|
"Record allout item deletions for tracking during post-command processing.
|
2012-05-02 10:57:03 +00:00
|
|
|
Intended for use on `allout-structure-deleted-functions'.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
DEPTH is the depth of the deleted subtree, and FROM is the point from which
|
|
|
|
the subtree was deleted.
|
|
|
|
|
|
|
|
Records changes in `allout-widgets-changes-record'."
|
|
|
|
(push (list :deleted depth from) allout-widgets-changes-record))
|
|
|
|
;;;_ > allout-widgets-deletions-processor (changes)
|
|
|
|
(defun allout-widgets-deletions-processor (changes)
|
|
|
|
"Adjust items tracking allout outline structure deletions.
|
|
|
|
|
|
|
|
Dispatched by `allout-widgets-post-command-business' in response to
|
|
|
|
:deleted entries recorded by `allout-widgets-deletions-recorder'."
|
|
|
|
(save-excursion
|
|
|
|
(dolist (change changes)
|
|
|
|
(let ((depth (cadr change))
|
|
|
|
(from (caddr change)))
|
|
|
|
(goto-char from)
|
|
|
|
(when (allout-previous-visible-heading 1)
|
|
|
|
(if (> depth 1)
|
|
|
|
(allout-ascend-to-depth (1- depth)))
|
|
|
|
(allout-redecorate-visible-subtree
|
|
|
|
(allout-get-or-create-item-widget 'redecorate)))))))
|
|
|
|
|
|
|
|
;;;_ > allout-widgets-shifts-recorder (shifted-amount at)
|
|
|
|
(defun allout-widgets-shifts-recorder (shifted-amount at)
|
|
|
|
"Record outline subtree shifts for tracking during post-command processing.
|
2012-05-02 10:57:03 +00:00
|
|
|
Intended for use on `allout-structure-shifted-functions'.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
SHIFTED-AMOUNT is the depth change and AT is the point at the start of the
|
|
|
|
subtree that's been shifted.
|
|
|
|
|
|
|
|
Records changes in `allout-widgets-changes-record'."
|
|
|
|
(push (list :shifted shifted-amount at) allout-widgets-changes-record))
|
|
|
|
;;;_ > allout-widgets-shifts-processor (changes)
|
|
|
|
(defun allout-widgets-shifts-processor (changes)
|
|
|
|
"Widgetize and adjust items tracking allout outline structure additions.
|
|
|
|
|
|
|
|
Dispatched by `allout-widgets-post-command-business' in response to
|
|
|
|
:shifted entries recorded by `allout-widgets-shifts-recorder'."
|
|
|
|
(save-excursion
|
|
|
|
(dolist (change changes)
|
|
|
|
(goto-char (caddr change))
|
|
|
|
(allout-ascend)
|
|
|
|
(allout-redecorate-visible-subtree))))
|
|
|
|
;;;_ > allout-widgets-after-copy-or-kill-function ()
|
|
|
|
(defun allout-widgets-after-copy-or-kill-function ()
|
|
|
|
"Do allout-widgets processing of text just placed in the kill ring.
|
|
|
|
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
Intended for use on `allout-after-copy-or-kill-hook'."
|
2011-02-16 22:10:43 +00:00
|
|
|
(if (car kill-ring)
|
|
|
|
(setcar kill-ring (allout-widgets-undecorate-text (car kill-ring)))))
|
2011-07-05 18:54:08 +00:00
|
|
|
;;;_ > allout-widgets-after-undo-function ()
|
|
|
|
(defun allout-widgets-after-undo-function ()
|
|
|
|
"Do allout-widgets processing of text after an undo.
|
|
|
|
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
Intended for use on `allout-post-undo-hook'."
|
2011-07-05 18:54:08 +00:00
|
|
|
(save-excursion
|
|
|
|
(if (allout-goto-prefix)
|
|
|
|
(allout-redecorate-item (allout-get-or-create-item-widget)))))
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
;;;_ > allout-widgets-exposure-undo-recorder (widget from-state)
|
|
|
|
(defun allout-widgets-exposure-undo-recorder (widget)
|
|
|
|
"Record outline exposure undo for tracking during post-command processing.
|
|
|
|
|
|
|
|
Intended for use by `allout-graphics-modification-handler'.
|
|
|
|
|
|
|
|
WIDGET is the widget being changed.
|
|
|
|
|
|
|
|
Records changes in `allout-widgets-changes-record'."
|
|
|
|
;; disregard the events if we're currently processing them.
|
|
|
|
(if (not allout-undo-exposure-in-progress)
|
|
|
|
(push widget allout-widgets-undo-exposure-record)))
|
|
|
|
;;;_ > allout-widgets-exposure-undo-processor ()
|
|
|
|
(defun allout-widgets-exposure-undo-processor ()
|
|
|
|
"Adjust items tracking undo of allout outline structure exposure.
|
|
|
|
|
|
|
|
Dispatched by `allout-widgets-post-command-business' in response to
|
|
|
|
:undone-exposure entries recorded by `allout-widgets-exposure-undo-recorder'."
|
|
|
|
(let* ((allout-undo-exposure-in-progress t)
|
|
|
|
;; inhibit undo recording while twiddling exposure to track undo:
|
|
|
|
(widgets allout-widgets-undo-exposure-record)
|
2013-08-08 23:59:14 +00:00
|
|
|
widget-start-marker widget-end-marker
|
2011-02-16 22:10:43 +00:00
|
|
|
from-state icon-start-point to-state
|
|
|
|
handled covered)
|
|
|
|
(setq allout-widgets-undo-exposure-record nil)
|
|
|
|
(save-excursion
|
|
|
|
(dolist (widget widgets)
|
|
|
|
(setq widget-start-marker (widget-get widget :from)
|
|
|
|
widget-end-marker (widget-get widget :to)
|
|
|
|
from-state (widget-get widget :icon-state)
|
|
|
|
icon-start-point (widget-apply widget :actual-position
|
|
|
|
:icon-start)
|
|
|
|
to-state (get-text-property icon-start-point
|
|
|
|
:icon-state))
|
|
|
|
(setq handled (allout-range-overlaps widget-start-marker
|
|
|
|
widget-end-marker
|
|
|
|
handled)
|
|
|
|
covered (car handled)
|
|
|
|
handled (cadr handled))
|
|
|
|
(when (not covered)
|
|
|
|
(goto-char (widget-get widget :from))
|
|
|
|
(when (not (allout-hidden-p))
|
|
|
|
;; adjust actual exposure to that of to-state viz from-state
|
|
|
|
(cond ((and (eq to-state 'closed) (eq from-state 'opened))
|
|
|
|
(allout-hide-current-subtree)
|
|
|
|
(allout-decorate-item-and-context widget))
|
|
|
|
((and (eq to-state 'opened) (eq from-state 'closed))
|
|
|
|
(save-excursion
|
|
|
|
(dolist
|
|
|
|
(expose-to (allout-chart-exposure-contour-by-icon))
|
|
|
|
(goto-char expose-to)
|
|
|
|
(allout-show-to-offshoot)))))))))))
|
|
|
|
;;;_ > allout-chart-exposure-contour-by-icon (&optional from-depth)
|
|
|
|
(defun allout-chart-exposure-contour-by-icon (&optional from-depth)
|
|
|
|
"Return points of subtree items to which exposure should be extended.
|
|
|
|
|
|
|
|
The qualifying items are ones with a widget icon that is in the closed or
|
|
|
|
empty state, or items with undecorated subitems.
|
|
|
|
|
|
|
|
The resulting list of points is in reverse order.
|
|
|
|
|
|
|
|
Optional FROM-DEPTH is for internal use."
|
|
|
|
;; During internal recursion, we return a pair: (at-end . result)
|
|
|
|
;; Otherwise we just return the result.
|
|
|
|
(let ((from-depth from-depth)
|
|
|
|
start-point
|
|
|
|
at-end level-depth
|
|
|
|
this-widget
|
|
|
|
got subgot)
|
|
|
|
(if from-depth
|
|
|
|
(setq level-depth (allout-depth))
|
|
|
|
;; at containing item:
|
|
|
|
(setq start-point (point))
|
|
|
|
(setq from-depth (allout-depth))
|
|
|
|
(setq at-end (not (allout-next-heading))
|
|
|
|
level-depth allout-recent-depth))
|
|
|
|
|
|
|
|
;; traverse the level, recursing on deeper levels:
|
|
|
|
(while (and (not at-end)
|
|
|
|
(> allout-recent-depth from-depth)
|
|
|
|
(setq this-widget (allout-get-item-widget)))
|
|
|
|
(if (< level-depth allout-recent-depth)
|
|
|
|
;; recurse:
|
|
|
|
(progn
|
|
|
|
(setq subgot (allout-chart-exposure-contour-by-icon level-depth)
|
|
|
|
at-end (car subgot)
|
|
|
|
subgot (cdr subgot))
|
|
|
|
(if subgot (setq got (append subgot got))))
|
|
|
|
;; progress at this level:
|
|
|
|
(when (memq (widget-get this-widget :icon-state) '(closed empty))
|
|
|
|
(push (point) got)
|
|
|
|
(allout-end-of-subtree))
|
|
|
|
(setq at-end (not (allout-next-heading)))))
|
|
|
|
|
|
|
|
;; tailor result depending on whether or not we're a recursion:
|
|
|
|
(if (not start-point)
|
|
|
|
(cons at-end got)
|
|
|
|
(goto-char start-point)
|
|
|
|
got)))
|
|
|
|
;;;_ > allout-range-overlaps (from to ranges)
|
|
|
|
(defun allout-range-overlaps (from to ranges)
|
|
|
|
"Return a pair indicating overlap of FROM and TO subtree range in RANGES.
|
|
|
|
|
2011-11-15 07:55:13 +00:00
|
|
|
First element of result indicates whether candidate range FROM, TO
|
2011-02-16 22:10:43 +00:00
|
|
|
overlapped any of the existing ranges.
|
|
|
|
|
|
|
|
Second element of result is a new version of RANGES incorporating the
|
|
|
|
candidate range with overlaps consolidated.
|
|
|
|
|
|
|
|
FROM and TO must be in increasing order, as must be the pairs in RANGES."
|
|
|
|
;; to append to the end: (rplacd next-to-last-cdr (list 'f))
|
|
|
|
(let (new-ranges
|
|
|
|
entry
|
|
|
|
;; the start of the range that includes the candidate from:
|
|
|
|
included-from
|
|
|
|
;; the end of the range that includes the candidate to:
|
|
|
|
included-to
|
|
|
|
;; the candidates were inserted:
|
|
|
|
done)
|
|
|
|
(while (and ranges (not done))
|
|
|
|
(setq entry (car ranges)
|
|
|
|
ranges (cdr ranges))
|
|
|
|
|
|
|
|
(cond
|
|
|
|
|
|
|
|
(included-from
|
|
|
|
;; some entry included the candidate from.
|
|
|
|
(cond ((> (car entry) to)
|
|
|
|
;; current entry exceeds end of candidate range - done.
|
|
|
|
(push (list included-from to) new-ranges)
|
|
|
|
(push entry new-ranges)
|
|
|
|
(setq included-to to
|
|
|
|
done t))
|
|
|
|
((>= (cadr entry) to)
|
|
|
|
;; current entry includes end of candidate range - done.
|
|
|
|
(push (list included-from (cadr entry)) new-ranges)
|
|
|
|
(setq included-to (cadr entry)
|
|
|
|
done t))
|
|
|
|
;; current entry contained in candidate range - ditch, continue:
|
|
|
|
(t nil)))
|
|
|
|
|
|
|
|
((> (car entry) to)
|
|
|
|
;; current entry start exceeds candidate end - done, placed as new entry
|
|
|
|
(push (list from to) new-ranges)
|
|
|
|
(push entry new-ranges)
|
|
|
|
(setq included-to to
|
|
|
|
done t))
|
|
|
|
|
|
|
|
((>= (car entry) from)
|
|
|
|
;; current entry start is above candidate start, but not above
|
|
|
|
;; candidate end (by prior case).
|
|
|
|
(setq included-from from)
|
|
|
|
;; now we have to check on whether this entry contains to, or continue:
|
|
|
|
(when (>= (cadr entry) to)
|
|
|
|
;; current entry contains only candidate end - done:
|
|
|
|
(push (list included-from (cadr entry)) new-ranges)
|
|
|
|
(setq included-to (cadr entry)
|
|
|
|
done t))
|
|
|
|
;; otherwise, we will continue to look for placement of candidate end.
|
|
|
|
)
|
|
|
|
|
|
|
|
((>= (cadr entry) to)
|
|
|
|
;; current entry properly contains candidate range.
|
|
|
|
(push entry new-ranges)
|
|
|
|
(setq included-from (car entry)
|
|
|
|
included-to (cadr entry)
|
|
|
|
done t))
|
|
|
|
|
|
|
|
((>= (cadr entry) from)
|
|
|
|
;; current entry contains start of candidate range.
|
|
|
|
(setq included-from (car entry)))
|
|
|
|
|
|
|
|
(t
|
|
|
|
;; current entry is below the candidate range.
|
|
|
|
(push entry new-ranges))))
|
|
|
|
|
|
|
|
(cond ((and included-from included-to)
|
|
|
|
;; candidates placed.
|
|
|
|
nil)
|
|
|
|
((not (or included-from included-to))
|
|
|
|
;; candidates found no place, must be at the end:
|
|
|
|
(push (list from to) new-ranges))
|
|
|
|
(included-from
|
|
|
|
;; candidate start placed but end not:
|
|
|
|
(push (list included-from to) new-ranges))
|
|
|
|
;; might be included-to and not included-from, indicating new entry.
|
|
|
|
)
|
|
|
|
(setq new-ranges (nreverse new-ranges))
|
|
|
|
(if ranges (setq new-ranges (append new-ranges ranges)))
|
|
|
|
(list (if included-from t) new-ranges)))
|
|
|
|
;;;_ > allout-widgetize-buffer (&optional doing)
|
|
|
|
(defun allout-widgetize-buffer (&optional doing)
|
|
|
|
"EXAMPLE FUNCTION. Widgetize items in buffer using allout-chart-subtree.
|
|
|
|
|
|
|
|
We economize by just focusing on the first of local-maximum depth siblings.
|
|
|
|
|
|
|
|
Optional DOING is for internal use - a chart of the current level, for
|
|
|
|
recursive operation."
|
|
|
|
|
|
|
|
(interactive)
|
|
|
|
(if (not doing)
|
|
|
|
|
|
|
|
(save-excursion
|
|
|
|
(goto-char (point-min))
|
|
|
|
;; Construct the chart by scanning the siblings:
|
|
|
|
(dolist (top-level-sibling (allout-chart-siblings))
|
|
|
|
(goto-char top-level-sibling)
|
|
|
|
(let ((subchart (allout-chart-subtree)))
|
|
|
|
(if subchart
|
|
|
|
(allout-widgetize-buffer subchart)))))
|
|
|
|
|
|
|
|
;; save-excursion was done on recursion entry, not necessary here.
|
|
|
|
(let (have-sublists)
|
|
|
|
(dolist (sibling doing)
|
|
|
|
(when (listp sibling)
|
|
|
|
(setq have-sublists t)
|
|
|
|
(allout-widgetize-buffer sibling)))
|
|
|
|
(when (and (not have-sublists) (not (widget-at (car doing))))
|
|
|
|
(goto-char (car doing))
|
|
|
|
(allout-get-or-create-item-widget)))))
|
|
|
|
|
|
|
|
;;;_ : Item widget and constructors
|
|
|
|
|
|
|
|
;;;_ $ allout-item-widget
|
|
|
|
(define-widget 'allout-item-widget 'default
|
|
|
|
"A widget presenting an allout outline item."
|
|
|
|
|
|
|
|
'button nil
|
|
|
|
;; widget-field-at respects this to get item if 'field is unused.
|
|
|
|
;; we don't use field to avoid collision with end-of-line, etc, on which
|
|
|
|
;; allout depends.
|
|
|
|
'real-field nil
|
|
|
|
|
|
|
|
;; data fields:
|
|
|
|
|
|
|
|
|
|
|
|
;; tailor the widget for a specific item
|
|
|
|
:create 'allout-decorate-item-and-context
|
|
|
|
:value-delete 'allout-widgets-undecorate-item
|
|
|
|
;; Not Yet Converted (from original, tree-widget stab)
|
|
|
|
:expander 'allout-tree-event-dispatcher ; get children when nil :args
|
|
|
|
:expander-p 'identity ; always engage the :expander
|
|
|
|
:action 'allout-tree-widget-action
|
|
|
|
;; :notify "when item changes"
|
|
|
|
|
|
|
|
;; force decoration of item but not context, unless already done this tick:
|
|
|
|
:redecorate 'allout-redecorate-item
|
|
|
|
:last-decorated-tick nil
|
|
|
|
;; recognize the actual situation of the item's text:
|
|
|
|
:parse-item 'allout-parse-item-at-point
|
|
|
|
;; decorate the entirety of the item, sans offspring:
|
|
|
|
:decorate-item-span 'allout-decorate-item-span
|
|
|
|
;; decorate the various item elements:
|
|
|
|
:decorate-guides 'allout-decorate-item-guides
|
|
|
|
:decorate-icon 'allout-decorate-item-icon
|
|
|
|
:decorate-cue 'allout-decorate-item-cue
|
|
|
|
:decorate-body 'allout-decorate-item-body
|
|
|
|
:actual-position 'allout-item-actual-position
|
|
|
|
|
|
|
|
;; Layout parameters:
|
|
|
|
:is-container nil ; is this actually the encompassing file/connection?
|
|
|
|
|
|
|
|
:from nil ; item beginning - marker
|
|
|
|
:to nil ; item end - marker
|
2011-11-14 21:00:24 +00:00
|
|
|
:span-overlay nil ; overlay by which actual position is determined
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
;; also serves as guide-end:
|
|
|
|
:icon-start nil
|
|
|
|
:icon-end nil
|
|
|
|
:distinctive-start nil
|
|
|
|
;; also serves as cue-start:
|
|
|
|
:distinctive-end nil
|
|
|
|
;; also serves as cue-end:
|
|
|
|
:body-start nil
|
|
|
|
:body-end nil
|
|
|
|
:depth nil
|
|
|
|
:has-subitems nil
|
|
|
|
:was-has-subitems 'init
|
|
|
|
:expanded nil
|
|
|
|
:was-expanded 'init
|
|
|
|
:brief nil
|
|
|
|
:was-brief 'init
|
|
|
|
|
|
|
|
:does-encrypt nil ; pending encryption when :is-encrypted false.
|
|
|
|
:is-encrypted nil
|
|
|
|
|
|
|
|
;; the actual location of the item text:
|
|
|
|
:location 'allout-item-location
|
|
|
|
|
2020-08-12 23:23:46 +00:00
|
|
|
:keymap allout-item-icon-keymap
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
;; Element regions:
|
|
|
|
:guides-span nil
|
|
|
|
:icon-span nil
|
|
|
|
:cue-span nil
|
|
|
|
:bullet nil
|
|
|
|
:was-bullet nil
|
|
|
|
:body-span nil
|
|
|
|
|
|
|
|
:body-brevity-p 'allout-body-brevity-p
|
|
|
|
|
|
|
|
;; :guide-column-flags indicate (in reverse order) whether or not the
|
|
|
|
;; item's ancestor at the depth corresponding to the column has a
|
|
|
|
;; subsequent sibling - ie, whether or not the corresponding column needs
|
|
|
|
;; a descender line to connect that ancestor with its sibling.
|
|
|
|
:guide-column-flags nil
|
|
|
|
:was-guide-column-flags 'init
|
|
|
|
|
|
|
|
;; ie, has subitems:
|
|
|
|
:populous-p 'allout-item-populous-p
|
|
|
|
:help-echo 'allout-tree-widget-help-echo
|
|
|
|
)
|
|
|
|
;;;_ > allout-new-item-widget ()
|
|
|
|
(defsubst allout-new-item-widget ()
|
|
|
|
"create a new item widget, not yet situated anywhere."
|
|
|
|
(if allout-widgets-maintain-tally
|
|
|
|
;; all the extra overhead is incurred only when doing the
|
|
|
|
;; maintenance, except the condition, which can't be avoided.
|
|
|
|
(let ((widget (widget-convert 'allout-item-widget)))
|
|
|
|
(puthash widget nil allout-widgets-tally)
|
|
|
|
widget)
|
|
|
|
(widget-convert 'allout-item-widget)))
|
|
|
|
;;;_ : Item decoration
|
|
|
|
;;;_ > allout-decorate-item-and-context (item-widget &optional redecorate
|
|
|
|
;;; blank-container parent)
|
|
|
|
(defun allout-decorate-item-and-context (item-widget &optional redecorate
|
2013-08-08 23:59:14 +00:00
|
|
|
blank-container _parent)
|
2011-02-16 22:10:43 +00:00
|
|
|
"Create or adjust widget decorations for ITEM-WIDGET and neighbors at point.
|
|
|
|
|
|
|
|
The neighbors include its siblings and parent.
|
|
|
|
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
ITEM-WIDGET can be a created or converted `allout-item-widget'.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
If you're only trying to get or create a widget for an item, use
|
|
|
|
`allout-get-or-create-item-widget'. If you have the item-widget, applying
|
|
|
|
:redecorate will do the right thing.
|
|
|
|
|
|
|
|
Optional BLANK-CONTAINER is for internal use. It is used to fabricate a
|
|
|
|
container widget for an empty-bodied container, in the course of decorating
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
a proper (non-container) item which starts at the beginning of the file.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
Optional REDECORATE causes redecoration of the item-widget and
|
|
|
|
its siblings, even if already decorated in this cycle of the command loop.
|
|
|
|
|
|
|
|
Optional PARENT, when provided, bypasses some navigation and computation
|
|
|
|
necessary to obtain the parent of the items being processed.
|
|
|
|
|
|
|
|
We return the item-widget corresponding to the item at point."
|
|
|
|
|
|
|
|
(when (or redecorate
|
|
|
|
(not (equal (widget-get item-widget :last-decorated-tick)
|
|
|
|
allout-command-counter)))
|
|
|
|
(let* ((allout-inhibit-body-modification-hook t)
|
|
|
|
(was-modified (buffer-modified-p))
|
|
|
|
(was-point (point))
|
|
|
|
prefix-start
|
|
|
|
(is-container (or blank-container
|
|
|
|
(not (setq prefix-start (allout-goto-prefix)))
|
|
|
|
(< was-point prefix-start)))
|
|
|
|
;; steady-point (set in two steps) is reliable across parent
|
|
|
|
;; widget-creation.
|
|
|
|
(steady-point (progn (if is-container (goto-char 1))
|
|
|
|
(point-marker)))
|
|
|
|
(steady-point (progn (set-marker-insertion-type steady-point t)
|
|
|
|
steady-point))
|
|
|
|
(parent (and (not is-container)
|
|
|
|
(allout-get-or-create-parent-widget)))
|
|
|
|
successor-sibling
|
|
|
|
doing-item
|
|
|
|
reverse-siblings-chart
|
|
|
|
(buffer-undo-list t))
|
|
|
|
|
|
|
|
;; At this point the parent is decorated and parent-flags indicate
|
|
|
|
;; its guide lines. We will iterate over the siblings according to a
|
|
|
|
;; chart we create at the start, and going from last to first so we
|
|
|
|
;; don't have to worry about text displacement caused by widgetizing.
|
|
|
|
|
|
|
|
(if is-container
|
|
|
|
(progn (widget-put item-widget :is-container t)
|
|
|
|
(setq reverse-siblings-chart (list 1)))
|
2020-07-06 18:18:57 +00:00
|
|
|
(let ((parent-position (widget-apply parent
|
|
|
|
:actual-position :from)))
|
|
|
|
(when parent-position
|
|
|
|
(goto-char parent-position)))
|
2011-02-16 22:10:43 +00:00
|
|
|
(if (widget-get parent :is-container)
|
|
|
|
;; `allout-goto-prefix' will go to first non-container item:
|
|
|
|
(allout-goto-prefix)
|
|
|
|
(allout-next-heading))
|
|
|
|
(setq reverse-siblings-chart (list allout-recent-prefix-beginning))
|
|
|
|
(while (allout-next-sibling)
|
|
|
|
(push allout-recent-prefix-beginning reverse-siblings-chart)))
|
|
|
|
|
|
|
|
(dolist (doing-at reverse-siblings-chart)
|
|
|
|
(goto-char doing-at)
|
|
|
|
(when allout-widgets-track-decoration
|
|
|
|
(sit-for 0))
|
|
|
|
|
|
|
|
(setq doing-item (if (= doing-at steady-point)
|
|
|
|
item-widget
|
|
|
|
(or (allout-get-item-widget)
|
|
|
|
(allout-new-item-widget))))
|
|
|
|
|
|
|
|
(when (or redecorate (not (equal (widget-get doing-item
|
|
|
|
:last-decorated-tick)
|
|
|
|
allout-command-counter)))
|
|
|
|
(widget-apply doing-item :parse-item t blank-container)
|
|
|
|
(widget-apply doing-item :decorate-item-span)
|
|
|
|
|
|
|
|
(widget-apply doing-item :decorate-guides
|
|
|
|
parent (and successor-sibling t))
|
|
|
|
(widget-apply doing-item :decorate-icon)
|
|
|
|
(widget-apply doing-item :decorate-cue)
|
|
|
|
(widget-apply doing-item :decorate-body)
|
|
|
|
|
|
|
|
(widget-put doing-item :last-decorated-tick allout-command-counter))
|
|
|
|
|
|
|
|
(setq successor-sibling doing-at))
|
|
|
|
|
|
|
|
(set-buffer-modified-p was-modified)
|
|
|
|
(goto-char steady-point)
|
2011-11-19 09:18:31 +00:00
|
|
|
;; must null the marker or the buffer gets clogged with impedance:
|
2011-02-16 22:10:43 +00:00
|
|
|
(set-marker steady-point nil)
|
|
|
|
|
|
|
|
item-widget)))
|
|
|
|
;;;_ > allout-redecorate-item (item)
|
|
|
|
(defun allout-redecorate-item (item-widget)
|
|
|
|
"Resituate ITEM-WIDGET decorations, disregarding context.
|
|
|
|
|
2011-11-14 06:27:12 +00:00
|
|
|
Use this to redecorate only the item, when you know that its
|
2011-02-16 22:10:43 +00:00
|
|
|
situation with respect to siblings, parent, and offspring is
|
|
|
|
unchanged from its last decoration. Use
|
|
|
|
`allout-decorate-item-and-context' instead to reassess and adjust
|
2011-12-30 02:52:49 +00:00
|
|
|
relevant context, when suitable."
|
2011-02-16 22:10:43 +00:00
|
|
|
(if (not (equal (widget-get item-widget :last-decorated-tick)
|
|
|
|
allout-command-counter))
|
|
|
|
(let ((was-modified (buffer-modified-p))
|
|
|
|
(buffer-undo-list t))
|
|
|
|
(widget-apply item-widget :parse-item)
|
|
|
|
(widget-apply item-widget :decorate-guides)
|
|
|
|
(widget-apply item-widget :decorate-icon)
|
|
|
|
(widget-apply item-widget :decorate-cue)
|
|
|
|
(widget-apply item-widget :decorate-body)
|
|
|
|
(set-buffer-modified-p was-modified))))
|
|
|
|
;;;_ > allout-redecorate-visible-subtree (&optional parent-widget
|
|
|
|
;;; depth chart)
|
|
|
|
(defun allout-redecorate-visible-subtree (&optional parent-widget depth chart)
|
|
|
|
"Redecorate all visible items in subtree at point.
|
|
|
|
|
|
|
|
Optional PARENT-WIDGET is for optimization, when the parent
|
|
|
|
widget is already available.
|
|
|
|
|
|
|
|
Optional DEPTH restricts the excursion depth of covered.
|
|
|
|
|
|
|
|
Optional CHART is for internal recursion, to carry a chart of the
|
|
|
|
target items.
|
|
|
|
|
|
|
|
Point is left at the last sibling in the visible subtree."
|
|
|
|
;; using a treatment that takes care of all the siblings on a level, we
|
|
|
|
;; only need apply it to the first sibling on the level, and we can
|
|
|
|
;; collect and pass the parent of the lower levels to recursive calls as
|
|
|
|
;; we go.
|
|
|
|
(let ((parent-widget
|
|
|
|
(if (and parent-widget (widget-apply parent-widget
|
|
|
|
:actual-position :from))
|
|
|
|
(progn (goto-char (widget-apply parent-widget
|
|
|
|
:actual-position :from))
|
|
|
|
parent-widget)
|
|
|
|
(let ((got (allout-get-item-widget)))
|
|
|
|
(if got
|
|
|
|
(allout-decorate-item-and-context got 'redecorate)
|
|
|
|
(allout-get-or-create-item-widget 'redecorate)))))
|
|
|
|
(pending-chart (or chart (allout-chart-subtree nil 'visible)))
|
|
|
|
item-widget
|
|
|
|
previous-sibling-point
|
|
|
|
recent-sibling-point)
|
|
|
|
(setq pending-chart (nreverse pending-chart))
|
|
|
|
(dolist (sibling-point pending-chart)
|
|
|
|
(cond ((integerp sibling-point)
|
|
|
|
(when (not previous-sibling-point)
|
|
|
|
(goto-char sibling-point)
|
|
|
|
(if (setq item-widget (allout-get-item-widget nil))
|
|
|
|
(allout-decorate-item-and-context item-widget 'redecorate
|
|
|
|
nil parent-widget)
|
|
|
|
(allout-get-or-create-item-widget)))
|
|
|
|
(setq previous-sibling-point sibling-point
|
|
|
|
recent-sibling-point sibling-point))
|
|
|
|
((listp sibling-point)
|
|
|
|
(if (or (not depth)
|
|
|
|
(> depth 1))
|
|
|
|
(allout-redecorate-visible-subtree
|
|
|
|
(if (not previous-sibling-point)
|
|
|
|
;; containment discontinuity - sigh
|
|
|
|
parent-widget
|
|
|
|
(allout-get-or-create-item-widget 'redecorate))
|
|
|
|
(if depth (1- depth))
|
|
|
|
sibling-point)))))
|
|
|
|
(if (and recent-sibling-point (< (point) recent-sibling-point))
|
|
|
|
(goto-char recent-sibling-point))))
|
|
|
|
;;;_ > allout-parse-item-at-point (item-widget &optional at-beginning
|
|
|
|
;;; blank-container)
|
|
|
|
(defun allout-parse-item-at-point (item-widget &optional at-beginning
|
|
|
|
blank-container)
|
|
|
|
"Set widget ITEM-WIDGET layout parameters per item-at-point's actual layout.
|
|
|
|
|
|
|
|
If optional AT-BEGINNING is t, then point is assumed to be at the start of
|
|
|
|
the item prefix.
|
|
|
|
|
|
|
|
If optional BLANK-CONTAINER is true, then the parameters of a container
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
which has an empty body are set. (Though the body is blank, the object
|
|
|
|
may have subitems.)"
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
;; Uncomment this sit-for to notice where decoration is happening:
|
|
|
|
;; (sit-for .1)
|
|
|
|
(let* ((depth (allout-depth))
|
|
|
|
(depth (if blank-container 0 depth))
|
|
|
|
(is-container (or blank-container (zerop depth)))
|
|
|
|
|
|
|
|
(does-encrypt (and (not is-container)
|
|
|
|
(allout-encrypted-type-prefix)))
|
|
|
|
(is-encrypted (and does-encrypt (allout-encrypted-topic-p)))
|
|
|
|
(icon-end allout-recent-prefix-end)
|
|
|
|
(icon-start (1- icon-end))
|
|
|
|
body-start
|
|
|
|
body-end
|
|
|
|
has-subitems
|
|
|
|
)
|
|
|
|
(widget-put item-widget :depth depth)
|
|
|
|
(if is-container
|
|
|
|
|
|
|
|
(progn
|
|
|
|
(widget-put item-widget :from (allout-set-boundary-marker
|
|
|
|
:from (point-min)
|
|
|
|
(widget-get item-widget :from)))
|
|
|
|
(widget-put item-widget :icon-end nil)
|
|
|
|
(widget-put item-widget :icon-start nil)
|
|
|
|
(setq body-start (widget-put item-widget :body-start 1)))
|
|
|
|
|
|
|
|
;; not container:
|
|
|
|
|
|
|
|
(widget-put item-widget :from (allout-set-boundary-marker
|
|
|
|
:from (if at-beginning
|
|
|
|
(point)
|
|
|
|
allout-recent-prefix-beginning)
|
|
|
|
(widget-get item-widget :from)))
|
|
|
|
(widget-put item-widget :icon-start icon-start)
|
|
|
|
(widget-put item-widget :icon-end icon-end)
|
|
|
|
(when does-encrypt
|
|
|
|
(widget-put item-widget :does-encrypt t)
|
|
|
|
(widget-put item-widget :is-encrypted is-encrypted))
|
|
|
|
|
|
|
|
;; cue area:
|
|
|
|
(setq body-start icon-end)
|
2013-08-08 23:59:14 +00:00
|
|
|
(widget-put item-widget :bullet (allout-get-bullet))
|
2011-02-16 22:10:43 +00:00
|
|
|
(if (equal (char-after body-start) ? )
|
|
|
|
(setq body-start (1+ body-start)))
|
|
|
|
(widget-put item-widget :body-start body-start)
|
|
|
|
)
|
|
|
|
|
|
|
|
;; Both container and regular items:
|
|
|
|
|
|
|
|
;; :body-end (doesn't include a trailing blank line, if any) -
|
|
|
|
(widget-put item-widget :body-end (setq body-end
|
|
|
|
(if blank-container
|
|
|
|
1
|
|
|
|
(allout-end-of-entry))))
|
|
|
|
|
|
|
|
(widget-put item-widget :to (allout-set-boundary-marker
|
|
|
|
:to (if blank-container
|
|
|
|
(point-min)
|
|
|
|
(or (allout-pre-next-prefix)
|
|
|
|
(goto-char (point-max))))
|
|
|
|
(widget-get item-widget :to)))
|
|
|
|
(widget-put item-widget :has-subitems
|
|
|
|
(setq has-subitems
|
|
|
|
(and
|
|
|
|
;; has a subsequent item:
|
|
|
|
(not (= body-end (point-max)))
|
|
|
|
;; subsequent item is deeper:
|
2013-08-08 23:59:14 +00:00
|
|
|
(< depth (allout-recent-depth)))))
|
2011-02-16 22:10:43 +00:00
|
|
|
;; note :expanded - true if widget item's content is currently visible?
|
|
|
|
(widget-put item-widget :expanded
|
|
|
|
(and has-subitems
|
|
|
|
;; subsequent item is or isn't visible:
|
|
|
|
(save-excursion
|
|
|
|
(goto-char allout-recent-prefix-beginning)
|
|
|
|
(not (allout-hidden-p)))))))
|
|
|
|
;;;_ > allout-set-boundary-marker (boundary position &optional current-marker)
|
2013-08-08 23:59:14 +00:00
|
|
|
(defun allout-set-boundary-marker (_boundary position &optional current-marker)
|
2011-02-16 22:10:43 +00:00
|
|
|
"Set or create item widget BOUNDARY type marker at POSITION.
|
|
|
|
|
|
|
|
Optional CURRENT-MARKER is the marker currently being used for
|
|
|
|
the boundary, if any.
|
|
|
|
|
|
|
|
BOUNDARY type is either :from or :to, determining the marker insertion type."
|
|
|
|
(if (not position) (setq position (point)))
|
|
|
|
(if current-marker
|
|
|
|
(set-marker current-marker position)
|
|
|
|
(let ((marker (make-marker)))
|
|
|
|
;; XXX dang - would like for :from boundary to advance after inserted
|
|
|
|
;; text, but that would omit new header prefixes when allout
|
|
|
|
;; relevels, etc. this competes with ad-hoc edits, which would
|
|
|
|
;; better be omitted
|
|
|
|
(set-marker-insertion-type marker nil)
|
|
|
|
(set-marker marker position))))
|
|
|
|
;;;_ > allout-decorate-item-span (item-widget)
|
|
|
|
(defun allout-decorate-item-span (item-widget)
|
|
|
|
"Equip the item with a span, as an entirety.
|
|
|
|
|
|
|
|
This span is implemented so it can be used to detect displacement
|
|
|
|
of the widget in absolute terms, and provides an offset bias for
|
|
|
|
the various element spans."
|
|
|
|
|
|
|
|
(if (and (widget-get item-widget :is-container)
|
|
|
|
;; the only case where the span could be empty.
|
|
|
|
(eq (widget-get item-widget :from)
|
|
|
|
(widget-get item-widget :to)))
|
|
|
|
nil
|
|
|
|
(allout-item-span item-widget
|
|
|
|
(widget-get item-widget :from)
|
|
|
|
(widget-get item-widget :to))))
|
|
|
|
;;;_ > allout-decorate-item-guides (item-widget
|
|
|
|
;;; &optional parent-widget has-successor)
|
|
|
|
(defun allout-decorate-item-guides (item-widget
|
|
|
|
&optional parent-widget has-successor)
|
|
|
|
"Add ITEM-WIDGET guide icon-prefix descender and connector text properties.
|
|
|
|
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
Optional arguments provide context for deriving the guides.
|
|
|
|
In their absence, the current guide column flags are used.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
Optional PARENT-WIDGET is the widget for the item's parent item.
|
|
|
|
|
2014-05-01 23:55:25 +00:00
|
|
|
Optional HAS-SUCCESSOR is true if the item is followed by a sibling.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
We also hide the header-prefix string.
|
|
|
|
|
|
|
|
Guides are established according to the item-widget's :guide-column-flags,
|
2020-02-09 14:33:14 +00:00
|
|
|
when different from :was-guide-column-flags. Changing that property and
|
2011-02-16 22:10:43 +00:00
|
|
|
reapplying this method will rectify the glyphs."
|
|
|
|
|
|
|
|
(when (not (widget-get item-widget :is-container))
|
|
|
|
(let* ((depth (widget-get item-widget :depth))
|
2013-08-08 23:59:14 +00:00
|
|
|
;; (parent-depth (and parent-widget
|
|
|
|
;; (widget-get parent-widget :depth)))
|
2011-02-16 22:10:43 +00:00
|
|
|
(parent-flags (and parent-widget
|
|
|
|
(widget-get parent-widget :guide-column-flags)))
|
|
|
|
(parent-flags-depth (length parent-flags))
|
|
|
|
(extender-length (- depth (+ parent-flags-depth 2)))
|
|
|
|
(flags (or (and (> depth 1)
|
|
|
|
parent-widget
|
|
|
|
(widget-put item-widget :guide-column-flags
|
|
|
|
(append (list has-successor)
|
|
|
|
(if (< 0 extender-length)
|
|
|
|
(make-list extender-length
|
|
|
|
'-))
|
|
|
|
parent-flags)))
|
|
|
|
(widget-get item-widget :guide-column-flags)))
|
|
|
|
(was-flags (widget-get item-widget :was-guide-column-flags))
|
|
|
|
(guides-start (widget-get item-widget :from))
|
|
|
|
(guides-end (widget-get item-widget :icon-start))
|
|
|
|
(position guides-start)
|
|
|
|
(increment (length allout-header-prefix))
|
|
|
|
reverse-flags
|
|
|
|
guide-name
|
2013-08-08 23:59:14 +00:00
|
|
|
extenders
|
2011-02-16 22:10:43 +00:00
|
|
|
(inhibit-read-only t))
|
|
|
|
|
|
|
|
(when (not (equal was-flags flags))
|
|
|
|
|
|
|
|
(setq reverse-flags (reverse flags))
|
|
|
|
(while reverse-flags
|
|
|
|
(setq guide-name
|
|
|
|
(cond ((null (cdr reverse-flags))
|
|
|
|
(if (car reverse-flags)
|
|
|
|
'mid-connector
|
|
|
|
'end-connector))
|
|
|
|
((eq (car reverse-flags) '-)
|
|
|
|
;; accumulate extenders tally, to be painted on next
|
|
|
|
;; non-extender flag, according to the flag type.
|
|
|
|
(setq extenders (1+ (or extenders 0)))
|
|
|
|
nil)
|
|
|
|
((car reverse-flags)
|
|
|
|
'through-descender)
|
|
|
|
(t 'skip-descender)))
|
|
|
|
(when guide-name
|
|
|
|
(put-text-property position (setq position (+ position increment))
|
|
|
|
'display (allout-fetch-icon-image guide-name))
|
|
|
|
(if (> increment 1) (setq increment 1))
|
|
|
|
(when extenders
|
|
|
|
;; paint extenders after a connector, else leave spaces.
|
|
|
|
(dotimes (i extenders)
|
|
|
|
(put-text-property
|
|
|
|
position (setq position (1+ position))
|
|
|
|
'display (allout-fetch-icon-image
|
|
|
|
(if (memq guide-name '(mid-connector end-connector))
|
|
|
|
'extender-connector
|
|
|
|
'skip-descender))))
|
|
|
|
(setq extenders nil)))
|
|
|
|
(setq reverse-flags (cdr reverse-flags)))
|
|
|
|
(widget-put item-widget :was-guide-column-flags flags))
|
|
|
|
|
|
|
|
(allout-item-element-span-is item-widget :guides-span
|
|
|
|
guides-start guides-end))))
|
|
|
|
;;;_ > allout-decorate-item-icon (item-widget)
|
|
|
|
(defun allout-decorate-item-icon (item-widget)
|
|
|
|
"Add item icon glyph and distinctive bullet text properties to ITEM-WIDGET."
|
|
|
|
|
|
|
|
(when (not (widget-get item-widget :is-container))
|
|
|
|
(let* ((icon-start (widget-get item-widget :icon-start))
|
|
|
|
(icon-end (widget-get item-widget :icon-end))
|
|
|
|
(bullet (widget-get item-widget :bullet))
|
|
|
|
(use-bullet bullet)
|
|
|
|
(was-bullet (widget-get item-widget :was-bullet))
|
|
|
|
(distinctive (allout-distinctive-bullet bullet))
|
|
|
|
(distinctive-start (widget-get item-widget :distinctive-start))
|
|
|
|
(distinctive-end (widget-get item-widget :distinctive-end))
|
|
|
|
(does-encrypt (widget-get item-widget :does-encrypt))
|
|
|
|
(is-encrypted (and does-encrypt (widget-get item-widget
|
|
|
|
:is-encrypted)))
|
|
|
|
(expanded (widget-get item-widget :expanded))
|
|
|
|
(has-subitems (widget-get item-widget :has-subitems))
|
|
|
|
(inhibit-read-only t)
|
|
|
|
icon-state)
|
|
|
|
|
|
|
|
(when (not (and (equal (widget-get item-widget :was-expanded) expanded)
|
|
|
|
(equal (widget-get item-widget :was-has-subitems)
|
|
|
|
has-subitems)
|
|
|
|
(equal (widget-get item-widget :was-does-encrypt)
|
|
|
|
does-encrypt)
|
|
|
|
(equal (widget-get item-widget :was-is-encrypted)
|
|
|
|
is-encrypted)))
|
|
|
|
|
|
|
|
(setq icon-state
|
|
|
|
(cond (does-encrypt (if is-encrypted
|
2011-02-17 21:47:18 +00:00
|
|
|
'locked-encrypted
|
|
|
|
'unlocked-encrypted))
|
2011-02-16 22:10:43 +00:00
|
|
|
(expanded 'opened)
|
|
|
|
(has-subitems 'closed)
|
|
|
|
(t 'empty)))
|
|
|
|
(put-text-property icon-start (1+ icon-start)
|
|
|
|
'display (allout-fetch-icon-image icon-state))
|
|
|
|
(widget-put item-widget :was-expanded expanded)
|
|
|
|
(widget-put item-widget :was-has-subitems has-subitems)
|
|
|
|
(widget-put item-widget :was-does-encrypt does-encrypt)
|
|
|
|
(widget-put item-widget :was-is-encrypted is-encrypted)
|
|
|
|
;; preserve as a widget property to track last known:
|
|
|
|
(widget-put item-widget :icon-state icon-state)
|
|
|
|
;; preserve as a text property to track undo:
|
|
|
|
(put-text-property icon-start icon-end :icon-state icon-state))
|
|
|
|
(allout-item-element-span-is item-widget :icon-span
|
|
|
|
icon-start icon-end)
|
|
|
|
(when (not (string= was-bullet bullet))
|
|
|
|
(cond ((not distinctive)
|
|
|
|
;; XXX we strip the prior properties without even checking if
|
|
|
|
;; the prior bullet was distinctive, because the widget
|
|
|
|
;; provisions to convey that info is disappearing, sigh.
|
2019-08-01 12:59:46 +00:00
|
|
|
(remove-text-properties icon-end (1+ icon-end) '(display nil))
|
2011-02-16 22:10:43 +00:00
|
|
|
(setq distinctive-start icon-end distinctive-end icon-end)
|
|
|
|
(widget-put item-widget :distinctive-start distinctive-start)
|
|
|
|
(widget-put item-widget :distinctive-end distinctive-end))
|
|
|
|
|
|
|
|
((not (string= bullet allout-numbered-bullet))
|
|
|
|
(setq distinctive-start icon-end distinctive-end (+ icon-end 1)))
|
|
|
|
|
|
|
|
(does-encrypt
|
|
|
|
(setq distinctive-start icon-end distinctive-end (+ icon-end 1)))
|
|
|
|
|
|
|
|
(t
|
|
|
|
(goto-char icon-end)
|
|
|
|
(looking-at "[0-9]+")
|
|
|
|
(setq use-bullet (buffer-substring icon-end (match-end 0)))
|
|
|
|
(setq distinctive-start icon-end
|
|
|
|
distinctive-end (match-end 0))))
|
|
|
|
(put-text-property distinctive-start distinctive-end 'display
|
|
|
|
use-bullet)
|
|
|
|
(widget-put item-widget :was-bullet bullet)
|
|
|
|
(widget-put item-widget :distinctive-start distinctive-start)
|
|
|
|
(widget-put item-widget :distinctive-end distinctive-end)))))
|
|
|
|
;;;_ > allout-decorate-item-cue (item-widget)
|
|
|
|
(defun allout-decorate-item-cue (item-widget)
|
|
|
|
"Incorporate space between bullet icon and body to the ITEM-WIDGET."
|
|
|
|
;; NOTE: most of the cue-area
|
|
|
|
|
|
|
|
(when (not (widget-get item-widget :is-container))
|
2020-07-05 20:27:52 +00:00
|
|
|
(let* ((cue-start (widget-get item-widget :icon-end))
|
2011-02-16 22:10:43 +00:00
|
|
|
(body-start (widget-get item-widget :body-start))
|
2013-08-08 23:59:14 +00:00
|
|
|
;(expanded (widget-get item-widget :expanded))
|
|
|
|
;(has-subitems (widget-get item-widget :has-subitems))
|
2011-02-16 22:10:43 +00:00
|
|
|
(inhibit-read-only t))
|
|
|
|
|
|
|
|
(allout-item-element-span-is item-widget :cue-span cue-start body-start)
|
|
|
|
(put-text-property (1- body-start) body-start 'rear-nonsticky t))))
|
|
|
|
;;;_ > allout-decorate-item-body (item-widget &optional force)
|
|
|
|
(defun allout-decorate-item-body (item-widget &optional force)
|
|
|
|
"Incorporate item body text as part the ITEM-WIDGET.
|
|
|
|
|
|
|
|
Optional FORCE means force reassignment of the region property."
|
|
|
|
|
|
|
|
(let* ((allout-inhibit-body-modification-hook t)
|
|
|
|
(body-start (widget-get item-widget :body-start))
|
|
|
|
(body-end (widget-get item-widget :body-end))
|
|
|
|
(inhibit-read-only t))
|
|
|
|
|
|
|
|
(allout-item-element-span-is item-widget :body-span
|
|
|
|
body-start (min (1+ body-end) (point-max))
|
|
|
|
force)))
|
|
|
|
;;;_ > allout-item-actual-position (item-widget field)
|
|
|
|
(defun allout-item-actual-position (item-widget field)
|
|
|
|
"Return ITEM-WIDGET FIELD position taking item displacement into account."
|
|
|
|
|
|
|
|
;; The item's sub-element positions (:icon-end, :body-start, etc) are
|
|
|
|
;; accurate when the item is parsed, but some offsets from the start
|
|
|
|
;; drift with text added in the body.
|
|
|
|
;;
|
|
|
|
;; Rather than reparse an item with every change (inefficient), or derive
|
|
|
|
;; every position from a distinct field marker/overlay (prohibitive as
|
|
|
|
;; the number of items grows), we use the displacement tracking of the
|
|
|
|
;; :span-overlay's markers, against the registered :from or :body-end
|
|
|
|
;; (depending on whether the requested field value is before or after the
|
|
|
|
;; item body), to bias the registered values.
|
|
|
|
;;
|
|
|
|
;; This is not necessary/useful when the item is being decorated, because
|
2011-02-23 07:27:09 +00:00
|
|
|
;; that always must be preceded by a fresh item parse.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
(if (not (eq field :body-end))
|
|
|
|
(widget-get item-widget :from)
|
|
|
|
|
|
|
|
(let* ((span-overlay (widget-get item-widget :span-overlay))
|
|
|
|
(body-end-position (widget-get item-widget :body-end))
|
|
|
|
(ref-marker-position (and span-overlay
|
|
|
|
(overlay-end span-overlay)))
|
|
|
|
(offset (and body-end-position span-overlay
|
|
|
|
(- (or ref-marker-position 0)
|
|
|
|
body-end-position))))
|
|
|
|
(+ (widget-get item-widget field) (or offset 0)))))
|
|
|
|
;;;_ : Item undecoration
|
|
|
|
;;;_ > allout-widgets-undecorate-region (start end)
|
|
|
|
(defun allout-widgets-undecorate-region (start end)
|
|
|
|
"Eliminate widgets and decorations for all items in region from START to END."
|
2020-07-05 20:38:13 +00:00
|
|
|
(let (done next widget
|
|
|
|
(end (or end (point-max))))
|
2011-02-16 22:10:43 +00:00
|
|
|
(save-excursion
|
|
|
|
(goto-char start)
|
2020-07-05 20:38:13 +00:00
|
|
|
(while (not done)
|
|
|
|
(when (and (allout-on-current-heading-p)
|
|
|
|
(setq widget (allout-get-item-widget)))
|
|
|
|
(if widget
|
|
|
|
(allout-widgets-undecorate-item widget t)))
|
|
|
|
(goto-char (setq next
|
|
|
|
(next-single-char-property-change (point)
|
|
|
|
'display
|
|
|
|
(current-buffer)
|
|
|
|
end)))
|
|
|
|
(if (>= next end)
|
|
|
|
(setq done t))))))
|
2011-02-16 22:10:43 +00:00
|
|
|
;;;_ > allout-widgets-undecorate-text (text)
|
|
|
|
(defun allout-widgets-undecorate-text (text)
|
|
|
|
"Eliminate widgets and decorations for all items in TEXT."
|
|
|
|
(remove-text-properties 0 (length text)
|
|
|
|
'(display nil :icon-state nil rear-nonsticky nil
|
|
|
|
category nil button nil field nil)
|
|
|
|
text)
|
|
|
|
text)
|
|
|
|
;;;_ > allout-widgets-undecorate-item (item-widget &optional no-expose)
|
|
|
|
(defun allout-widgets-undecorate-item (item-widget &optional no-expose)
|
|
|
|
"Remove widget decorations from ITEM-WIDGET.
|
|
|
|
|
|
|
|
Any concealed content head lines and item body is exposed, unless
|
|
|
|
optional NO-EXPOSE is non-nil."
|
|
|
|
(let ((from (widget-get item-widget :from))
|
|
|
|
(to (widget-get item-widget :to))
|
|
|
|
(text-properties-to-remove '(display nil
|
|
|
|
:icon-state nil
|
|
|
|
rear-nonsticky nil
|
|
|
|
category nil
|
|
|
|
button nil
|
|
|
|
field nil))
|
|
|
|
(span-overlay (widget-get item-widget :span-overlay))
|
|
|
|
(button-overlay (widget-get item-widget :button))
|
|
|
|
(was-modified (buffer-modified-p))
|
|
|
|
(buffer-undo-list t)
|
|
|
|
(inhibit-read-only t))
|
|
|
|
(if (not no-expose)
|
|
|
|
(allout-flag-region from to nil))
|
|
|
|
(allout-unprotected
|
|
|
|
(remove-text-properties from to text-properties-to-remove))
|
|
|
|
(when span-overlay
|
|
|
|
(delete-overlay span-overlay) (widget-put item-widget :span-overlay nil))
|
|
|
|
(when button-overlay
|
|
|
|
(delete-overlay button-overlay) (widget-put item-widget :button nil))
|
|
|
|
(set-marker from nil)
|
|
|
|
(set-marker to nil)
|
|
|
|
(if (not was-modified)
|
|
|
|
(set-buffer-modified-p nil))))
|
|
|
|
|
|
|
|
;;;_ : Item decoration support
|
|
|
|
;;;_ > allout-item-span (item-widget &optional start end)
|
|
|
|
(defun allout-item-span (item-widget &optional start end)
|
|
|
|
"Return or register the location of an ITEM-WIDGET's actual START and END.
|
|
|
|
|
|
|
|
If START and END are not passed in, return either a dotted pair
|
|
|
|
of the current span, if established, or nil if not yet set.
|
|
|
|
|
|
|
|
When the START and END are passed, return the distance that the
|
|
|
|
start of the item moved. We return 0 if the span was not
|
|
|
|
previously established or is not moved."
|
2013-08-08 23:59:14 +00:00
|
|
|
(let ((overlay (widget-get item-widget :span-overlay)))
|
2011-02-16 22:10:43 +00:00
|
|
|
(cond ((not overlay) (when start
|
|
|
|
(setq overlay (make-overlay start end nil t nil))
|
|
|
|
(overlay-put overlay 'button item-widget)
|
2011-03-29 18:26:01 +00:00
|
|
|
(overlay-put overlay 'evaporate t)
|
2011-02-16 22:10:43 +00:00
|
|
|
(widget-put item-widget :span-overlay overlay)
|
|
|
|
t))
|
|
|
|
;; report:
|
|
|
|
((not start) (cons (overlay-start overlay) (overlay-end overlay)))
|
|
|
|
;; move:
|
|
|
|
((or (not (equal (overlay-start overlay) start))
|
|
|
|
(not (equal (overlay-end overlay) end)))
|
|
|
|
(move-overlay overlay start end)
|
|
|
|
t)
|
|
|
|
;; specified span already set:
|
|
|
|
(t nil))))
|
|
|
|
;;;_ > allout-item-element-span-is (item-widget element
|
|
|
|
;;; &optional start end force)
|
|
|
|
(defun allout-item-element-span-is (item-widget element
|
|
|
|
&optional start end force)
|
|
|
|
"Return or register the location of the indicated ITEM-WIDGET ELEMENT.
|
|
|
|
|
|
|
|
ELEMENT is one of :guides-span, :icon-span, :cue-span, or :body-span.
|
|
|
|
|
|
|
|
When optional START is specified, optional END must also be.
|
|
|
|
|
|
|
|
START and END are the actual bounds of the region, if provided.
|
|
|
|
|
|
|
|
If START and END are not passed in, we return either a dotted
|
|
|
|
pair of the current span, if established, or nil if not yet set.
|
|
|
|
|
|
|
|
When the START and END are passed, we return t if the region
|
|
|
|
changed or nil if not.
|
|
|
|
|
|
|
|
Optional FORCE means force assignment of the region's text
|
|
|
|
property, even if it's already set."
|
|
|
|
(let ((span (widget-get item-widget element)))
|
|
|
|
(cond ((or (not span) force)
|
|
|
|
(when start
|
|
|
|
(widget-put item-widget element (cons start end))
|
|
|
|
(put-text-property start end 'category
|
|
|
|
(cdr (assoc element
|
|
|
|
allout-span-to-category)))
|
|
|
|
t))
|
|
|
|
;; report:
|
|
|
|
((not start) span)
|
|
|
|
;; move if necessary:
|
|
|
|
((not (and (eq (car span) start)
|
|
|
|
(eq (cdr span) end)))
|
|
|
|
(widget-put item-widget element span)
|
|
|
|
t)
|
|
|
|
;; specified span already set:
|
|
|
|
(t nil))))
|
|
|
|
;;;_ : Item widget retrieval (/ high-level creation):
|
|
|
|
;;;_ > allout-get-item-widget (&optional container)
|
|
|
|
(defun allout-get-item-widget (&optional container)
|
|
|
|
"Return the widget for the item at point, or nil if no widget yet exists.
|
|
|
|
|
|
|
|
Point must be situated *before* the start of the target item's
|
|
|
|
body, so we don't get an existing containing item when we're in
|
|
|
|
the process of creating an item in the middle of another.
|
|
|
|
|
|
|
|
Optional CONTAINER is used to obtain the container item."
|
|
|
|
(if (or container (zerop (allout-depth)))
|
|
|
|
allout-container-item-widget
|
|
|
|
;; allout-recent-* are calibrated by (allout-depth) if we got here.
|
|
|
|
(let ((got (widget-at allout-recent-prefix-beginning)))
|
|
|
|
(if (and got (listp got))
|
|
|
|
(if (marker-position (widget-get got :from))
|
|
|
|
(and
|
|
|
|
(>= (point) (widget-apply got :actual-position :from))
|
|
|
|
(<= (point) (widget-apply got :actual-position :body-start))
|
|
|
|
got)
|
|
|
|
;; a wacky residual item - undecorate and disregard:
|
|
|
|
(allout-widgets-undecorate-item got)
|
|
|
|
nil)))))
|
|
|
|
;;;_ > allout-get-or-create-item-widget (&optional redecorate blank-container)
|
|
|
|
(defun allout-get-or-create-item-widget (&optional redecorate blank-container)
|
|
|
|
"Return a widget for the item at point, creating the widget if necessary.
|
|
|
|
|
|
|
|
When creating a widget, we assume there has been a context change
|
|
|
|
and decorate its siblings and parent, as well.
|
|
|
|
|
|
|
|
Optional BLANK-CONTAINER is for internal use, to fabricate a
|
|
|
|
meta-container item with an empty body when the first proper
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
\(non-container) item starts at the beginning of the file.
|
2011-02-16 22:10:43 +00:00
|
|
|
|
|
|
|
Optional REDECORATE, if non-nil, means to redecorate the widget
|
|
|
|
if it already exists."
|
|
|
|
(let ((widget (allout-get-item-widget blank-container))
|
|
|
|
(buffer-undo-list t))
|
|
|
|
(cond (widget (if redecorate
|
|
|
|
(allout-redecorate-item widget))
|
|
|
|
widget)
|
|
|
|
((or blank-container (zerop (allout-depth)))
|
|
|
|
(or allout-container-item-widget
|
|
|
|
(setq allout-container-item-widget
|
|
|
|
(allout-decorate-item-and-context
|
|
|
|
(widget-convert 'allout-item-widget)
|
|
|
|
nil blank-container))))
|
|
|
|
;; create a widget for a regular/non-container item:
|
|
|
|
(t (allout-decorate-item-and-context (widget-convert
|
|
|
|
'allout-item-widget))))))
|
|
|
|
;;;_ > allout-get-or-create-parent-widget (&optional redecorate)
|
|
|
|
(defun allout-get-or-create-parent-widget (&optional redecorate)
|
|
|
|
"Return widget for parent of item at point, decorating it if necessary.
|
|
|
|
|
|
|
|
We return the container widget if we're above the first proper item in the
|
|
|
|
file.
|
|
|
|
|
|
|
|
Optional REDECORATE, if non-nil, means to redecorate the widget if it
|
|
|
|
already exists.
|
|
|
|
|
|
|
|
Point will wind up positioned on the beginning of the parent or beginning
|
|
|
|
of the buffer."
|
|
|
|
;; use existing widget, if there, else establish it
|
|
|
|
(if (or (bobp) (and (not (allout-ascend))
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
(looking-at-p allout-regexp)))
|
2011-02-16 22:10:43 +00:00
|
|
|
(allout-get-or-create-item-widget redecorate 'blank-container)
|
|
|
|
(allout-get-or-create-item-widget redecorate)))
|
|
|
|
;;;_ : X- Item ancillaries
|
|
|
|
;;;_ >X allout-body-modification-handler (beg end)
|
2013-08-08 23:59:14 +00:00
|
|
|
(defun allout-body-modification-handler (_beg _end)
|
2011-02-16 22:10:43 +00:00
|
|
|
"Do routine processing of body text before and after modification.
|
|
|
|
|
|
|
|
Operation is inhibited by `allout-inhibit-body-modification-handler'."
|
|
|
|
|
|
|
|
;; The primary duties are:
|
|
|
|
;;
|
|
|
|
;; - marking of escaped prefix-like text for delayed cleanup of escapes
|
|
|
|
;; - removal and replacement of the settings
|
|
|
|
;; - maintenance of beginning-of-line guide lines
|
|
|
|
;;
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
;; ?? Escapes removal (before changes) is not done when edits span multiple
|
2011-02-16 22:10:43 +00:00
|
|
|
;; items, recognizing that item structure is being preserved, including
|
|
|
|
;; escaping of item-prefix-like text within bodies. See
|
|
|
|
;; `allout-before-modification-handler' and
|
|
|
|
;; `allout-inhibit-body-modification-handler'.
|
|
|
|
;;
|
|
|
|
;; Adds the overlay to the `allout-unresolved-body-mod-workhash' during
|
|
|
|
;; before-change operation, and removes from that list during after-change
|
|
|
|
;; operation.
|
|
|
|
(cond (allout-inhibit-body-modification-hook nil)))
|
|
|
|
;;;_ >X allout-graphics-modification-handler (beg end)
|
2013-08-08 23:59:14 +00:00
|
|
|
(defun allout-graphics-modification-handler (beg _end)
|
2011-02-16 22:10:43 +00:00
|
|
|
"Protect against incoherent deletion of decoration graphics.
|
|
|
|
|
lisp/*.el: Fix typos; use string-match-p, looking-at-p, setq-local, defvar-local.
* lisp/allout-widgets.el (allout-widgets-mode-off)
(allout-widgets-mode-on, allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-copy-or-kill-function)
(allout-widgets-after-undo-function, allout-test-range-overlaps)
(allout-decorate-item-and-context)
(allout-graphics-modification-handler): Fix typos in docstrings.
(allout-get-or-create-parent-widget): Use `looking-at-p'.
* lisp/cmuscheme.el (scheme-start-file): Doc fix.
(inferior-scheme-mode, switch-to-scheme): Fix typos in docstrings.
(scheme-input-filter): Use `string-match-p'.
* lisp/composite.el (compose-gstring-for-terminal): Fix typo in docstring.
* lisp/dired-x.el: Use Dired consistently in docstrings.
* lisp/dired.el: Use Dired consistently in docstrings.
(dired-readin, dired-mode): Use `setq-local'.
(dired-switches-alist): Make defvar-local.
(dired-buffers-for-dir): Use `zerop'.
(dired-safe-switches-p, dired-switches-escape-p)
(dired-insert-old-subdirs, dired-move-to-end-of-filename)
(dired-glob-regexp, dired-in-this-tree, dired-goto-file-1)
(dired-sort-set-mode-line, dired-sort-toggle, dired-sort-R-check):
(dired-goto-next-nontrivial-file): Use `string-match-p'.
(dired-align-file, dired-insert-directory, dired-mark-files-in-region)
(dired-toggle-marks, dired-mark-files-containing-regexp)
(dired-mark-symlinks, dired-mark-directories, dired-mark-executables)
(dired-flag-auto-save-files, dired-flag-backup-files):
Use `looking-at-p'.
(dired-mark-files-regexp, dired-build-subdir-alist):
Use `string-match-p', `looking-at-p'.
* lisp/dos-w32.el (untranslated-canonical-name, untranslated-file-p)
(direct-print-region-helper): Use `string-match-p'.
2013-06-21 12:24:37 +00:00
|
|
|
Deletes allowed only when `inhibit-read-only' is t."
|
2011-02-16 22:10:43 +00:00
|
|
|
(cond
|
|
|
|
(undo-in-progress (when (eq (get-text-property beg 'category)
|
|
|
|
'allout-icon-span-category)
|
|
|
|
(save-excursion
|
|
|
|
(goto-char beg)
|
|
|
|
(let* ((item-widget (allout-get-item-widget)))
|
|
|
|
(if item-widget
|
|
|
|
(allout-widgets-exposure-undo-recorder
|
|
|
|
item-widget))))))
|
|
|
|
(inhibit-read-only t)
|
|
|
|
((not (and (boundp 'allout-mode) allout-mode)) t)
|
|
|
|
((equal this-command 'quoted-insert) t)
|
|
|
|
((yes-or-no-p "Unruly edit of outline structure - allow? ")
|
|
|
|
(setq allout-widgets-unset-inhibit-read-only (not inhibit-read-only)
|
|
|
|
inhibit-read-only t))
|
2015-08-06 02:06:57 +00:00
|
|
|
(t (error "%s"
|
2011-02-16 22:10:43 +00:00
|
|
|
(substitute-command-keys allout-structure-unruly-deletion-message)))))
|
|
|
|
;;;_ > allout-item-icon-key-handler ()
|
|
|
|
(defun allout-item-icon-key-handler ()
|
|
|
|
"Catchall handling of key bindings in item icon/cue hot-spots.
|
|
|
|
|
|
|
|
Applies `allout-hotspot-key-handler' and calls the result, if any, as an
|
|
|
|
interactive command."
|
|
|
|
|
|
|
|
(interactive)
|
|
|
|
(let* ((mapped-binding (allout-hotspot-key-handler)))
|
|
|
|
(when mapped-binding
|
|
|
|
(call-interactively mapped-binding))))
|
|
|
|
|
|
|
|
;;;_ : Status
|
|
|
|
;;;_ . allout-item-location (item-widget)
|
|
|
|
(defun allout-item-location (item-widget)
|
|
|
|
"Location of the start of the item's text."
|
|
|
|
(overlay-start (widget-get item-widget :span-overlay)))
|
|
|
|
|
|
|
|
;;;_ : Icon management
|
|
|
|
;;;_ > allout-fetch-icon-image (name)
|
|
|
|
(defun allout-fetch-icon-image (name)
|
|
|
|
"Fetch allout icon for symbol NAME.
|
|
|
|
|
|
|
|
We use a caching strategy, so the caller doesn't need to do so."
|
|
|
|
(let* ((types allout-widgets-icon-types)
|
2021-02-01 04:34:40 +00:00
|
|
|
(use-dir (if (equal (frame-parameter nil 'background-mode)
|
2011-02-16 22:10:43 +00:00
|
|
|
'light)
|
|
|
|
allout-widgets-icons-light-subdir
|
|
|
|
allout-widgets-icons-dark-subdir))
|
|
|
|
(key (list name use-dir))
|
|
|
|
(got (assoc key allout-widgets-icons-cache)))
|
|
|
|
(if got
|
|
|
|
;; display system shows only first of subsequent adjacent
|
|
|
|
;; `eq'-identical repeats - use copies to avoid this problem.
|
|
|
|
(allout-widgets-copy-list (cadr got))
|
|
|
|
(while (and types (not got))
|
|
|
|
(setq got
|
2020-08-12 23:23:46 +00:00
|
|
|
(find-image
|
2011-02-16 22:10:43 +00:00
|
|
|
(list (append (list :type (car types)
|
|
|
|
:file (concat use-dir
|
|
|
|
(symbol-name name)
|
|
|
|
"." (symbol-name
|
|
|
|
(car types))))
|
2020-08-12 23:23:46 +00:00
|
|
|
allout-widgets-item-image-properties-emacs
|
2011-02-16 22:10:43 +00:00
|
|
|
))))
|
|
|
|
(setq types (cdr types)))
|
|
|
|
(if got
|
|
|
|
(push (list key got) allout-widgets-icons-cache))
|
|
|
|
got)))
|
|
|
|
|
|
|
|
;;;_ : Miscellaneous
|
Improve time stamp handling, and be more consistent about it.
This implements a suggestion made in:
http://lists.gnu.org/archive/html/emacs-devel/2014-10/msg00587.html
Among other things, this means timer.el no longer needs to
autoload the time-date module.
* doc/lispref/os.texi (Time of Day, Time Conversion, Time Parsing)
(Processor Run Time, Time Calculations):
Document the new behavior, plus be clearer about the old behavior.
(Idle Timers): Take advantage of new functionality.
* etc/NEWS: Document the changes.
* lisp/allout-widgets.el (allout-elapsed-time-seconds): Doc fix.
* lisp/arc-mode.el (archive-ar-summarize):
* lisp/calendar/time-date.el (seconds-to-time, days-to-time, time-since):
* lisp/emacs-lisp/timer.el (timer-relative-time, timer-event-handler)
(run-at-time, with-timeout-suspend, with-timeout-unsuspend):
* lisp/net/tramp.el (tramp-time-less-p, tramp-time-subtract):
* lisp/proced.el (proced-time-lessp):
* lisp/timezone.el (timezone-time-from-absolute):
* lisp/type-break.el (type-break-schedule, type-break-time-sum):
Simplify by using new functionality.
* lisp/calendar/cal-dst.el (calendar-next-time-zone-transition):
Do not return time values in obsolete and undocumented (HI . LO)
format; use (HI LO) instead.
* lisp/calendar/time-date.el (with-decoded-time-value):
Treat 'nil' as current time. This is mostly for XEmacs.
(encode-time-value, with-decoded-time-value): Obsolete.
(time-add, time-subtract, time-less-p): Use no-op autoloads, for
XEmacs. Define only if XEmacs, as they're now C builtins in Emacs.
* lisp/ldefs-boot.el: Update to match new time-date.el
* lisp/proced.el: Do not require time-date.
* src/editfns.c (invalid_time): New function.
Use it instead of 'error ("Invalid time specification")'.
(time_add, time_subtract, time_arith, Ftime_add, Ftime_less_p)
(decode_float_time, lisp_to_timespec, lisp_time_struct):
New functions.
(make_time_tail, make_time): Remove. All uses changed to use
new functions or plain list4i.
(disassemble_lisp_time): Return effective length if successful.
Check that LOW is an integer, if it's combined with other components.
(decode_time_components): Decode into struct lisp_time, not
struct timespec, so that we can support a wide set of times
regardless of whether time_t is signed. Decode plain numbers
as seconds since the Epoch, and nil as the current time.
(lisp_time_argument, lisp_seconds_argument, Ffloat_time):
Reimplement in terms of new functions.
(Fencode_time): Just use list2i.
(syms_of_editfns): Add time-add, time-subtract, time-less-p.
* src/keyboard.c (decode_timer): Don't allow the new formats (floating
point or nil) in timers.
* src/systime.h (LO_TIME_BITS): New constant. Use it everywhere in
place of the magic number '16'.
(struct lisp_time): New type.
(decode_time_components): Use it.
(lisp_to_timespec): New decl.
2014-11-17 04:38:15 +00:00
|
|
|
;;;_ > allout-elapsed-time-seconds (time-value time-value)
|
2011-02-16 22:10:43 +00:00
|
|
|
(defun allout-elapsed-time-seconds (end start)
|
Improve time stamp handling, and be more consistent about it.
This implements a suggestion made in:
http://lists.gnu.org/archive/html/emacs-devel/2014-10/msg00587.html
Among other things, this means timer.el no longer needs to
autoload the time-date module.
* doc/lispref/os.texi (Time of Day, Time Conversion, Time Parsing)
(Processor Run Time, Time Calculations):
Document the new behavior, plus be clearer about the old behavior.
(Idle Timers): Take advantage of new functionality.
* etc/NEWS: Document the changes.
* lisp/allout-widgets.el (allout-elapsed-time-seconds): Doc fix.
* lisp/arc-mode.el (archive-ar-summarize):
* lisp/calendar/time-date.el (seconds-to-time, days-to-time, time-since):
* lisp/emacs-lisp/timer.el (timer-relative-time, timer-event-handler)
(run-at-time, with-timeout-suspend, with-timeout-unsuspend):
* lisp/net/tramp.el (tramp-time-less-p, tramp-time-subtract):
* lisp/proced.el (proced-time-lessp):
* lisp/timezone.el (timezone-time-from-absolute):
* lisp/type-break.el (type-break-schedule, type-break-time-sum):
Simplify by using new functionality.
* lisp/calendar/cal-dst.el (calendar-next-time-zone-transition):
Do not return time values in obsolete and undocumented (HI . LO)
format; use (HI LO) instead.
* lisp/calendar/time-date.el (with-decoded-time-value):
Treat 'nil' as current time. This is mostly for XEmacs.
(encode-time-value, with-decoded-time-value): Obsolete.
(time-add, time-subtract, time-less-p): Use no-op autoloads, for
XEmacs. Define only if XEmacs, as they're now C builtins in Emacs.
* lisp/ldefs-boot.el: Update to match new time-date.el
* lisp/proced.el: Do not require time-date.
* src/editfns.c (invalid_time): New function.
Use it instead of 'error ("Invalid time specification")'.
(time_add, time_subtract, time_arith, Ftime_add, Ftime_less_p)
(decode_float_time, lisp_to_timespec, lisp_time_struct):
New functions.
(make_time_tail, make_time): Remove. All uses changed to use
new functions or plain list4i.
(disassemble_lisp_time): Return effective length if successful.
Check that LOW is an integer, if it's combined with other components.
(decode_time_components): Decode into struct lisp_time, not
struct timespec, so that we can support a wide set of times
regardless of whether time_t is signed. Decode plain numbers
as seconds since the Epoch, and nil as the current time.
(lisp_time_argument, lisp_seconds_argument, Ffloat_time):
Reimplement in terms of new functions.
(Fencode_time): Just use list2i.
(syms_of_editfns): Add time-add, time-subtract, time-less-p.
* src/keyboard.c (decode_timer): Don't allow the new formats (floating
point or nil) in timers.
* src/systime.h (LO_TIME_BITS): New constant. Use it everywhere in
place of the magic number '16'.
(struct lisp_time): New type.
(decode_time_components): Use it.
(lisp_to_timespec): New decl.
2014-11-17 04:38:15 +00:00
|
|
|
"Return seconds between START/END time values."
|
2011-02-16 22:10:43 +00:00
|
|
|
(let ((elapsed (time-subtract end start)))
|
2011-07-01 00:11:50 +00:00
|
|
|
(float-time elapsed)))
|
2011-02-16 22:10:43 +00:00
|
|
|
;;;_ > allout-find-image (specs)
|
2020-08-12 23:23:46 +00:00
|
|
|
(define-obsolete-function-alias 'allout-find-image #'find-image "28.1")
|
2011-02-16 22:10:43 +00:00
|
|
|
;;;_ > allout-widgets-copy-list (list)
|
|
|
|
(defun allout-widgets-copy-list (list)
|
|
|
|
;; duplicated from cl.el 'copy-list' as of 2008-08-17
|
|
|
|
"Return a copy of LIST, which may be a dotted list.
|
|
|
|
The elements of LIST are not copied, just the list structure itself."
|
|
|
|
(if (consp list)
|
|
|
|
(let ((res nil))
|
|
|
|
(while (consp list) (push (pop list) res))
|
|
|
|
(prog1 (nreverse res) (setcdr res list)))
|
|
|
|
(car list)))
|
2011-03-29 18:26:01 +00:00
|
|
|
;;;_ . allout-widgets-count-buttons-in-region (start end)
|
|
|
|
(defun allout-widgets-count-buttons-in-region (start end)
|
2015-08-21 00:33:48 +00:00
|
|
|
"Debugging/diagnostic tool - count overlays with `button' property in region."
|
2011-03-29 18:26:01 +00:00
|
|
|
(interactive "r")
|
|
|
|
(setq start (or start (point-min))
|
|
|
|
end (or end (point-max)))
|
|
|
|
(if (> start end) (let ((interim start)) (setq start end end interim)))
|
|
|
|
(let ((button-overlays (delq nil
|
2020-11-12 21:06:47 +00:00
|
|
|
(mapcar (lambda (o)
|
|
|
|
(if (overlay-get o 'button)
|
|
|
|
o))
|
2011-03-29 18:26:01 +00:00
|
|
|
(overlays-in start end)))))
|
|
|
|
(length button-overlays)))
|
2011-02-16 22:10:43 +00:00
|
|
|
|
2021-02-01 04:34:40 +00:00
|
|
|
(define-obsolete-function-alias 'allout-frame-property #'frame-parameter "28.1")
|
|
|
|
|
2011-02-16 22:10:43 +00:00
|
|
|
;;;_ : provide
|
|
|
|
(provide 'allout-widgets)
|
|
|
|
|
2020-07-06 18:18:57 +00:00
|
|
|
;;;_ . Local emacs vars.
|
|
|
|
;;;_ , Local variables:
|
|
|
|
;;;_ , allout-layout: (-1 : 0)
|
|
|
|
;;;_ , End:
|