mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 06:20:55 -08:00
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.
This commit is contained in:
Juanma Barranquero
parent
80b53a3b8d
commit
1143232265
164 changed files with 584 additions and 578 deletions
|
|
@ -132,7 +132,7 @@ 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
|
||||
by setting `allout-widgets-mode-inhibit'
|
||||
by setting `allout-widgets-mode-inhibit'.
|
||||
|
||||
Instead of setting `allout-widgets-auto-activation' you can
|
||||
explicitly invoke `allout-widgets-mode' in allout buffers where
|
||||
|
|
@ -867,7 +867,7 @@ Optional RECURSING is for internal use, to limit recursion."
|
|||
)
|
||||
;;;_ > allout-current-decorated-p ()
|
||||
(defun allout-current-decorated-p ()
|
||||
"True if the current item is not decorated"
|
||||
"True if the current item is not decorated."
|
||||
(save-excursion
|
||||
(if (allout-back-to-current-heading)
|
||||
(if (> allout-recent-depth 0)
|
||||
|
|
|
|||
|
|
@ -136,7 +136,7 @@ let-binding."
|
|||
(ssh "ssh" "22")
|
||||
(sftp "sftp" "115")
|
||||
(smtp "smtp" "25"))
|
||||
"List of authentication protocols and their names"
|
||||
"List of authentication protocols and their names."
|
||||
|
||||
:version "23.2" ;; No Gnus
|
||||
:type '(repeat :tag "Authentication Protocols"
|
||||
|
|
|
|||
|
|
@ -616,7 +616,7 @@ Called after `set-visited-file-name'."
|
|||
If such a timer is active, cancel it. Start a new timer if
|
||||
Global Auto-Revert Mode is active or if Auto-Revert Mode is active
|
||||
in some buffer. Restarting the timer ensures that Auto-Revert Mode
|
||||
will use an up-to-date value of `auto-revert-interval'"
|
||||
will use an up-to-date value of `auto-revert-interval'."
|
||||
(interactive)
|
||||
(if (timerp auto-revert-timer)
|
||||
(cancel-timer auto-revert-timer))
|
||||
|
|
|
|||
|
|
@ -113,7 +113,7 @@ string are substituted as defined by the current value of the variable
|
|||
;;;###autoload (put 'battery-mode-line-string 'risky-local-variable t)
|
||||
|
||||
(defcustom battery-mode-line-limit 100
|
||||
"Percentage of full battery load below which display battery status"
|
||||
"Percentage of full battery load below which display battery status."
|
||||
:version "24.1"
|
||||
:type 'integer
|
||||
:group 'battery)
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@
|
|||
|
||||
|
||||
(defun math-map-binop (binop args1 args2)
|
||||
"Apply BINOP to the elements of the lists ARGS1 and ARGS2"
|
||||
"Apply BINOP to the elements of the lists ARGS1 and ARGS2."
|
||||
(if args1
|
||||
(cons
|
||||
(funcall binop (car args1) (car args2))
|
||||
|
|
|
|||
|
|
@ -314,7 +314,7 @@ Echo Mayan date unless NOECHO is non-nil."
|
|||
|
||||
(defun calendar-mayan-long-count-to-absolute (c)
|
||||
"Compute the absolute date corresponding to the Mayan Long Count C.
|
||||
Long count is a list (baktun katun tun uinal kin)"
|
||||
Long count is a list (baktun katun tun uinal kin)."
|
||||
(+ (* (nth 0 c) 144000) ; baktun
|
||||
(* (nth 1 c) 7200) ; katun
|
||||
(* (nth 2 c) 360) ; tun
|
||||
|
|
|
|||
|
|
@ -409,6 +409,7 @@ display the ISO date:
|
|||
(setq calendar-date-echo-text \\='(format \"ISO date: %s\"
|
||||
(calendar-iso-date-string
|
||||
(list month day year))))
|
||||
|
||||
Changing this variable without using customize has no effect on
|
||||
pre-existing calendar windows."
|
||||
:group 'calendar
|
||||
|
|
@ -1471,10 +1472,10 @@ STRING to length TRUNCATE, and ensures a trailing space."
|
|||
|
||||
(defun calendar-generate-month (month year indent)
|
||||
"Produce a calendar for MONTH, YEAR on the Gregorian calendar.
|
||||
The calendar is inserted at the top of the buffer in which point is currently
|
||||
located, but indented INDENT spaces. The indentation is done from the first
|
||||
character on the line and does not disturb the first INDENT characters on the
|
||||
line."
|
||||
The calendar is inserted at the top of the buffer in which point is
|
||||
currently located, but indented INDENT spaces. The indentation is
|
||||
done from the first character on the line and does not disturb the
|
||||
first INDENT characters on the line."
|
||||
(let ((blank-days ; at start of month
|
||||
(mod
|
||||
(- (calendar-day-of-week (list month 1 year))
|
||||
|
|
@ -1792,10 +1793,11 @@ For a complete description, see the info node `Calendar/Diary'.
|
|||
|
||||
(defun calendar-string-spread (strings char length)
|
||||
"Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH.
|
||||
The effect is like `mapconcat' but the separating pieces are as balanced as
|
||||
possible. Each item of STRINGS is evaluated before concatenation so it can
|
||||
actually be an expression that evaluates to a string. If LENGTH is too short,
|
||||
the STRINGS are just concatenated and the result truncated."
|
||||
The effect is like `mapconcat' but the separating pieces are as
|
||||
balanced as possible. Each item of STRINGS is evaluated before
|
||||
concatenation so it can actually be an expression that evaluates
|
||||
to a string. If LENGTH is too short, the STRINGS are just
|
||||
concatenated and the result truncated."
|
||||
;; The algorithm is based on equation (3.25) on page 85 of Concrete
|
||||
;; Mathematics by Ronald L. Graham, Donald E. Knuth, and Oren Patashnik,
|
||||
;; Addison-Wesley, Reading, MA, 1989.
|
||||
|
|
@ -1889,8 +1891,8 @@ The left-most month returns 0, the next right 1, and so on."
|
|||
|
||||
(defun calendar-cursor-to-date (&optional error event)
|
||||
"Return a list (month day year) of current cursor position.
|
||||
If cursor is not on a specific date, signals an error if optional parameter
|
||||
ERROR is non-nil, otherwise just returns nil.
|
||||
If cursor is not on a specific date, signals an error if optional
|
||||
parameter ERROR is non-nil, otherwise just returns nil.
|
||||
If EVENT is non-nil, it's an event indicating the buffer position to
|
||||
use instead of point."
|
||||
(with-current-buffer
|
||||
|
|
@ -2046,9 +2048,9 @@ With argument ARG, jump to mark, pop it, and put point at end of ring."
|
|||
|
||||
(defun calendar-read (prompt acceptable &optional initial-contents)
|
||||
"Return an object read from the minibuffer.
|
||||
Prompt with the string PROMPT and use the function ACCEPTABLE to decide if
|
||||
entered item is acceptable. If non-nil, optional third arg INITIAL-CONTENTS
|
||||
is a string to insert in the minibuffer before reading."
|
||||
Prompt with the string PROMPT and use the function ACCEPTABLE to decide
|
||||
if entered item is acceptable. If non-nil, optional third arg
|
||||
INITIAL-CONTENTS is a string to insert in the minibuffer before reading."
|
||||
(let ((value (read-minibuffer prompt initial-contents)))
|
||||
(while (not (funcall acceptable value))
|
||||
(setq value (read-minibuffer prompt initial-contents)))
|
||||
|
|
@ -2277,8 +2279,8 @@ arguments SEQUENCES."
|
|||
(defun calendar-read-date (&optional noday)
|
||||
"Prompt for Gregorian date. Return a list (month day year).
|
||||
If optional NODAY is t, does not ask for day, but just returns
|
||||
\(month 1 year); if NODAY is any other non-nil value the value returned is
|
||||
\(month year)"
|
||||
\(month 1 year); if NODAY is any other non-nil value the value
|
||||
returned is (month year)."
|
||||
(let* ((year (calendar-read
|
||||
"Year (>0): "
|
||||
(lambda (x) (> x 0))
|
||||
|
|
@ -2458,8 +2460,8 @@ ATTRLIST is a list with elements of the form :face face :foreground color."
|
|||
|
||||
(defun calendar-mark-visible-date (date &optional mark)
|
||||
"Mark DATE in the calendar window with MARK.
|
||||
MARK is a single-character string, a list of face attributes/values, or a face.
|
||||
MARK defaults to `diary-entry-marker'."
|
||||
MARK is a single-character string, a list of face attributes/values,
|
||||
or a face. MARK defaults to `diary-entry-marker'."
|
||||
(if (calendar-date-is-valid-p date)
|
||||
(with-current-buffer calendar-buffer
|
||||
(save-excursion
|
||||
|
|
@ -2538,10 +2540,11 @@ name of the day of the week."
|
|||
"Return the absolute date of the DAYNAME on or before absolute DATE.
|
||||
DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on.
|
||||
|
||||
Note: Applying this function to d+6 gives us the DAYNAME on or after an
|
||||
absolute day d. Similarly, applying it to d+3 gives the DAYNAME nearest to
|
||||
absolute date d, applying it to d-1 gives the DAYNAME previous to absolute
|
||||
date d, and applying it to d+7 gives the DAYNAME following absolute date d."
|
||||
Note: Applying this function to d+6 gives us the DAYNAME on or after
|
||||
an absolute day d. Similarly, applying it to d+3 gives the DAYNAME
|
||||
nearest to absolute date d, applying it to d-1 gives the DAYNAME
|
||||
previous to absolute date d, and applying it to d+7 gives the DAYNAME
|
||||
following absolute date d."
|
||||
(- date (% (- date dayname) 7)))
|
||||
|
||||
(defun calendar-nth-named-absday (n dayname month year &optional day)
|
||||
|
|
|
|||
|
|
@ -35,7 +35,7 @@
|
|||
ROOTDIR is the root directory of a given autoconf controlled project.
|
||||
PROGRAM is the program to be configured.
|
||||
TESTFILE is the file used with AC_INIT.
|
||||
configure the initial configure script using `autoconf-new-automake-string'"
|
||||
Configure the initial configure script using `autoconf-new-automake-string'."
|
||||
(interactive "DRoot Dir: \nsProgram: \nsTest File: ")
|
||||
(require 'ede/srecode)
|
||||
(if (bufferp rootdir)
|
||||
|
|
@ -147,7 +147,7 @@ From the autoconf manual:
|
|||
(looking-at (concat "\\(A[CM]_" macro "\\|" macro "\\)"))))
|
||||
|
||||
(defun autoconf-find-last-macro (macro &optional ignore-bol)
|
||||
"Move to the last occurrence of MACRO in FILE, and return that point.
|
||||
"Move to the last occurrence of MACRO, and return that point.
|
||||
The last macro is usually the one in which we would like to insert more
|
||||
items such as CHECK_HEADERS."
|
||||
(let ((op (point)) (atbol (if ignore-bol "" "^")))
|
||||
|
|
|
|||
|
|
@ -300,7 +300,7 @@ This class brings in method overloads for building.")
|
|||
(defclass ede-target-with-config-build ()
|
||||
()
|
||||
"Class to mix into a project with configuration for builds.
|
||||
This class brings in method overloads for for building.")
|
||||
This class brings in method overloads for building.")
|
||||
|
||||
(cl-defmethod project-compile-project ((proj ede-project-with-config-build) &optional command)
|
||||
"Compile the entire current project PROJ.
|
||||
|
|
|
|||
|
|
@ -157,9 +157,9 @@ returns `project-linux-architecture-default'."
|
|||
|
||||
(defun ede-linux--get-architecture (dir bdir)
|
||||
"Try to auto-detect the architecture as configured in BDIR.
|
||||
Uses `ede-linux--detect-architecture' for the auto-detection. If
|
||||
the result is `ask', let the user choose from architectures found
|
||||
in DIR."
|
||||
Uses `ede-linux--detect-architecture' for the auto-detection.
|
||||
If the result is `ask', let the user choose from architectures
|
||||
found in DIR."
|
||||
(let ((arch (ede-linux--detect-architecture bdir)))
|
||||
(cl-case arch
|
||||
(ask
|
||||
|
|
|
|||
|
|
@ -1219,7 +1219,7 @@ Basics search only in the current buffer.")
|
|||
(cl-defmethod semantic-collector-calculate-cache
|
||||
((obj semantic-collector-buffer-deep))
|
||||
"Calculate the completion cache for OBJ.
|
||||
Uses `semantic-flatten-tags-table'"
|
||||
Uses `semantic-flatten-tags-table'."
|
||||
(oset obj cache
|
||||
;; Must create it in SEMANTICDB find format.
|
||||
;; ( ( DBTABLE TAG TAG ... ) ... )
|
||||
|
|
@ -1314,7 +1314,7 @@ Uses semanticdb for searching all tags in the current project."
|
|||
:documentation "List of tags this displayer is showing.")
|
||||
(last-prefix :type string
|
||||
:protection :protected
|
||||
:documentation "Prefix associated with slot `table'")
|
||||
:documentation "Prefix associated with slot `table'.")
|
||||
)
|
||||
"Abstract displayer baseclass.
|
||||
Manages the display of some number of tags.
|
||||
|
|
@ -1746,7 +1746,7 @@ Display mechanism using tooltip for a list of possible completions.")
|
|||
|
||||
(defun semantic-displayer-point-position ()
|
||||
"Return the location of POINT as positioned on the selected frame.
|
||||
Return a cons cell (X . Y)"
|
||||
Return a cons cell (X . Y)."
|
||||
(let* ((frame (selected-frame))
|
||||
(toolbarleft
|
||||
(if (eq (cdr (assoc 'tool-bar-position default-frame-alist)) 'left)
|
||||
|
|
|
|||
|
|
@ -107,7 +107,7 @@ Override the value locally if a language supports other tag types.
|
|||
When adding new elements, try to use symbols also returned by the parser.
|
||||
The form of an entry in this list is of the form:
|
||||
( SYMBOL . FACE )
|
||||
where SYMBOL is a tag type symbol used with semantic. FACE
|
||||
where SYMBOL is a tag type symbol used with semantic, and FACE
|
||||
is a symbol representing a face.
|
||||
Faces used are generated in `font-lock' for consistency, and will not
|
||||
be used unless font lock is a feature.")
|
||||
|
|
|
|||
|
|
@ -329,7 +329,7 @@ calling this one."
|
|||
(defun semantic-find-file-noselect (file &optional nowarn rawfile wildcards)
|
||||
"Call `find-file-noselect' with various features turned off.
|
||||
Use this when referencing a file that will be soon deleted.
|
||||
FILE, NOWARN, RAWFILE, and WILDCARDS are passed into `find-file-noselect'"
|
||||
FILE, NOWARN, RAWFILE, and WILDCARDS are passed into `find-file-noselect'."
|
||||
;; Hack -
|
||||
;; Check if we are in set-auto-mode, and if so, warn about this.
|
||||
(when (boundp 'keep-mode-if-same)
|
||||
|
|
|
|||
|
|
@ -91,8 +91,8 @@ run as soon as Emacs is idle."
|
|||
|
||||
(defcustom semantic-idle-scheduler-work-idle-time 60
|
||||
"Time in seconds of idle before scheduling big work.
|
||||
This time should be long enough that once any big work is started, it is
|
||||
unlikely the user would be ready to type again right away."
|
||||
This time should be long enough that once any big work is started,
|
||||
it is unlikely the user would be ready to type again right away."
|
||||
:group 'semantic
|
||||
:type 'number
|
||||
:set (lambda (sym val)
|
||||
|
|
@ -1022,11 +1022,11 @@ the tag list into a string."
|
|||
This function should take a list of Semantic tags and an optional
|
||||
maximum length of the produced string as its arguments. The
|
||||
maximum length is a hint and can be ignored. When the maximum
|
||||
length is omitted, an unconstrained string should be
|
||||
produced. The tags are sorted according to their nesting order,
|
||||
starting with the outermost tag. Single tags should be formatted
|
||||
using `semantic-idle-breadcrumbs-format-tag-function' unless
|
||||
special formatting is required."
|
||||
length is omitted, an unconstrained string should be produced.
|
||||
The tags are sorted according to their nesting order, starting
|
||||
with the outermost tag. Single tags should be formatted using
|
||||
`semantic-idle-breadcrumbs-format-tag-function' unless special
|
||||
formatting is required."
|
||||
:group 'semantic
|
||||
:type '(choice
|
||||
(const :tag "Format tags as list, innermost last"
|
||||
|
|
|
|||
|
|
@ -454,7 +454,7 @@ PROPSPECS must be a list of (TYPE PROPERTY VALUE)."
|
|||
(defsubst semantic-lex-map-types (fun &optional property)
|
||||
"Call function FUN on every lexical type.
|
||||
If optional PROPERTY is non-nil, call FUN only on every type symbol
|
||||
which as a PROPERTY value. FUN receives a type symbol as argument."
|
||||
which has a PROPERTY value. FUN receives a type symbol as argument."
|
||||
(semantic-lex-map-symbols
|
||||
fun semantic-lex-types-obarray property))
|
||||
|
||||
|
|
@ -769,7 +769,7 @@ Note: The order in which analyzers are listed is important.
|
|||
If two analyzers can match the same text, it is important to order the
|
||||
analyzers so that the one you want to match first occurs first. For
|
||||
example, it is good to put a number analyzer in front of a symbol
|
||||
analyzer which might mistake a number for as a symbol."
|
||||
analyzer which might mistake a number for a symbol."
|
||||
`(defun ,name (start end &optional depth length)
|
||||
,(concat doc "\nSee `semantic-lex' for more information.")
|
||||
;; Make sure the state of block parsing starts over.
|
||||
|
|
|
|||
|
|
@ -198,7 +198,7 @@ Tags of those classes are excluded from search."
|
|||
|
||||
(defun senator-search-default-tag-filter (tag)
|
||||
"Default function that filters searched tags.
|
||||
Ignore tags of classes in `senator-search-ignore-tag-classes'"
|
||||
Ignore tags of classes in `senator-search-ignore-tag-classes'."
|
||||
(not (memq (semantic-tag-class tag)
|
||||
senator-search-ignore-tag-classes)))
|
||||
|
||||
|
|
|
|||
|
|
@ -319,7 +319,7 @@ where different symbols are used.
|
|||
|
||||
Subclasses should be named `semantic-symref-tool-NAME', where
|
||||
NAME is the name of the tool used in the configuration variable
|
||||
`semantic-symref-tool'"
|
||||
`semantic-symref-tool'."
|
||||
:abstract t)
|
||||
|
||||
(cl-defmethod semantic-symref-get-result ((tool semantic-symref-tool-baseclass))
|
||||
|
|
@ -476,7 +476,7 @@ Return the Semantic tag associated with HIT.
|
|||
SEARCHTXT is the text that is being searched for.
|
||||
Used to narrow the in-buffer search.
|
||||
SEARCHTYPE is the type of search (such as 'symbol or 'tagname).
|
||||
If there is no database, of if the searchtype is wrong, return nil."
|
||||
If there is no database, or if the searchtype is wrong, return nil."
|
||||
;; Allowed search types for this mechanism:
|
||||
;; tagname, tagregexp, tagcompletions
|
||||
(if (not (memq searchtype '(tagname tagregexp tagcompletions)))
|
||||
|
|
|
|||
|
|
@ -471,8 +471,8 @@ ATTRIBUTES is a list of additional attributes belonging to this tag."
|
|||
NAME is the name of this variable.
|
||||
TYPE is a string or semantic tag representing the type of this variable.
|
||||
Optional DEFAULT-VALUE is a string representing the default value of this
|
||||
variable. ATTRIBUTES is a list of additional attributes belonging to this
|
||||
tag."
|
||||
variable.
|
||||
ATTRIBUTES is a list of additional attributes belonging to this tag."
|
||||
(apply 'semantic-tag name 'variable
|
||||
:type type
|
||||
:default-value default-value
|
||||
|
|
@ -518,8 +518,8 @@ ATTRIBUTES is a list of additional attributes belonging to this tag."
|
|||
(defsubst semantic-tag-new-include (name system-flag &rest attributes)
|
||||
"Create a semantic tag of class `include'.
|
||||
NAME is the name of this include.
|
||||
SYSTEM-FLAG represents that we were able to identify this include as belonging
|
||||
to the system, as opposed to belonging to the local project.
|
||||
SYSTEM-FLAG represents that we were able to identify this include as
|
||||
belonging to the system, as opposed to belonging to the local project.
|
||||
ATTRIBUTES is a list of additional attributes belonging to this tag."
|
||||
(apply 'semantic-tag name 'include
|
||||
:system-flag system-flag
|
||||
|
|
@ -528,8 +528,8 @@ ATTRIBUTES is a list of additional attributes belonging to this tag."
|
|||
(defsubst semantic-tag-new-package (name detail &rest attributes)
|
||||
"Create a semantic tag of class `package'.
|
||||
NAME is the name of this package.
|
||||
DETAIL is extra information about this package, such as a location where
|
||||
it can be found.
|
||||
DETAIL is extra information about this package, such as a location
|
||||
where it can be found.
|
||||
ATTRIBUTES is a list of additional attributes belonging to this tag."
|
||||
(apply 'semantic-tag name 'package
|
||||
:detail detail
|
||||
|
|
@ -547,7 +547,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag."
|
|||
(defsubst semantic-tag-set-faux (tag)
|
||||
"Set TAG to be a new FAUX tag.
|
||||
FAUX tags represent constructs not found in the source code.
|
||||
You can identify a faux tag with `semantic-tag-faux-p'"
|
||||
You can identify a faux tag with `semantic-tag-faux-p'."
|
||||
(semantic--tag-put-property tag :faux-flag t))
|
||||
|
||||
(defsubst semantic-tag-set-name (tag name)
|
||||
|
|
@ -565,9 +565,9 @@ You can identify a faux tag with `semantic-tag-faux-p'"
|
|||
;; it. This prevents saving of massive amounts of proxy data.
|
||||
(defun semantic-create-tag-proxy (function data)
|
||||
"Create a tag proxy symbol.
|
||||
FUNCTION will be used to resolve the proxy. It should take 3
|
||||
FUNCTION will be used to resolve the proxy. It should take
|
||||
two arguments, DATA and TAG. TAG is a proxy tag that needs
|
||||
to be resolved, and DATA is the DATA passed into this function.
|
||||
to be resolved, and DATA is the data passed into this function.
|
||||
DATA is data to help resolve the proxy. DATA can be an EIEIO object,
|
||||
such that FUNCTION is a method.
|
||||
FUNCTION should return a list of tags, preferably one tag."
|
||||
|
|
@ -870,7 +870,7 @@ That is the value of the `:throws' attribute."
|
|||
"Return the parent of the function that TAG describes.
|
||||
That is the value of the `:parent' attribute.
|
||||
A function has a parent if it is a method of a class, and if the
|
||||
function does not appear in body of its parent class."
|
||||
function does not appear in the body of its parent class."
|
||||
(semantic-tag-named-parent tag))
|
||||
|
||||
(defsubst semantic-tag-function-destructor-p (tag)
|
||||
|
|
@ -976,7 +976,7 @@ Perform the described task in `semantic-tag-components'."
|
|||
Children are any sub-tags which contain overlays.
|
||||
|
||||
Default behavior is to get `semantic-tag-components' in addition
|
||||
to the components of an anonymous types (if applicable.)
|
||||
to the components of an anonymous type (if applicable.)
|
||||
|
||||
Note for language authors:
|
||||
If a mode defines a language tag that has tags in it with overlays
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
"List expansion candidates for the :using-namespaces argument.
|
||||
A dictionary entry of the named PREFIX_NAMESPACE with the value
|
||||
NAMESPACE:: is created for each namespace unless the current
|
||||
buffer contains a using NAMESPACE; statement "
|
||||
buffer contains a using NAMESPACE; statement."
|
||||
:group 'srecode-cpp
|
||||
:type '(repeat string))
|
||||
|
||||
|
|
@ -56,7 +56,7 @@ buffer contains a using NAMESPACE; statement "
|
|||
|
||||
;;;###autoload
|
||||
(defun srecode-semantic-handle-:c (dict)
|
||||
"Add macros into the dictionary DICT based on the current c file.
|
||||
"Add macros into the dictionary DICT based on the current C file.
|
||||
Adds the following:
|
||||
FILENAME_SYMBOL - filename converted into a C compat symbol.
|
||||
HEADER - Shown section if in a header file."
|
||||
|
|
|
|||
|
|
@ -147,7 +147,7 @@ Makes sure that :value is compiled."
|
|||
;;
|
||||
|
||||
(defun srecode-create-dictionary (&optional buffer-or-parent)
|
||||
"Create a dictionary for BUFFER.
|
||||
"Create a dictionary for BUFFER-OR-PARENT.
|
||||
If BUFFER-OR-PARENT is not specified, assume a buffer, and
|
||||
use the current buffer.
|
||||
If BUFFER-OR-PARENT is another dictionary, then remember the
|
||||
|
|
@ -326,8 +326,8 @@ inserted dictionaries."
|
|||
entries &optional state)
|
||||
"Add ENTRIES to DICT.
|
||||
|
||||
ENTRIES is a list of even length of dictionary entries to
|
||||
add. ENTRIES looks like this:
|
||||
ENTRIES is a list of even length of dictionary entries to add.
|
||||
ENTRIES looks like this:
|
||||
|
||||
(NAME_1 VALUE_1 NAME_2 VALUE_2 ...)
|
||||
|
||||
|
|
|
|||
|
|
@ -287,7 +287,7 @@ in this order. Return nil if no start file found."
|
|||
|
||||
(defun scheme-compile-region (start end)
|
||||
"Compile the current region in the inferior Scheme process.
|
||||
\(A BEGIN is wrapped around the region: (BEGIN <region>))"
|
||||
\(A BEGIN is wrapped around the region: (BEGIN <region>).)"
|
||||
(interactive "r")
|
||||
(comint-send-string (scheme-proc) (format scheme-compile-exp-command
|
||||
(format "(begin %s)"
|
||||
|
|
|
|||
|
|
@ -291,11 +291,11 @@ conversion. If omitted or nil, use `color-d65-xyz'."
|
|||
(list (/ (* Y x) y) Y (/ (* Y (- 1 x y)) y))))
|
||||
|
||||
(defun color-lab-to-lch (L a b)
|
||||
"Convert CIE L*a*b* to L*C*h*"
|
||||
"Convert CIE L*a*b* to L*C*h*."
|
||||
(list L (sqrt (+ (* a a) (* b b))) (atan b a)))
|
||||
|
||||
(defun color-lch-to-lab (L C h)
|
||||
"Convert CIE L*a*b* to L*C*h*"
|
||||
"Convert CIE L*a*b* to L*C*h*."
|
||||
(list L (* C (cos h)) (* C (sin h))))
|
||||
|
||||
(defun color-cie-de2000 (color1 color2 &optional kL kC kH)
|
||||
|
|
|
|||
|
|
@ -214,7 +214,7 @@ scaling."
|
|||
(defcustom doc-view-image-width 850
|
||||
"Default image width.
|
||||
Has only an effect if `doc-view-scale-internally' is non-nil and support for
|
||||
scaling is compiled into emacs."
|
||||
scaling is compiled into Emacs."
|
||||
:version "24.1"
|
||||
:type 'number)
|
||||
|
||||
|
|
@ -1778,7 +1778,7 @@ If BACKWARD is non-nil, jump to the previous match."
|
|||
(error "Cannot determine the document type"))))))
|
||||
|
||||
(defun doc-view-set-up-single-converter ()
|
||||
"Find the right single-page converter for the current document type"
|
||||
"Find the right single-page converter for the current document type."
|
||||
(pcase-let ((`(,conv-function ,type ,extension)
|
||||
(pcase doc-view-doc-type
|
||||
('djvu (list #'doc-view-djvu->tiff-converter-ddjvu 'tiff "tif"))
|
||||
|
|
|
|||
|
|
@ -40,8 +40,8 @@
|
|||
"Change font and/or font settings for frames on display DISPLAY-OR-FRAME.
|
||||
If DISPLAY-OR-FRAME is a frame, the display is the one for that frame.
|
||||
|
||||
If SET-FONT is non-nil, change the font for frames. Otherwise re-apply the
|
||||
current form for the frame (i.e. hinting or somesuch changed)."
|
||||
If SET-FONT is non-nil, change the font for frames. Otherwise re-apply
|
||||
the current form for the frame (i.e. hinting or somesuch changed)."
|
||||
(let ((new-font (and (fboundp 'font-get-system-font)
|
||||
(font-get-system-font)))
|
||||
(frame-list (frames-on-display-list display-or-frame)))
|
||||
|
|
@ -68,8 +68,8 @@ current form for the frame (i.e. hinting or somesuch changed)."
|
|||
(defun dynamic-setting-handle-config-changed-event (event)
|
||||
"Handle config-changed-event on the display in EVENT.
|
||||
Changes can be
|
||||
The monospace font. If `font-use-system-font' is nil, the font
|
||||
is not changed.
|
||||
The monospace font. If `font-use-system-font' is nil,
|
||||
the font is not changed.
|
||||
The normal font.
|
||||
Xft parameters, like DPI and hinting.
|
||||
The Gtk+ theme name.
|
||||
|
|
|
|||
|
|
@ -51,7 +51,7 @@ See also the variable `electric-pair-text-pairs'."
|
|||
|
||||
Pairs of delimiters in this list are a fallback in case they have
|
||||
no syntax relevant to `electric-pair-mode' in the syntax table
|
||||
defined in `electric-pair-text-syntax-table'"
|
||||
defined in `electric-pair-text-syntax-table'."
|
||||
:version "24.4"
|
||||
:group 'electricity
|
||||
:type '(repeat (cons character character)))
|
||||
|
|
|
|||
|
|
@ -130,8 +130,8 @@ NODE is the node, and BRANCH is the branch.
|
|||
|
||||
(defun avl-tree--del-balance (node branch dir)
|
||||
"Rebalance a tree after deleting a node.
|
||||
The deletion was done from the left (DIR=0) or right (DIR=1) sub-tree of the
|
||||
left (BRANCH=0) or right (BRANCH=1) child of NODE.
|
||||
The deletion was done from the left (DIR=0) or right (DIR=1) sub-tree
|
||||
of the left (BRANCH=0) or right (BRANCH=1) child of NODE.
|
||||
Return t if the height of the tree has shrunk."
|
||||
;; (or is it vice-versa for BRANCH?)
|
||||
(let ((br (avl-tree--node-branch node branch))
|
||||
|
|
@ -477,11 +477,11 @@ value is non-nil."
|
|||
Matching uses the comparison function previously specified in
|
||||
`avl-tree-create' when TREE was created.
|
||||
|
||||
If there is no such element in the tree, nil is
|
||||
returned. Optional argument NILFLAG specifies a value to return
|
||||
instead of nil in this case. This allows non-existent elements to
|
||||
be distinguished from a null element. (See also
|
||||
`avl-tree-member-p', which does this for you.)"
|
||||
If there is no such element in the tree, nil is returned.
|
||||
Optional argument NILFLAG specifies a value to return instead of nil
|
||||
in this case. This allows non-existent elements to be distinguished
|
||||
from a null element. (See also `avl-tree-member-p', which does this
|
||||
for you.)"
|
||||
(let ((node (avl-tree--root tree))
|
||||
(compare-function (avl-tree--cmpfun tree)))
|
||||
(catch 'found
|
||||
|
|
@ -553,13 +553,13 @@ order, or descending order if REVERSE is non-nil."
|
|||
|
||||
|
||||
(defun avl-tree-mapcar (fun tree &optional reverse)
|
||||
"Apply FUNCTION to all elements in AVL tree TREE,
|
||||
"Apply function FUN to all elements in AVL tree TREE,
|
||||
and make a list of the results.
|
||||
|
||||
The FUNCTION is applied and the list constructed in ascending
|
||||
The function is applied and the list constructed in ascending
|
||||
order, or descending order if REVERSE is non-nil.
|
||||
|
||||
Note that if you don't care about the order in which FUNCTION is
|
||||
Note that if you don't care about the order in which FUN is
|
||||
applied, just that the resulting list is in the correct order,
|
||||
then
|
||||
|
||||
|
|
|
|||
|
|
@ -395,16 +395,16 @@ else the global value will be modified."
|
|||
"Non-nil means collect call-graph information when compiling.
|
||||
This records which functions were called and from where.
|
||||
If the value is t, compilation displays the call graph when it finishes.
|
||||
If the value is neither t nor nil, compilation asks you whether to display
|
||||
the graph.
|
||||
If the value is neither t nor nil, compilation asks you whether to
|
||||
display the graph.
|
||||
|
||||
The call tree only lists functions called, not macros used. Those functions
|
||||
which the byte-code interpreter knows about directly (eq, cons, etc.) are
|
||||
not reported.
|
||||
The call tree only lists functions called, not macros used. Those
|
||||
functions which the byte-code interpreter knows about directly (eq,
|
||||
cons, etc.) are not reported.
|
||||
|
||||
The call tree also lists those functions which are not known to be called
|
||||
\(that is, to which no calls have been compiled). Functions which can be
|
||||
invoked interactively are excluded from this list."
|
||||
The call tree also lists those functions which are not known to be
|
||||
called (that is, to which no calls have been compiled). Functions
|
||||
which can be invoked interactively are excluded from this list."
|
||||
:type '(choice (const :tag "Yes" t) (const :tag "No" nil)
|
||||
(other :tag "Ask" lambda)))
|
||||
|
||||
|
|
|
|||
|
|
@ -194,7 +194,7 @@
|
|||
"Non-nil means attempt auto-fixing of doc strings.
|
||||
If this value is the symbol `query', then the user is queried before
|
||||
any change is made. If the value is `automatic', then all changes are
|
||||
made without asking unless the change is very-complex. If the value
|
||||
made without asking unless the change is very complex. If the value
|
||||
is `semiautomatic' or any other value, then simple fixes are made
|
||||
without asking, and complex changes are made by asking the user first.
|
||||
The value `never' is the same as nil, never ask or change anything."
|
||||
|
|
@ -238,10 +238,10 @@ This is automatically set to nil if Ispell does not exist on your
|
|||
system. Possible values are:
|
||||
|
||||
nil - Don't spell-check during basic style checks.
|
||||
defun - Spell-check when style checking a single defun
|
||||
buffer - Spell-check when style checking the whole buffer
|
||||
defun - Spell-check when style checking a single defun.
|
||||
buffer - Spell-check when style checking the whole buffer.
|
||||
interactive - Spell-check during any interactive check.
|
||||
t - Always spell-check"
|
||||
t - Always spell-check."
|
||||
:type '(choice (const nil)
|
||||
(const defun)
|
||||
(const buffer)
|
||||
|
|
@ -1050,7 +1050,7 @@ space at the end of each line."
|
|||
(defun checkdoc-ispell ()
|
||||
"Check the style and spelling of everything interactively.
|
||||
Calls `checkdoc' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc'"
|
||||
Prefix argument is the same as for `checkdoc'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc)))
|
||||
|
|
@ -1059,7 +1059,7 @@ Prefix argument is the same as for `checkdoc'"
|
|||
(defun checkdoc-ispell-current-buffer ()
|
||||
"Check the style and spelling of the current buffer.
|
||||
Calls `checkdoc-current-buffer' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc-current-buffer'"
|
||||
Prefix argument is the same as for `checkdoc-current-buffer'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc-current-buffer)))
|
||||
|
|
@ -1068,7 +1068,7 @@ Prefix argument is the same as for `checkdoc-current-buffer'"
|
|||
(defun checkdoc-ispell-interactive ()
|
||||
"Check the style and spelling of the current buffer interactively.
|
||||
Calls `checkdoc-interactive' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc-interactive'"
|
||||
Prefix argument is the same as for `checkdoc-interactive'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc-interactive)))
|
||||
|
|
@ -1077,7 +1077,7 @@ Prefix argument is the same as for `checkdoc-interactive'"
|
|||
(defun checkdoc-ispell-message-interactive ()
|
||||
"Check the style and spelling of message text interactively.
|
||||
Calls `checkdoc-message-interactive' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc-message-interactive'"
|
||||
Prefix argument is the same as for `checkdoc-message-interactive'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc-message-interactive
|
||||
|
|
@ -1087,7 +1087,7 @@ Prefix argument is the same as for `checkdoc-message-interactive'"
|
|||
(defun checkdoc-ispell-message-text ()
|
||||
"Check the style and spelling of message text interactively.
|
||||
Calls `checkdoc-message-text' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc-message-text'"
|
||||
Prefix argument is the same as for `checkdoc-message-text'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc-message-text)))
|
||||
|
|
@ -1096,7 +1096,7 @@ Prefix argument is the same as for `checkdoc-message-text'"
|
|||
(defun checkdoc-ispell-start ()
|
||||
"Check the style and spelling of the current buffer.
|
||||
Calls `checkdoc-start' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc-start'"
|
||||
Prefix argument is the same as for `checkdoc-start'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc-start)))
|
||||
|
|
@ -1105,7 +1105,7 @@ Prefix argument is the same as for `checkdoc-start'"
|
|||
(defun checkdoc-ispell-continue ()
|
||||
"Check the style and spelling of the current buffer after point.
|
||||
Calls `checkdoc-continue' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc-continue'"
|
||||
Prefix argument is the same as for `checkdoc-continue'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc-continue)))
|
||||
|
|
@ -1114,7 +1114,7 @@ Prefix argument is the same as for `checkdoc-continue'"
|
|||
(defun checkdoc-ispell-comments ()
|
||||
"Check the style and spelling of the current buffer's comments.
|
||||
Calls `checkdoc-comments' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc-comments'"
|
||||
Prefix argument is the same as for `checkdoc-comments'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc-comments)))
|
||||
|
|
@ -1123,7 +1123,7 @@ Prefix argument is the same as for `checkdoc-comments'"
|
|||
(defun checkdoc-ispell-defun ()
|
||||
"Check the style and spelling of the current defun with Ispell.
|
||||
Calls `checkdoc-defun' with spell-checking turned on.
|
||||
Prefix argument is the same as for `checkdoc-defun'"
|
||||
Prefix argument is the same as for `checkdoc-defun'."
|
||||
(interactive)
|
||||
(let ((checkdoc-spellcheck-documentation-flag t))
|
||||
(call-interactively #'checkdoc-defun)))
|
||||
|
|
|
|||
|
|
@ -22,7 +22,7 @@
|
|||
|
||||
;;; Commentary:
|
||||
|
||||
;; This implements the most of CLOS's multiple-dispatch generic functions.
|
||||
;; This implements most of CLOS's multiple-dispatch generic functions.
|
||||
;; To use it you need either (require 'cl-generic) or (require 'cl-lib).
|
||||
;; The main entry points are: `cl-defgeneric' and `cl-defmethod'.
|
||||
|
||||
|
|
|
|||
|
|
@ -454,7 +454,7 @@ Must return the created widget."
|
|||
|
||||
(cl-defmethod eieio-read-customization-group ((obj eieio-default-superclass))
|
||||
"Do a completing read on the name of a customization group in OBJ.
|
||||
Return the symbol for the group, or nil"
|
||||
Return the symbol for the group, or nil."
|
||||
(let ((g (eieio--class-option (eieio--object-class obj)
|
||||
:custom-groups)))
|
||||
(if (= (length g) 1)
|
||||
|
|
|
|||
|
|
@ -60,8 +60,8 @@ Should take the same arguments and behave similarly to `forward-sexp'.")
|
|||
With ARG, do it that many times. Negative arg -N means move
|
||||
backward across N balanced expressions. This command assumes
|
||||
point is not in a string or comment. Calls
|
||||
`forward-sexp-function' to do the work, if that is non-nil. If
|
||||
unable to move over a sexp, signal `scan-error' with three
|
||||
`forward-sexp-function' to do the work, if that is non-nil.
|
||||
If unable to move over a sexp, signal `scan-error' with three
|
||||
arguments: a message, the start of the obstacle (usually a
|
||||
parenthesis or list marker of some kind), and end of the
|
||||
obstacle."
|
||||
|
|
|
|||
|
|
@ -124,7 +124,7 @@ Return the file contents, as a string, or nil if unsuccessful."
|
|||
(buffer-substring-no-properties (point-min) (point-max)))))))
|
||||
|
||||
(defun package--archive-contents-from-file ()
|
||||
"Parse the archive-contents at `package-archive-upload-base'"
|
||||
"Parse the archive-contents at `package-archive-upload-base'."
|
||||
(let ((file (expand-file-name "archive-contents"
|
||||
package-archive-upload-base)))
|
||||
(if (not (file-exists-p file))
|
||||
|
|
|
|||
|
|
@ -980,7 +980,7 @@ untar into a directory named DIR; otherwise, signal an error."
|
|||
auto-name))
|
||||
|
||||
(defun package--make-autoloads-and-stuff (pkg-desc pkg-dir)
|
||||
"Generate autoloads, description file, etc.. for PKG-DESC installed at PKG-DIR."
|
||||
"Generate autoloads, description file, etc., for PKG-DESC installed at PKG-DIR."
|
||||
(package-generate-autoloads (package-desc-name pkg-desc) pkg-dir)
|
||||
(let ((desc-file (expand-file-name (package--description-file pkg-dir)
|
||||
pkg-dir)))
|
||||
|
|
@ -2843,7 +2843,7 @@ If the name of a package matches any of these regexps it is
|
|||
omitted from the package menu. To toggle this, type \\[package-menu-toggle-hiding].
|
||||
|
||||
Values can be interactively added to this list by typing
|
||||
\\[package-menu-hide-package] on a package"
|
||||
\\[package-menu-hide-package] on a package."
|
||||
:version "25.1"
|
||||
:type '(repeat (regexp :tag "Hide packages with name matching")))
|
||||
|
||||
|
|
|
|||
|
|
@ -627,7 +627,7 @@ spreadsheet files with invalid formatting."
|
|||
(error nil)))))
|
||||
|
||||
(defun ses-exercise-startup ()
|
||||
"Prepare for coverage tests"
|
||||
"Prepare for coverage tests."
|
||||
;;Clean up from any previous runs
|
||||
(condition-case nil (kill-buffer "ses-example.ses") (error nil))
|
||||
(condition-case nil (kill-buffer "ses-test.ses") (error nil))
|
||||
|
|
|
|||
|
|
@ -150,12 +150,12 @@ call to one of the `testcover-1value-functions'."
|
|||
|
||||
(defface testcover-nohits
|
||||
'((t (:background "DeepPink2")))
|
||||
"Face for forms that had no hits during coverage test"
|
||||
"Face for forms that had no hits during coverage test."
|
||||
:group 'testcover)
|
||||
|
||||
(defface testcover-1value
|
||||
'((t (:background "Wheat2")))
|
||||
"Face for forms that always produced the same value during coverage test"
|
||||
"Face for forms that always produced the same value during coverage test."
|
||||
:group 'testcover)
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1902,7 +1902,7 @@ If you are unsure, use synchronous version of this function
|
|||
|
||||
(defun epg-receive-keys (context keys)
|
||||
"Add keys from server.
|
||||
KEYS is a list of key IDs"
|
||||
KEYS is a list of key IDs."
|
||||
(unwind-protect
|
||||
(progn
|
||||
(epg-start-receive-keys context keys)
|
||||
|
|
@ -2002,7 +2002,7 @@ PARAMETERS is a string which tells how to create the key."
|
|||
(defun epg-start-edit-key (context key edit-callback handback)
|
||||
"Initiate an edit operation on KEY.
|
||||
|
||||
EDIT-CALLBACK is called from process filter and takes 3
|
||||
EDIT-CALLBACK is called from process filter and takes four
|
||||
arguments: the context, a status, an argument string, and the
|
||||
handback argument.
|
||||
|
||||
|
|
|
|||
|
|
@ -169,10 +169,10 @@ REGEXP is the string matching text around the button or a symbol
|
|||
current server.
|
||||
|
||||
BUTTON is the number of the regexp grouping actually matching the
|
||||
button, This is ignored if REGEXP is \\='nicknames.
|
||||
button. This is ignored if REGEXP is \\='nicknames.
|
||||
|
||||
FORM is a lisp expression which must eval to true for the button to
|
||||
be added,
|
||||
be added.
|
||||
|
||||
CALLBACK is the function to call when the user push this button.
|
||||
CALLBACK can also be a symbol. Its variable value will be used
|
||||
|
|
@ -459,7 +459,7 @@ For use on `completion-at-point-functions'."
|
|||
t)))
|
||||
|
||||
(defun erc-browse-emacswiki (thing)
|
||||
"Browse to thing in the emacs-wiki."
|
||||
"Browse to THING in the emacs-wiki."
|
||||
(browse-url (concat erc-emacswiki-url thing)))
|
||||
|
||||
(defun erc-browse-emacswiki-lisp (thing)
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
(require 'erc)
|
||||
|
||||
(defgroup erc-ezbounce nil
|
||||
"Interface to the EZBounce IRC bouncer (a virtual IRC server)"
|
||||
"Interface to the EZBounce IRC bouncer (a virtual IRC server)."
|
||||
:group 'erc)
|
||||
|
||||
(defcustom erc-ezb-regexp "^ezbounce!srv$"
|
||||
|
|
|
|||
|
|
@ -340,7 +340,7 @@ filename is downcased."
|
|||
"Return the logfile to use for BUFFER.
|
||||
If BUFFER is nil, the value of `current-buffer' is used.
|
||||
This is determined by `erc-generate-log-file-name-function'.
|
||||
The result is converted to lowercase, as IRC is case-insensitive"
|
||||
The result is converted to lowercase, as IRC is case-insensitive."
|
||||
(unless buffer (setq buffer (current-buffer)))
|
||||
(with-current-buffer buffer
|
||||
(let ((target (or (buffer-name buffer) (erc-default-target)))
|
||||
|
|
|
|||
|
|
@ -199,8 +199,8 @@ When `away', log messages only when away."
|
|||
|
||||
(defcustom erc-log-match-format "%t<%n:%c> %m"
|
||||
"Format for matched Messages.
|
||||
This variable specifies how messages in the corresponding log buffers will
|
||||
be formatted. The various format specs are:
|
||||
This variable specifies how messages in the corresponding log buffers
|
||||
will be formatted. The various format specs are:
|
||||
|
||||
%t Timestamp (uses `erc-timestamp-format' if non-nil or \"[%Y-%m-%d %H:%M] \")
|
||||
%n Nickname of sender
|
||||
|
|
@ -227,7 +227,7 @@ for beeping to work."
|
|||
"Hook run when text matches a given match-type.
|
||||
Functions in this hook are passed as arguments:
|
||||
\(match-type nick!user@host message) where MATCH-TYPE is a symbol of:
|
||||
current-nick, keyword, pal, dangerous-host, fool"
|
||||
current-nick, keyword, pal, dangerous-host, fool."
|
||||
:options '(erc-log-matches erc-hide-fools erc-beep-on-match)
|
||||
:group 'erc-match
|
||||
:type 'hook)
|
||||
|
|
|
|||
|
|
@ -33,9 +33,9 @@
|
|||
(require 'erc)
|
||||
|
||||
(defgroup erc-netsplit nil
|
||||
"Netsplit detection tries to automatically figure when a
|
||||
netsplit happens, and filters the QUIT messages. It also keeps
|
||||
track of netsplits, so that it can filter the JOIN messages on a netjoin too."
|
||||
"Netsplit detection tries to automatically figure when a netsplit
|
||||
happens, and filters the QUIT messages. It also keeps track of
|
||||
netsplits, so that it can filter the JOIN messages on a netjoin too."
|
||||
:group 'erc)
|
||||
|
||||
;;;###autoload(autoload 'erc-netsplit-mode "erc-netsplit")
|
||||
|
|
@ -57,8 +57,7 @@ track of netsplits, so that it can filter the JOIN messages on a netjoin too."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom erc-netsplit-debug nil
|
||||
"If non-nil, debug messages will be shown in the
|
||||
sever buffer."
|
||||
"If non-nil, debug messages will be shown in the sever buffer."
|
||||
:group 'erc-netsplit
|
||||
:type 'boolean)
|
||||
|
||||
|
|
|
|||
|
|
@ -436,10 +436,11 @@
|
|||
("ZiRC: Random server" ZiRC "irc.zirc.org" ((6660 6669)))
|
||||
("ZUHnet: Random server" ZUHnet "irc.zuh.net" 6667)
|
||||
("Zurna: Random server" Zurna "irc.zurna.net" 6667))
|
||||
"Alist of irc servers. (NAME NET HOST PORTS) where
|
||||
"Alist of irc servers.
|
||||
Each server is a list (NAME NET HOST PORTS) where
|
||||
NAME is a name for that server,
|
||||
NET is a symbol indicating to which network from `erc-networks-alist' this
|
||||
server corresponds,
|
||||
NET is a symbol indicating to which network from `erc-networks-alist'
|
||||
this server corresponds,
|
||||
HOST is the servers hostname and
|
||||
PORTS is either a number, a list of numbers, or a list of port ranges."
|
||||
:group 'erc-networks
|
||||
|
|
@ -706,12 +707,13 @@ PORTS is either a number, a list of numbers, or a list of port ranges."
|
|||
(ZiRC "zirc.org")
|
||||
(ZUHnet "zuh.net")
|
||||
(Zurna "zurna.net"))
|
||||
"Alist of IRC networks. (NET MATCHER) where
|
||||
"Alist of IRC networks.
|
||||
Each network is a list (NET MATCHER) where
|
||||
NET is a symbol naming that IRC network and
|
||||
MATCHER is used to find a corresponding network to a server while connected to
|
||||
it. If it is regexp, it's used to match against `erc-server-announced-name'.
|
||||
It can also be a function (predicate). Then it is executed with the
|
||||
server buffer as current-buffer."
|
||||
MATCHER is used to find a corresponding network to a server while
|
||||
connected to it. If it is regexp, it's used to match against
|
||||
`erc-server-announced-name'. It can also be a function (predicate).
|
||||
Then it is executed with the server buffer as current-buffer."
|
||||
:group 'erc-networks
|
||||
:type '(repeat
|
||||
(list :tag "Network"
|
||||
|
|
@ -749,8 +751,8 @@ search for a match in `erc-networks-alist'."
|
|||
(erc-with-server-buffer erc-network))
|
||||
|
||||
(defun erc-current-network ()
|
||||
"Deprecated. Use `erc-network' instead. Return the name of this server's
|
||||
network as a symbol."
|
||||
"Deprecated. Use `erc-network' instead.
|
||||
Return the name of this server's network as a symbol."
|
||||
(erc-with-server-buffer
|
||||
(intern (downcase (symbol-name erc-network)))))
|
||||
|
||||
|
|
|
|||
|
|
@ -42,7 +42,7 @@
|
|||
;;; Customization:
|
||||
|
||||
(defgroup erc-speedbar nil
|
||||
"Integration of ERC in the Speedbar"
|
||||
"Integration of ERC in the Speedbar."
|
||||
:group 'erc)
|
||||
|
||||
(defcustom erc-speedbar-sort-users-type 'activity
|
||||
|
|
@ -270,8 +270,8 @@ INDENT is the current indentation level."
|
|||
indent))))
|
||||
|
||||
(defun erc-speedbar-update-channel (buffer)
|
||||
"Update the speedbar information about a ERC buffer. The update
|
||||
is only done when the channel is actually expanded already."
|
||||
"Update the speedbar information about a ERC buffer.
|
||||
The update is only done when the channel is actually expanded already."
|
||||
;; This is only a rude hack and doesn't care about multiserver usage
|
||||
;; yet, consider this a brain storming, better ideas?
|
||||
(with-current-buffer speedbar-buffer
|
||||
|
|
|
|||
|
|
@ -245,7 +245,7 @@ The effect may be disabled by setting this variable to nil."
|
|||
(defcustom erc-track-position-in-mode-line 'before-modes
|
||||
"Where to show modified channel information in the mode-line.
|
||||
|
||||
Setting this variable only has effects in GNU Emacs versions above 21.3.
|
||||
Setting this variable only has effect in GNU Emacs versions above 21.3.
|
||||
|
||||
Choices are:
|
||||
`before-modes' - add to the beginning of `mode-line-modes',
|
||||
|
|
@ -328,7 +328,7 @@ important."
|
|||
|
||||
|
||||
(defun erc-track-remove-from-mode-line ()
|
||||
"Remove `erc-track-modified-channels' from the mode-line"
|
||||
"Remove `erc-track-modified-channels' from the mode-line."
|
||||
(when (boundp 'mode-line-modes)
|
||||
(setq mode-line-modes
|
||||
(remove '(t erc-modified-channels-object) mode-line-modes)))
|
||||
|
|
@ -864,7 +864,7 @@ is in `erc-mode'."
|
|||
|
||||
(defvar erc-track-last-non-erc-buffer nil
|
||||
"Stores the name of the last buffer you were in before activating
|
||||
`erc-track-switch-buffers'")
|
||||
`erc-track-switch-buffers'.")
|
||||
|
||||
(defun erc-track-sort-by-activest ()
|
||||
"Sort erc-modified-channels-alist by activity.
|
||||
|
|
@ -889,7 +889,7 @@ higher number than any other face in that list."
|
|||
count))
|
||||
|
||||
(defun erc-track-sort-by-importance ()
|
||||
"Sort erc-modified-channels-alist by importance.
|
||||
"Sort `erc-modified-channels-alist' by importance.
|
||||
That means the position of the face in `erc-track-faces-priority-list'."
|
||||
(setq erc-modified-channels-alist
|
||||
(sort erc-modified-channels-alist
|
||||
|
|
@ -898,8 +898,8 @@ That means the position of the face in `erc-track-faces-priority-list'."
|
|||
|
||||
(defun erc-track-get-active-buffer (arg)
|
||||
"Return the buffer name of ARG in `erc-modified-channels-alist'.
|
||||
Negative arguments index in the opposite direction. This direction is
|
||||
relative to `erc-track-switch-direction'"
|
||||
Negative arguments index in the opposite direction. This direction
|
||||
is relative to `erc-track-switch-direction'."
|
||||
(let ((dir erc-track-switch-direction)
|
||||
offset)
|
||||
(when (< arg 0)
|
||||
|
|
|
|||
|
|
@ -558,7 +558,7 @@ of the list is of the form (USER . CHANNEL-DATA), where USER is
|
|||
an erc-server-user struct, and CHANNEL-DATA is either nil or an
|
||||
erc-channel-user struct.
|
||||
|
||||
See also: `erc-sort-channel-users-by-activity'"
|
||||
See also: `erc-sort-channel-users-by-activity'."
|
||||
(let (users)
|
||||
(if (hash-table-p erc-channel-users)
|
||||
(maphash (lambda (_nick cdata)
|
||||
|
|
@ -739,7 +739,7 @@ See also: `erc-echo-notice-always-hook',
|
|||
`erc-echo-notice-in-active-buffer',
|
||||
`erc-echo-notice-in-user-buffers',
|
||||
`erc-echo-notice-in-user-and-target-buffers',
|
||||
`erc-echo-notice-in-first-user-buffer'"
|
||||
`erc-echo-notice-in-first-user-buffer'."
|
||||
:group 'erc-hooks
|
||||
:type 'hook
|
||||
:options '(erc-echo-notice-in-default-buffer
|
||||
|
|
@ -770,7 +770,7 @@ See also: `erc-echo-notice-hook',
|
|||
`erc-echo-notice-in-active-buffer',
|
||||
`erc-echo-notice-in-user-buffers',
|
||||
`erc-echo-notice-in-user-and-target-buffers',
|
||||
`erc-echo-notice-in-first-user-buffer'"
|
||||
`erc-echo-notice-in-first-user-buffer'."
|
||||
:group 'erc-hooks
|
||||
:type 'hook
|
||||
:options '(erc-echo-notice-in-default-buffer
|
||||
|
|
|
|||
|
|
@ -2133,8 +2133,8 @@ think it does, because \"free\" is pretty hard to define in practice."
|
|||
OP-TYPE specifies the file operation being performed (for message
|
||||
to user). If OFFER-RAW is true, give user the additional option
|
||||
to open the file literally. If the user chooses this option,
|
||||
`abort-if-file-too-large' returns the symbol `raw'. Otherwise, it
|
||||
returns nil or exits non-locally."
|
||||
`abort-if-file-too-large' returns the symbol `raw'. Otherwise,
|
||||
it returns nil or exits non-locally."
|
||||
(let ((choice (and large-file-warning-threshold size
|
||||
(> size large-file-warning-threshold)
|
||||
;; No point in warning if we can't read it.
|
||||
|
|
@ -4177,8 +4177,8 @@ This function returns either:
|
|||
NODE is assumed to be a cons cell where the car is either a
|
||||
string or a symbol representing a mode name.
|
||||
|
||||
If it is a mode then the the depth of the mode (ie, how many
|
||||
parents that mode has) will be returned.
|
||||
If it is a mode then the depth of the mode (ie, how many parents
|
||||
that mode has) will be returned.
|
||||
|
||||
If it is a string then the length of the string plus 1000 will be
|
||||
returned.
|
||||
|
|
@ -5934,7 +5934,7 @@ This returns non-nil if the current buffer is visiting a readable file
|
|||
whose modification time does not match that of the buffer.
|
||||
|
||||
This function only handles buffers that are visiting files.
|
||||
Non-file buffers need a custom function"
|
||||
Non-file buffers need a custom function."
|
||||
(and buffer-file-name
|
||||
(file-readable-p buffer-file-name)
|
||||
(not (buffer-modified-p (current-buffer)))
|
||||
|
|
|
|||
|
|
@ -545,8 +545,8 @@ computer environments."
|
|||
(defcustom filesets-tree-max-level 3
|
||||
"Maximum scan depth for directory trees.
|
||||
A :tree fileset is defined by a base directory the contents of which
|
||||
will be recursively added to the menu. `filesets-tree-max-level' tells up
|
||||
to which level the directory structure should be scanned/listed,
|
||||
will be recursively added to the menu. `filesets-tree-max-level' tells
|
||||
up to which level the directory structure should be scanned/listed,
|
||||
i.e. how deep the menu should be. Try something like
|
||||
|
||||
(\"HOME -- only one level\"
|
||||
|
|
@ -966,11 +966,11 @@ Example definition:
|
|||
`filesets-data' is a list of (NAME-AS-STRING . DEFINITION), DEFINITION
|
||||
being an association list with the fields:
|
||||
|
||||
:files FILE-1 .. FILE-N ... a list of files belonging to a fileset
|
||||
:files FILE-1 .. FILE-N ... a list of files belonging to a fileset.
|
||||
|
||||
:ingroup FILE-NAME ... an inclusion group's base file.
|
||||
|
||||
:tree ROOT-DIR PATTERN ... a base directory and a file pattern
|
||||
:tree ROOT-DIR PATTERN ... a base directory and a file pattern.
|
||||
|
||||
:pattern DIR PATTERN ... a base directory and a regexp matching
|
||||
files in that directory. Usually,
|
||||
|
|
@ -981,17 +981,17 @@ being an association list with the fields:
|
|||
:filter-dirs-flag BOOLEAN ... is only used in conjunction with :tree.
|
||||
|
||||
:tree-max-level INTEGER ... recurse into directories this many levels
|
||||
\(see `filesets-tree-max-level' for a full explanation)
|
||||
\(see `filesets-tree-max-level' for a full explanation).
|
||||
|
||||
:dormant-flag BOOLEAN ... non-nil means don't show this item in the
|
||||
menu; dormant filesets can still be manipulated via commands available
|
||||
from the minibuffer -- e.g. `filesets-open', `filesets-close', or
|
||||
`filesets-run-cmd'
|
||||
`filesets-run-cmd'.
|
||||
|
||||
:dormant-p FUNCTION ... a function returning :dormant-flag
|
||||
:dormant-p FUNCTION ... a function returning :dormant-flag.
|
||||
|
||||
:open FUNCTION ... the function used to open file belonging to this
|
||||
fileset. The function takes a file name as argument
|
||||
fileset. The function takes a file name as argument.
|
||||
|
||||
:save FUNCTION ... the function used to save file belonging to this
|
||||
fileset; it takes no arguments, but works on the current buffer.
|
||||
|
|
@ -1003,7 +1003,8 @@ optional.
|
|||
|
||||
In conjunction with the :tree tag, :save is void. :open refers to the
|
||||
function used for opening files in a directory, not for opening the
|
||||
directory. For browsing directories, `filesets-browse-dir-function' is used.
|
||||
directory. For browsing directories, `filesets-browse-dir-function'
|
||||
is used.
|
||||
|
||||
Before using :ingroup, make sure that the file type is already
|
||||
defined in `filesets-ingroup-patterns'."
|
||||
|
|
|
|||
|
|
@ -1739,9 +1739,9 @@ the article files."
|
|||
(defun gnus-agent-flush-cache ()
|
||||
"Flush the agent's index files such that the group no longer
|
||||
appears to have any local content. The actual content, the
|
||||
article files, is then deleted using gnus-agent-expire-group. The
|
||||
gnus-agent-regenerate-group method provides an undo mechanism by
|
||||
reconstructing the index files from the article files."
|
||||
article files, is then deleted using gnus-agent-expire-group.
|
||||
The gnus-agent-regenerate-group method provides an undo mechanism
|
||||
by reconstructing the index files from the article files."
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(let ((file-name-coding-system nnmail-pathname-coding-system))
|
||||
|
|
|
|||
|
|
@ -7374,7 +7374,7 @@ man page."
|
|||
Strings like this can be either a message ID or a mail address. If it is one
|
||||
of the symbols `mid' or `mail', Gnus will always assume that the string is a
|
||||
message ID or a mail address, respectively. If this variable is set to the
|
||||
symbol `ask', always query the user what do do. If it is a function, this
|
||||
symbol `ask', always query the user what to do. If it is a function, this
|
||||
function will be called with the string as its only argument. The function
|
||||
must return `mid', `mail', `invalid' or `ask'."
|
||||
:version "22.1"
|
||||
|
|
|
|||
|
|
@ -98,8 +98,8 @@ Emacs has been idle for IDLE `gnus-demon-timestep's."
|
|||
(defun gnus-demon-run-callback (func &optional idle time special)
|
||||
"Run FUNC if Emacs has been idle for longer than IDLE seconds.
|
||||
If not, and a TIME is given, restart a new idle timer, so FUNC
|
||||
can be called at the next opportunity. Such a special idle run is
|
||||
marked with SPECIAL."
|
||||
can be called at the next opportunity. Such a special idle run
|
||||
is marked with SPECIAL."
|
||||
(unless gnus-inhibit-demon
|
||||
(cl-block run-callback
|
||||
(when (eq idle t)
|
||||
|
|
|
|||
|
|
@ -210,10 +210,10 @@ If ARG is non-nil, open it in a new buffer."
|
|||
"In dired, print FILE-NAME according to the mailcap file.
|
||||
|
||||
If there is no print command, print in a PostScript image. If the
|
||||
optional argument PRINT-TO is nil, send the image to the printer. If
|
||||
PRINT-TO is a string, save the PostScript image in a file with that
|
||||
name. If PRINT-TO is a number, prompt the user for the name of the
|
||||
file to save in."
|
||||
optional argument PRINT-TO is nil, send the image to the printer.
|
||||
If PRINT-TO is a string, save the PostScript image in a file with
|
||||
that name. If PRINT-TO is a number, prompt the user for the name
|
||||
of the file to save in."
|
||||
(interactive (list
|
||||
(file-name-sans-versions (dired-get-filename) t)
|
||||
(ps-print-preprint current-prefix-arg)))
|
||||
|
|
|
|||
|
|
@ -250,7 +250,8 @@
|
|||
"Parse RFC5545 iCalendar in buffer BUF and return an event object.
|
||||
|
||||
Return a gnus-icalendar-event object representing the first event
|
||||
contained in the invitation. Return nil for calendars without an event entry.
|
||||
contained in the invitation. Return nil for calendars without an
|
||||
event entry.
|
||||
|
||||
ATTENDEE-NAME-OR-EMAIL is a list of strings that will be matched
|
||||
against the event's attendee names and emails. Invitation rsvp
|
||||
|
|
|
|||
|
|
@ -344,8 +344,8 @@ Return a list of updated types."
|
|||
|
||||
(defun gnus-pad-form (el pad-width)
|
||||
"Return a form that pads EL to PAD-WIDTH accounting for multi-column
|
||||
characters correctly. This is because `format' may pad to columns or to
|
||||
characters when given a pad value."
|
||||
characters correctly. This is because `format' may pad to columns
|
||||
or to characters when given a pad value."
|
||||
(let ((pad (abs pad-width))
|
||||
(side (< 0 pad-width)))
|
||||
(if (symbolp el)
|
||||
|
|
|
|||
|
|
@ -190,14 +190,14 @@ If nil, a faster, but more primitive, buffer is used instead."
|
|||
'((((class color) (background light)) (:foreground "PaleTurquoise" :bold t))
|
||||
(((class color) (background dark)) (:foreground "PaleTurquoise" :bold t))
|
||||
(t (:bold t)))
|
||||
"Face used for displaying AGENTIZED servers"
|
||||
"Face used for displaying AGENTIZED servers."
|
||||
:group 'gnus-server-visual)
|
||||
|
||||
(defface gnus-server-cloud
|
||||
'((((class color) (background light)) (:foreground "ForestGreen" :bold t))
|
||||
(((class color) (background dark)) (:foreground "PaleGreen" :bold t))
|
||||
(t (:bold t)))
|
||||
"Face used for displaying Cloud-synced servers"
|
||||
"Face used for displaying Cloud-synced servers."
|
||||
:group 'gnus-server-visual)
|
||||
|
||||
(defface gnus-server-cloud-host
|
||||
|
|
@ -211,7 +211,7 @@ If nil, a faster, but more primitive, buffer is used instead."
|
|||
'((((class color) (background light)) (:foreground "Green3" :bold t))
|
||||
(((class color) (background dark)) (:foreground "Green1" :bold t))
|
||||
(t (:bold t)))
|
||||
"Face used for displaying OPENED servers"
|
||||
"Face used for displaying OPENED servers."
|
||||
:group 'gnus-server-visual)
|
||||
|
||||
(defface gnus-server-closed
|
||||
|
|
@ -219,21 +219,21 @@ If nil, a faster, but more primitive, buffer is used instead."
|
|||
(((class color) (background dark))
|
||||
(:foreground "LightBlue" :italic t))
|
||||
(t (:italic t)))
|
||||
"Face used for displaying CLOSED servers"
|
||||
"Face used for displaying CLOSED servers."
|
||||
:group 'gnus-server-visual)
|
||||
|
||||
(defface gnus-server-denied
|
||||
'((((class color) (background light)) (:foreground "Red" :bold t))
|
||||
(((class color) (background dark)) (:foreground "Pink" :bold t))
|
||||
(t (:inverse-video t :bold t)))
|
||||
"Face used for displaying DENIED servers"
|
||||
"Face used for displaying DENIED servers."
|
||||
:group 'gnus-server-visual)
|
||||
|
||||
(defface gnus-server-offline
|
||||
'((((class color) (background light)) (:foreground "Orange" :bold t))
|
||||
(((class color) (background dark)) (:foreground "Yellow" :bold t))
|
||||
(t (:inverse-video t :bold t)))
|
||||
"Face used for displaying OFFLINE servers"
|
||||
"Face used for displaying OFFLINE servers."
|
||||
:group 'gnus-server-visual)
|
||||
|
||||
(defvar gnus-server-font-lock-keywords
|
||||
|
|
|
|||
|
|
@ -145,8 +145,8 @@ If t, fetch all the available old headers."
|
|||
(sexp :menu-tag "other" t)))
|
||||
|
||||
(defcustom gnus-refer-thread-use-nnir nil
|
||||
"Use nnir to search an entire server when referring threads. A
|
||||
nil value will only search for thread-related articles in the
|
||||
"Use nnir to search an entire server when referring threads.
|
||||
A nil value will only search for thread-related articles in the
|
||||
current group."
|
||||
:version "24.1"
|
||||
:group 'gnus-thread
|
||||
|
|
@ -9080,9 +9080,9 @@ Return the number of articles fetched."
|
|||
result))
|
||||
|
||||
(defun gnus-summary-refer-thread (&optional limit)
|
||||
"Fetch all articles in the current thread. For backends that
|
||||
know how to search for threads (currently only 'nnimap) a
|
||||
non-numeric prefix arg will use nnir to search the entire
|
||||
"Fetch all articles in the current thread. For backends
|
||||
that know how to search for threads (currently only 'nnimap)
|
||||
a non-numeric prefix arg will use nnir to search the entire
|
||||
server; without a prefix arg only the current group is
|
||||
searched. If the variable `gnus-refer-thread-use-nnir' is
|
||||
non-nil the prefix arg has the reverse meaning. If no
|
||||
|
|
@ -9647,8 +9647,8 @@ The search stars on the current article and goes forwards unless
|
|||
BACKWARD is non-nil. If BACKWARD is `all', do all articles.
|
||||
If UNREAD is non-nil, only unread articles will
|
||||
be taken into consideration. If NOT-CASE-FOLD, case won't be folded
|
||||
in the comparisons. If NOT-MATCHING, return a list of all articles that
|
||||
not match REGEXP on HEADER."
|
||||
in the comparisons. If NOT-MATCHING, return a list of all articles
|
||||
that not match REGEXP on HEADER."
|
||||
(let ((case-fold-search (not not-case-fold))
|
||||
articles func)
|
||||
(if (consp header)
|
||||
|
|
|
|||
|
|
@ -4055,10 +4055,10 @@ Allow completion over sensible values."
|
|||
;;;###autoload
|
||||
(defun gnus-no-server (&optional arg slave)
|
||||
"Read network news.
|
||||
If ARG is a positive number, Gnus will use that as the startup
|
||||
level. If ARG is nil, Gnus will be started at level 2. If ARG is
|
||||
non-nil and not a positive number, Gnus will prompt the user for the
|
||||
name of an NNTP server to use.
|
||||
If ARG is a positive number, Gnus will use that as the startup level.
|
||||
If ARG is nil, Gnus will be started at level 2. If ARG is non-nil
|
||||
and not a positive number, Gnus will prompt the user for the name of
|
||||
an NNTP server to use.
|
||||
As opposed to `gnus', this command will not connect to the local
|
||||
server."
|
||||
(interactive "P")
|
||||
|
|
|
|||
|
|
@ -286,7 +286,7 @@ number."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom mail-source-incoming-file-prefix "Incoming"
|
||||
"Prefix for file name for storing incoming mail"
|
||||
"Prefix for file name for storing incoming mail."
|
||||
:group 'mail-source
|
||||
:type 'string)
|
||||
|
||||
|
|
|
|||
|
|
@ -1131,8 +1131,8 @@ If `traditional', reply inline.
|
|||
If `above', reply above quoted text.
|
||||
If `below', reply below quoted text.
|
||||
|
||||
Note: Many newsgroups frown upon nontraditional reply styles. You
|
||||
probably want to set this variable only for specific groups,
|
||||
Note: Many newsgroups frown upon nontraditional reply styles.
|
||||
You probably want to set this variable only for specific groups,
|
||||
e.g. using `gnus-posting-styles':
|
||||
|
||||
(eval (set (make-local-variable \\='message-cite-reply-position) \\='above))"
|
||||
|
|
@ -1169,7 +1169,7 @@ use in `gnus-posting-styles', such as:
|
|||
(message-yank-cited-prefix "")
|
||||
(message-yank-empty-prefix "")
|
||||
(message-citation-line-format "\n\n-----------------------\nOn %a, %b %d %Y, %N wrote:\n"))
|
||||
"Message citation style used by MS Outlook. Use with message-cite-style.")
|
||||
"Message citation style used by MS Outlook. Use with `message-cite-style'.")
|
||||
|
||||
(defconst message-cite-style-thunderbird
|
||||
'((message-cite-function 'message-cite-original)
|
||||
|
|
@ -1179,7 +1179,7 @@ use in `gnus-posting-styles', such as:
|
|||
(message-yank-cited-prefix ">")
|
||||
(message-yank-empty-prefix ">")
|
||||
(message-citation-line-format "On %D %R %p, %N wrote:"))
|
||||
"Message citation style used by Mozilla Thunderbird. Use with message-cite-style.")
|
||||
"Message citation style used by Mozilla Thunderbird. Use with `message-cite-style'.")
|
||||
|
||||
(defconst message-cite-style-gmail
|
||||
'((message-cite-function 'message-cite-original)
|
||||
|
|
@ -1189,7 +1189,7 @@ use in `gnus-posting-styles', such as:
|
|||
(message-yank-cited-prefix " ")
|
||||
(message-yank-empty-prefix " ")
|
||||
(message-citation-line-format "On %e %B %Y %R, %f wrote:\n"))
|
||||
"Message citation style used by Gmail. Use with message-cite-style.")
|
||||
"Message citation style used by Gmail. Use with `message-cite-style'.")
|
||||
|
||||
(defcustom message-distribution-function nil
|
||||
"Function called to return a Distribution header."
|
||||
|
|
@ -4511,8 +4511,8 @@ smaller pieces, the size of each is about "
|
|||
one.
|
||||
|
||||
However, some mail readers (MUA's) can't read split messages, i.e.,
|
||||
mails in message/partially format. Answer `n', and the message will be
|
||||
sent in one piece.
|
||||
mails in message/partially format. Answer `n', and the message
|
||||
will be sent in one piece.
|
||||
|
||||
The size limit is controlled by `message-send-mail-partially-limit'.
|
||||
If you always want Gnus to send messages in one piece, set
|
||||
|
|
|
|||
|
|
@ -760,7 +760,7 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
|
|||
(autoload 'epa-select-keys "epa")
|
||||
|
||||
(defun mml2015-epg-key-image (key-id)
|
||||
"Return the image of a key, if any"
|
||||
"Return the image of a key, if any."
|
||||
(with-temp-buffer
|
||||
(set-buffer-multibyte nil)
|
||||
(let* ((coding-system-for-write 'binary)
|
||||
|
|
@ -777,7 +777,7 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
|
|||
(autoload 'gnus-rescale-image "gnus-util")
|
||||
|
||||
(defun mml2015-epg-key-image-to-string (key-id)
|
||||
"Return a string with the image of a key, if any"
|
||||
"Return a string with the image of a key, if any."
|
||||
(let ((key-image (mml2015-epg-key-image key-id)))
|
||||
(if (not key-image)
|
||||
""
|
||||
|
|
|
|||
|
|
@ -189,7 +189,7 @@
|
|||
"Internal: stores search result.")
|
||||
|
||||
(defvar nnir-search-history ()
|
||||
"Internal: the history for querying search options in nnir")
|
||||
"Internal: the history for querying search options in nnir.")
|
||||
|
||||
(defconst nnir-tmp-buffer " *nnir*"
|
||||
"Internal: temporary buffer.")
|
||||
|
|
@ -209,7 +209,7 @@
|
|||
(defvar nnir-imap-search-other "HEADER %S"
|
||||
"The IMAP search item to use for anything other than
|
||||
`nnir-imap-search-arguments'. By default this is the name of an
|
||||
email header field")
|
||||
email header field.")
|
||||
|
||||
(defvar nnir-imap-search-argument-history ()
|
||||
"The history for querying search options in nnir")
|
||||
|
|
@ -219,44 +219,44 @@
|
|||
;; Data type article list.
|
||||
|
||||
(defmacro nnir-artlist-length (artlist)
|
||||
"Returns number of articles in artlist."
|
||||
"Return number of articles in artlist."
|
||||
`(length ,artlist))
|
||||
|
||||
(defmacro nnir-artlist-article (artlist n)
|
||||
"Returns from ARTLIST the Nth artitem (counting starting at 1)."
|
||||
"Return from ARTLIST the Nth artitem (counting starting at 1)."
|
||||
`(when (> ,n 0)
|
||||
(elt ,artlist (1- ,n))))
|
||||
|
||||
(defmacro nnir-artitem-group (artitem)
|
||||
"Returns the group from the ARTITEM."
|
||||
"Return the group from the ARTITEM."
|
||||
`(elt ,artitem 0))
|
||||
|
||||
(defmacro nnir-artitem-number (artitem)
|
||||
"Returns the number from the ARTITEM."
|
||||
"Return the number from the ARTITEM."
|
||||
`(elt ,artitem 1))
|
||||
|
||||
(defmacro nnir-artitem-rsv (artitem)
|
||||
"Returns the Retrieval Status Value (RSV, score) from the ARTITEM."
|
||||
"Return the Retrieval Status Value (RSV, score) from the ARTITEM."
|
||||
`(elt ,artitem 2))
|
||||
|
||||
(defmacro nnir-article-group (article)
|
||||
"Returns the group for ARTICLE"
|
||||
"Return the group for ARTICLE."
|
||||
`(nnir-artitem-group (nnir-artlist-article nnir-artlist ,article)))
|
||||
|
||||
(defmacro nnir-article-number (article)
|
||||
"Returns the number for ARTICLE"
|
||||
"Return the number for ARTICLE."
|
||||
`(nnir-artitem-number (nnir-artlist-article nnir-artlist ,article)))
|
||||
|
||||
(defmacro nnir-article-rsv (article)
|
||||
"Returns the rsv for ARTICLE"
|
||||
"Return the rsv for ARTICLE."
|
||||
`(nnir-artitem-rsv (nnir-artlist-article nnir-artlist ,article)))
|
||||
|
||||
(defsubst nnir-article-ids (article)
|
||||
"Returns the pair `(nnir id . real id)' of ARTICLE"
|
||||
"Return the pair `(nnir id . real id)' of ARTICLE."
|
||||
(cons article (nnir-article-number article)))
|
||||
|
||||
(defmacro nnir-categorize (sequence keyfunc &optional valuefunc)
|
||||
"Sorts a sequence into categories and returns a list of the form
|
||||
"Sort a sequence into categories and returns a list of the form
|
||||
`((key1 (element11 element12)) (key2 (element21 element22))'.
|
||||
The category key for a member of the sequence is obtained
|
||||
as `(keyfunc member)' and the corresponding element is just
|
||||
|
|
@ -1456,8 +1456,9 @@ Tested with swish-e-2.0.1 on Windows NT 4.0."
|
|||
|
||||
;; Namazu interface
|
||||
(defun nnir-run-namazu (query server &optional _group)
|
||||
"Run given query against Namazu. Returns a vector of (group name, file name)
|
||||
pairs (also vectors, actually).
|
||||
"Run given query against Namazu.
|
||||
Returns a vector of (group name, file name) pairs (also vectors,
|
||||
actually).
|
||||
|
||||
Tested with Namazu 2.0.6 on a GNU/Linux system."
|
||||
;; (when group
|
||||
|
|
@ -1702,12 +1703,12 @@ construct path: search terms (see the variable
|
|||
(and group (string-match "^nnir" group))))
|
||||
|
||||
(defun nnir-read-parms (nnir-search-engine)
|
||||
"Reads additional search parameters according to `nnir-engines'."
|
||||
"Read additional search parameters according to `nnir-engines'."
|
||||
(let ((parmspec (nth 2 (assoc nnir-search-engine nnir-engines))))
|
||||
(mapcar #'nnir-read-parm parmspec)))
|
||||
|
||||
(defun nnir-read-parm (parmspec)
|
||||
"Reads a single search parameter.
|
||||
"Read a single search parameter.
|
||||
`parmspec' is a cons cell, the car is a symbol, the cdr is a prompt."
|
||||
(let ((sym (car parmspec))
|
||||
(prompt (cdr parmspec)))
|
||||
|
|
@ -1737,8 +1738,8 @@ construct path: search terms (see the variable
|
|||
nnir-method-default-engines))))
|
||||
|
||||
(defun nnir-read-server-parm (key server &optional not-global)
|
||||
"Returns the parameter value corresponding to `key' for
|
||||
`server'. If no server-specific value is found consult the global
|
||||
"Return the parameter value corresponding to `key' for `server'.
|
||||
If no server-specific value is found consult the global
|
||||
environment unless `not-global' is non-nil."
|
||||
(let ((method (gnus-server-to-method server)))
|
||||
(cond ((and method (assq key (cddr method)))
|
||||
|
|
|
|||
|
|
@ -318,9 +318,9 @@ symbol `ask', query before flushing the queue file."
|
|||
|
||||
;;;###autoload
|
||||
(defun spam-report-url-ping-mm-url (host report)
|
||||
"Ping a host through HTTP, addressing a specific GET resource. Use
|
||||
the external program specified in `mm-url-program' to connect to
|
||||
server."
|
||||
"Ping a host through HTTP, addressing a specific GET resource.
|
||||
Use the external program specified in `mm-url-program' to connect
|
||||
to server."
|
||||
(with-temp-buffer
|
||||
(let ((url (format "http://%s%s" host report)))
|
||||
(mm-url-insert url t))))
|
||||
|
|
|
|||
|
|
@ -578,12 +578,12 @@ This must be a list. For example, `(\"-C\" \"configfile\")'."
|
|||
|
||||
(defcustom spam-spamassassin-positive-spam-flag-header "YES"
|
||||
"The regex on `spam-spamassassin-spam-flag-header' for positive spam
|
||||
identification"
|
||||
identification."
|
||||
:type 'string
|
||||
:group 'spam-spamassassin)
|
||||
|
||||
(defcustom spam-spamassassin-spam-status-header "X-Spam-Status"
|
||||
"The header inserted by SpamAssassin, giving extended scoring information"
|
||||
"The header inserted by SpamAssassin, giving extended scoring information."
|
||||
:type 'string
|
||||
:group 'spam-spamassassin)
|
||||
|
||||
|
|
@ -594,7 +594,7 @@ identification"
|
|||
:group 'spam-spamassassin)
|
||||
|
||||
(defcustom spam-sa-learn-rebuild t
|
||||
"Whether sa-learn should rebuild the database every time it is called
|
||||
"Whether sa-learn should rebuild the database every time it is called.
|
||||
Enable this if you want sa-learn to rebuild the database automatically. Doing
|
||||
this will slightly increase the running time of the spam registration process.
|
||||
If you choose not to do this, you will have to run \"sa-learn --rebuild\" in
|
||||
|
|
@ -767,7 +767,7 @@ When either list is nil, the other is returned."
|
|||
nil))
|
||||
|
||||
(defun spam-classifications ()
|
||||
"Return list of valid classifications"
|
||||
"Return list of valid classifications."
|
||||
'(spam ham))
|
||||
|
||||
(defun spam-classification-valid-p (classification)
|
||||
|
|
@ -2185,7 +2185,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
|
|||
(require 'spam-stat)
|
||||
|
||||
(defun spam-check-stat ()
|
||||
"Check the spam-stat backend for the classification of this message"
|
||||
"Check the spam-stat backend for the classification of this message."
|
||||
(let ((spam-stat-split-fancy-spam-group spam-split-group) ; override
|
||||
(spam-stat-buffer (buffer-name)) ; stat the current buffer
|
||||
category return)
|
||||
|
|
@ -2609,7 +2609,7 @@ With a non-nil REMOVE, remove the ADDRESSES."
|
|||
|
||||
;; return something sensible if the score can't be determined
|
||||
(defun spam-spamassassin-score (&optional recheck)
|
||||
"Get the SpamAssassin score"
|
||||
"Get the SpamAssassin score."
|
||||
(interactive "P")
|
||||
(save-window-excursion
|
||||
(gnus-summary-show-article t)
|
||||
|
|
|
|||
|
|
@ -1022,7 +1022,7 @@ appeared on the mode-line."
|
|||
(delq nil (mapcar 'symbol-name minor-mode-list)))
|
||||
|
||||
(defun describe-minor-mode-from-symbol (symbol)
|
||||
"Display documentation of a minor mode given as a symbol, SYMBOL"
|
||||
"Display documentation of a minor mode given as a symbol, SYMBOL."
|
||||
(interactive (list (intern (completing-read
|
||||
"Minor mode symbol: "
|
||||
(describe-minor-mode-completion-table-for-symbol)))))
|
||||
|
|
|
|||
|
|
@ -248,7 +248,7 @@ If nil, all buffers are searched."
|
|||
(defcustom hippie-expand-ignore-buffers '("^ \\*.*\\*$" dired-mode)
|
||||
"A list specifying which buffers not to search (if not current).
|
||||
Can contain both regexps matching buffer names (as strings) and major modes
|
||||
\(as atoms)"
|
||||
\(as atoms)."
|
||||
:type '(repeat (choice regexp (symbol :tag "Major Mode")))
|
||||
:group 'hippie-expand)
|
||||
|
||||
|
|
|
|||
|
|
@ -1593,8 +1593,8 @@ Do not record undo information during evaluation of BODY."
|
|||
|
||||
(defun hfy-begin-span (style text-block text-id text-begins-block-p)
|
||||
"Default handler to begin a span of text.
|
||||
Insert \"<span class=\"STYLE\" ...>\". See
|
||||
`hfy-begin-span-handler' for more information."
|
||||
Insert \"<span class=\"STYLE\" ...>\".
|
||||
See `hfy-begin-span-handler' for more information."
|
||||
(when text-begins-block-p
|
||||
(insert
|
||||
(format "<span onclick=\"toggle_invis('%s');\">…</span>" text-block)))
|
||||
|
|
|
|||
|
|
@ -127,7 +127,7 @@ Buffers whose major mode is in this list, are not searched."
|
|||
(defvar ibuffer-auto-buffers-changed nil)
|
||||
|
||||
(defun ibuffer-update-saved-filters-format (filters)
|
||||
"Transforms alist from old to new `ibuffer-saved-filters' format.
|
||||
"Transform alist from old to new `ibuffer-saved-filters' format.
|
||||
|
||||
Specifically, converts old-format alist with values of the
|
||||
form (STRING (FILTER-SPECS...)) to alist with values of the
|
||||
|
|
@ -363,7 +363,7 @@ Currently, this only applies to `ibuffer-saved-filters' and
|
|||
:group 'ibuffer)
|
||||
|
||||
(defun ibuffer-repair-saved-filters ()
|
||||
"Updates `ibuffer-saved-filters' to its new-style format, if needed.
|
||||
"Update `ibuffer-saved-filters' to its new-style format, if needed.
|
||||
|
||||
If this list has any elements of the old-style format, a
|
||||
deprecation warning is raised, with a button allowing persistent
|
||||
|
|
@ -560,8 +560,8 @@ format. See `ibuffer-update-saved-filters-format' and
|
|||
;;;###autoload (autoload 'ibuffer-do-eval "ibuf-ext")
|
||||
(define-ibuffer-op eval (form)
|
||||
"Evaluate FORM in each of the buffers.
|
||||
Does not display the buffer during evaluation. See
|
||||
`ibuffer-do-view-and-eval' for that."
|
||||
Does not display the buffer during evaluation.
|
||||
See `ibuffer-do-view-and-eval' for that."
|
||||
(:interactive
|
||||
(list
|
||||
(read-from-minibuffer
|
||||
|
|
@ -697,7 +697,7 @@ specifications with the same structure as
|
|||
filters))))
|
||||
|
||||
(defun ibuffer-unary-operand (filter)
|
||||
"Extracts operand from a unary compound FILTER specification.
|
||||
"Extract operand from a unary compound FILTER specification.
|
||||
|
||||
FILTER should be a cons cell of either form (f . d) or (f d),
|
||||
where operand d is itself a cons cell, or nil. Returns d."
|
||||
|
|
|
|||
|
|
@ -298,7 +298,7 @@ with the information required by the Thumbnail Managing Standard."
|
|||
"Arguments for `image-dired-cmd-pngcrush-program'.
|
||||
Available format specifiers are the same as in
|
||||
`image-dired-cmd-create-thumbnail-options', with %q for a
|
||||
temporary file name (typically generated by pnqnq)"
|
||||
temporary file name (typically generated by pnqnq)."
|
||||
:version "26.1"
|
||||
:type '(repeat (string :tag "Argument"))
|
||||
:group 'image-dired)
|
||||
|
|
|
|||
|
|
@ -809,7 +809,7 @@ was inserted."
|
|||
|
||||
If the current buffer is displaying an image file as an image,
|
||||
call `image-mode-as-text' to switch to text or hex display.
|
||||
Otherwise, display the image by calling `image-mode'"
|
||||
Otherwise, display the image by calling `image-mode'."
|
||||
(interactive)
|
||||
(if (image-get-display-property)
|
||||
(image-mode-as-text)
|
||||
|
|
|
|||
|
|
@ -813,7 +813,7 @@ is a list of CCL-BLOCKs."
|
|||
t)
|
||||
|
||||
(defun ccl-compile-read-multibyte-character (cmd)
|
||||
"Compile read-multibyte-character"
|
||||
"Compile read-multibyte-character."
|
||||
(if (/= (length cmd) 3)
|
||||
(error "CCL: Invalid number of arguments: %s" cmd))
|
||||
(let ((RRR (nth 1 cmd))
|
||||
|
|
@ -824,7 +824,7 @@ is a list of CCL-BLOCKs."
|
|||
nil)
|
||||
|
||||
(defun ccl-compile-write-multibyte-character (cmd)
|
||||
"Compile write-multibyte-character"
|
||||
"Compile write-multibyte-character."
|
||||
(if (/= (length cmd) 3)
|
||||
(error "CCL: Invalid number of arguments: %s" cmd))
|
||||
(let ((RRR (nth 1 cmd))
|
||||
|
|
|
|||
|
|
@ -59,7 +59,7 @@ This string is shown at mode line when users are in KKC mode.")
|
|||
(defconst kkc-lookup-cache-tag 'kkc-lookup-cache-2)
|
||||
|
||||
(defun kkc-save-init-file ()
|
||||
"Save initial setup code for KKC to a file specified by `kkc-init-file-name'"
|
||||
"Save initial setup code for KKC to a file specified by `kkc-init-file-name'."
|
||||
(if (and kkc-init-file-flag
|
||||
(not (eq kkc-init-file-flag t)))
|
||||
(let ((coding-system-for-write 'iso-2022-7bit)
|
||||
|
|
|
|||
|
|
@ -62,8 +62,8 @@
|
|||
136 141 171 184 196 151 230 144 253))
|
||||
)
|
||||
"The constant `ogonek-name-encoding-alist' is a list of (NAME.LIST) pairs.
|
||||
Each LIST contains codes for 18 Polish diacritic characters. The codes
|
||||
are given in the following order:
|
||||
Each LIST contains codes for 18 Polish diacritic characters.
|
||||
The codes are given in the following order:
|
||||
Aogonek Cacute Eogonek Lslash Nacute Oacute Sacute Zacute Zdotaccent
|
||||
aogonek cacute eogonek lslash nacute oacute sacute zacute zdotaccent.")
|
||||
|
||||
|
|
@ -329,7 +329,7 @@ PROMPT is a string to be shown when the user is asked for a new prefix."
|
|||
(defun ogonek-lookup-encoding (encoding)
|
||||
"Pick up an association for ENCODING in `ogonek-name-encoding-alist'.
|
||||
Before returning a result test whether the string ENCODING is in
|
||||
the list `ogonek-name-encoding-alist'"
|
||||
the list `ogonek-name-encoding-alist'."
|
||||
(let ((code-list (assoc encoding ogonek-name-encoding-alist)))
|
||||
(if (null code-list)
|
||||
(error "! Name `%s' not known in `ogonek-name-encoding-alist'"
|
||||
|
|
|
|||
|
|
@ -207,8 +207,8 @@ to the search status stack.")
|
|||
"Predicate to filter hits of Isearch and replace commands.
|
||||
Isearch hits that don't satisfy the predicate will be skipped.
|
||||
The value should be a function of two arguments; it will be
|
||||
called with the the positions of the start and the end of the
|
||||
text matched by Isearch and replace commands. If this function
|
||||
called with the positions of the start and the end of the text
|
||||
matched by Isearch and replace commands. If this function
|
||||
returns nil, Isearch and replace commands will continue searching
|
||||
without stopping at resp. replacing this match.
|
||||
|
||||
|
|
@ -2009,7 +2009,7 @@ Turning on character-folding turns off regexp mode.")
|
|||
"Text properties that are added to the isearch prompt.")
|
||||
|
||||
(defun isearch--momentary-message (string)
|
||||
"Print STRING at the end of the isearch prompt for 1 second"
|
||||
"Print STRING at the end of the isearch prompt for 1 second."
|
||||
(let ((message-log-max nil))
|
||||
(message "%s%s%s"
|
||||
(isearch-message-prefix nil isearch-nonincremental)
|
||||
|
|
|
|||
|
|
@ -343,7 +343,7 @@ ignored."
|
|||
:documentation "Process object wrapped by the this connection.")
|
||||
(-expected-bytes
|
||||
:accessor jsonrpc--expected-bytes
|
||||
:documentation "How many bytes declared by server")
|
||||
:documentation "How many bytes declared by server.")
|
||||
(-on-shutdown
|
||||
:accessor jsonrpc--on-shutdown
|
||||
:initform #'ignore
|
||||
|
|
|
|||
|
|
@ -1136,9 +1136,9 @@ they were placed in the queue."
|
|||
This variable is used by the default date generating function,
|
||||
feedmail-default-date-generator. If nil, the default, the
|
||||
last-modified timestamp of the queue file is used to create the
|
||||
message Date: header; if there is no queue file, the current time is
|
||||
used. If you are using VM, it might be supplying this header for
|
||||
you. To suppress VM's version
|
||||
message Date: header; if there is no queue file, the current time
|
||||
is used. If you are using VM, it might be supplying this header
|
||||
for you. To suppress VM's version
|
||||
|
||||
(setq vm-mail-header-insert-date nil)"
|
||||
:group 'feedmail-queue
|
||||
|
|
@ -2361,7 +2361,7 @@ mapped to mostly alphanumerics for safety."
|
|||
)))
|
||||
|
||||
(defun feedmail-send-it-immediately-wrapper ()
|
||||
"Wrapper to catch skip-me-i"
|
||||
"Wrapper to catch skip-me-i."
|
||||
(if (eq 'skip-me-i (catch 'skip-me-i (feedmail-send-it-immediately)))
|
||||
(error "FQM: Sending...abandoned!")))
|
||||
|
||||
|
|
@ -3159,7 +3159,7 @@ been weeded out."
|
|||
(sit-for feedmail-queue-chatty-sit-for))))
|
||||
|
||||
(defun feedmail-find-eoh (&optional noerror)
|
||||
"Internal; finds the end of message header fields, returns mark just before it"
|
||||
"Internal; finds the end of message header fields, returns mark just before it."
|
||||
;; all this funny business with line endings is to account for CRLF
|
||||
;; weirdness that I don't think I'll ever figure out
|
||||
(feedmail-say-debug ">in-> feedmail-find-eoh %s" noerror)
|
||||
|
|
|
|||
|
|
@ -158,7 +158,7 @@ For example, you may want to set this to (\"-Z2\") to reduce header length."
|
|||
(or (nth 1 val) (nth 0 val) addr)))
|
||||
|
||||
(defun hashcash-generate-payment (str val)
|
||||
"Generate a hashcash payment by finding a VAL-bit collison on STR."
|
||||
"Generate a hashcash payment by finding a VAL-bit collision on STR."
|
||||
(if (and (> val 0)
|
||||
hashcash-program)
|
||||
(with-current-buffer (get-buffer-create " *hashcash*")
|
||||
|
|
@ -171,7 +171,7 @@ For example, you may want to set this to (\"-Z2\") to reduce header length."
|
|||
(error "No `hashcash' binary found")))
|
||||
|
||||
(defun hashcash-generate-payment-async (str val callback)
|
||||
"Generate a hashcash payment by finding a VAL-bit collison on STR.
|
||||
"Generate a hashcash payment by finding a VAL-bit collision on STR.
|
||||
Return immediately. Call CALLBACK with process and result when ready."
|
||||
(if (and (> val 0)
|
||||
hashcash-program)
|
||||
|
|
@ -226,7 +226,7 @@ Return immediately. Call CALLBACK with process and result when ready."
|
|||
|
||||
;;;###autoload
|
||||
(defun hashcash-insert-payment (arg)
|
||||
"Insert X-Payment and X-Hashcash headers with a payment for ARG"
|
||||
"Insert X-Payment and X-Hashcash headers with a payment for ARG."
|
||||
(interactive "sPay to: ")
|
||||
(unless (hashcash-already-paid-p arg)
|
||||
(let ((pay (hashcash-generate-payment (hashcash-payment-to arg)
|
||||
|
|
@ -294,7 +294,7 @@ BUFFER defaults to the current buffer."
|
|||
|
||||
;;;###autoload
|
||||
(defun hashcash-verify-payment (token &optional resource amount)
|
||||
"Verify a hashcash payment"
|
||||
"Verify a hashcash payment."
|
||||
(let* ((split (split-string token ":"))
|
||||
(key (if (< (hashcash-version token) 1.2)
|
||||
(nth 1 split)
|
||||
|
|
|
|||
|
|
@ -147,7 +147,7 @@ display HTML source."
|
|||
;; Default to preferring HTML parts, but only if we have a renderer
|
||||
(if rmail-mime-render-html-function t nil)
|
||||
"If non-nil, default to showing HTML part rather than text part
|
||||
when both are available"
|
||||
when both are available."
|
||||
:group 'rmail
|
||||
:version "25.1"
|
||||
:type 'boolean)
|
||||
|
|
@ -1391,8 +1391,8 @@ STATE forces a particular display state, rather than toggling.
|
|||
`raw' forces raw mode, any other non-nil value forces decoded mode.
|
||||
|
||||
If `rmail-enable-mime' is nil, this creates a temporary \"*RMAIL*\"
|
||||
buffer holding a decoded copy of the message. Inline content-types are
|
||||
handled according to `rmail-mime-media-type-handlers-alist'.
|
||||
buffer holding a decoded copy of the message. Inline content-types
|
||||
are handled according to `rmail-mime-media-type-handlers-alist'.
|
||||
By default, this displays text and multipart messages, and offers to
|
||||
download attachments as specified by `rmail-mime-attachment-dirs-alist'.
|
||||
The arguments ARG and STATE have no effect in this case."
|
||||
|
|
|
|||
|
|
@ -1360,7 +1360,7 @@ move to the previous message."
|
|||
|
||||
(defun rmail-summary-show-message (where)
|
||||
"Show current mail message.
|
||||
Position it according to WHERE which can be BEG or END"
|
||||
Position it according to WHERE which can be BEG or END."
|
||||
(if (and (one-window-p) (not pop-up-frames))
|
||||
;; If there is just one window, put the summary on the top.
|
||||
(let ((buffer rmail-buffer))
|
||||
|
|
|
|||
|
|
@ -1753,7 +1753,7 @@ entered, regardless of the value of `sc-electric-references-p'. See
|
|||
|
||||
(defun sc-raw-mode-toggle ()
|
||||
"Toggle, in one fell swoop, two important SC variables:
|
||||
`sc-fixup-whitespace-p' and `sc-auto-fill-region-p'"
|
||||
`sc-fixup-whitespace-p' and `sc-auto-fill-region-p'."
|
||||
(interactive)
|
||||
(setq sc-fixup-whitespace-p (not sc-fixup-whitespace-p)
|
||||
sc-auto-fill-region-p (not sc-auto-fill-region-p))
|
||||
|
|
|
|||
|
|
@ -1023,7 +1023,7 @@ names or descriptions. The pattern argument is usually an
|
|||
(man man-args)))
|
||||
|
||||
(defmacro Man-start-calling (&rest body)
|
||||
"Start the man command in `body' after setting up the environment"
|
||||
"Start the man command in `body' after setting up the environment."
|
||||
`(let ((process-environment (copy-sequence process-environment))
|
||||
;; The following is so Awk script gets \n intact
|
||||
;; But don't prevent decoding of the outside.
|
||||
|
|
|
|||
|
|
@ -160,8 +160,8 @@ Stronger than `save-excursion', weaker than `save-window-excursion'."
|
|||
;;;###mh-autoload
|
||||
(defmacro mh-do-at-event-location (event &rest body)
|
||||
"Switch to the location of EVENT and execute BODY.
|
||||
After BODY has been executed return to original window. The
|
||||
modification flag of the buffer in the event window is
|
||||
After BODY has been executed return to original window.
|
||||
The modification flag of the buffer in the event window is
|
||||
preserved."
|
||||
(declare (debug t))
|
||||
(let ((event-window (make-symbol "event-window"))
|
||||
|
|
|
|||
|
|
@ -224,8 +224,9 @@ been loaded."
|
|||
(defun mh-alias-ali (alias &optional user)
|
||||
"Return ali expansion for ALIAS.
|
||||
ALIAS must be a string for a single alias.
|
||||
If USER is t, then assume ALIAS is an address and call ali -user. ali
|
||||
returns the string unchanged if not defined. The same is done here."
|
||||
If USER is t, then assume ALIAS is an address and call ali -user.
|
||||
ali returns the string unchanged if not defined. The same is
|
||||
done here."
|
||||
(condition-case err
|
||||
(save-excursion
|
||||
(let ((user-arg (if user "-user" "-nouser")))
|
||||
|
|
@ -378,8 +379,8 @@ NO-COMMA-SWAP is non-nil."
|
|||
|
||||
(defun mh-alias-canonicalize-suggestion (string)
|
||||
"Process STRING to replace spaces by periods.
|
||||
First all spaces and commas are replaced by periods. Then every run of
|
||||
consecutive periods are replaced with a single period. Finally the
|
||||
First all spaces and commas are replaced by periods. Then every run
|
||||
of consecutive periods are replaced with a single period. Finally the
|
||||
string is converted to lower case."
|
||||
(with-temp-buffer
|
||||
(insert string)
|
||||
|
|
|
|||
|
|
@ -1592,7 +1592,7 @@ previous region was just saved to the kill ring).
|
|||
|
||||
If this command is called a second consecutive time with the same
|
||||
CLICK position, kill the region (or delete it
|
||||
if `mouse-drag-copy-region' is non-nil)"
|
||||
if `mouse-drag-copy-region' is non-nil)."
|
||||
(interactive "e")
|
||||
(mouse-minibuffer-check click)
|
||||
(let* ((posn (event-start click))
|
||||
|
|
|
|||
|
|
@ -877,7 +877,7 @@ The optional NEW-WINDOW argument is not used."
|
|||
|
||||
(defun browse-url-default-macosx-browser (url &optional _new-window)
|
||||
"Invoke the macOS system's default Web browser.
|
||||
The optional NEW-WINDOW argument is not used"
|
||||
The optional NEW-WINDOW argument is not used."
|
||||
(interactive (browse-url-interactive-arg "URL: "))
|
||||
(start-process (concat "open " url) nil "open" url))
|
||||
|
||||
|
|
|
|||
|
|
@ -229,7 +229,7 @@ The current binding of VAR is changed only if SERVER is omitted."
|
|||
|
||||
(defun eudc-set (var val)
|
||||
"Set the most local (server, protocol or default) binding of VAR to VAL.
|
||||
The current binding of VAR is also set to VAL"
|
||||
The current binding of VAR is also set to VAL."
|
||||
(cond
|
||||
((not (eq 'unbound (eudc-variable-server-value var)))
|
||||
(eudc-server-set var val))
|
||||
|
|
@ -251,7 +251,7 @@ Return `unbound' if VAR has no EUDC default value."
|
|||
(defun eudc-variable-protocol-value (var &optional protocol)
|
||||
"Return the value of VAR local to PROTOCOL.
|
||||
Return `unbound' if VAR has no value local to PROTOCOL.
|
||||
PROTOCOL defaults to `eudc-protocol'"
|
||||
PROTOCOL defaults to `eudc-protocol'."
|
||||
(let* ((eudc-locals (get var 'eudc-locals))
|
||||
protocol-locals)
|
||||
(if (not (and (boundp var)
|
||||
|
|
@ -266,7 +266,7 @@ PROTOCOL defaults to `eudc-protocol'"
|
|||
(defun eudc-variable-server-value (var &optional server)
|
||||
"Return the value of VAR local to SERVER.
|
||||
Return `unbound' if VAR has no value local to SERVER.
|
||||
SERVER defaults to `eudc-server'"
|
||||
SERVER defaults to `eudc-server'."
|
||||
(let* ((eudc-locals (get var 'eudc-locals))
|
||||
server-locals)
|
||||
(if (not (and (boundp var)
|
||||
|
|
@ -282,7 +282,7 @@ SERVER defaults to `eudc-server'"
|
|||
"Set the value of VAR according to its locals.
|
||||
If the VAR has a server- or protocol-local value corresponding
|
||||
to the current `eudc-server' and `eudc-protocol' then it is set
|
||||
accordingly. Otherwise it is set to its EUDC default binding"
|
||||
accordingly. Otherwise it is set to its EUDC default binding."
|
||||
(let (val)
|
||||
(cond
|
||||
((not (eq 'unbound (setq val (eudc-variable-server-value var))))
|
||||
|
|
@ -775,7 +775,7 @@ After querying the server for the given string, the expansion specified by
|
|||
If REPLACE is non-nil, then this expansion replaces the name in the buffer.
|
||||
`eudc-expansion-overwrites-query' being non-nil inverts the meaning of REPLACE.
|
||||
Multiple servers can be tried with the same query until one finds a match,
|
||||
see `eudc-inline-expansion-servers'"
|
||||
see `eudc-inline-expansion-servers'."
|
||||
(interactive)
|
||||
(cond
|
||||
((eq eudc-inline-expansion-servers 'current-server)
|
||||
|
|
|
|||
|
|
@ -179,7 +179,7 @@ BBDB < 3 used `net'; BBDB >= 3 uses `mail'."
|
|||
|
||||
(defun eudc-bbdb-format-record-as-result (record)
|
||||
"Format the BBDB RECORD as a EUDC query result record.
|
||||
The record is filtered according to `eudc-bbdb-current-return-attributes'"
|
||||
The record is filtered according to `eudc-bbdb-current-return-attributes'."
|
||||
(require 'bbdb)
|
||||
(let ((attrs (or eudc-bbdb-current-return-attributes
|
||||
'(firstname lastname aka company phones addresses net notes)))
|
||||
|
|
|
|||
|
|
@ -148,7 +148,7 @@ RETURN-ATTRS is a list of attributes to return, defaulting to
|
|||
(defun eudc-ldap-get-field-list (_dummy &optional objectclass)
|
||||
"Return a list of valid attribute names for the current server.
|
||||
OBJECTCLASS is the LDAP object class for which the valid
|
||||
attribute names are returned. Default to `person'"
|
||||
attribute names are returned. Default to `person'."
|
||||
(interactive)
|
||||
(or eudc-server
|
||||
(call-interactively 'eudc-set-server))
|
||||
|
|
|
|||
|
|
@ -710,7 +710,7 @@ If NOW, use that time instead."
|
|||
|
||||
(defun pop3-list (process &optional msg)
|
||||
"If MSG is nil, return an alist of (MESSAGE-ID . SIZE) pairs.
|
||||
Otherwise, return the size of the message-id MSG"
|
||||
Otherwise, return the size of the message-id MSG."
|
||||
(pop3-send-command process (if msg
|
||||
(format "LIST %d" msg)
|
||||
"LIST"))
|
||||
|
|
|
|||
|
|
@ -334,7 +334,7 @@ element name."
|
|||
"Store ELEMENT in NS.
|
||||
Multiple elements with the same name can be stored in a
|
||||
namespace. When retrieving the element you can specify a
|
||||
discriminant predicate to `soap-namespace-get'"
|
||||
discriminant predicate to `soap-namespace-get'."
|
||||
(let ((name (soap-element-name element)))
|
||||
(push element (gethash name (soap-namespace-elements ns)))))
|
||||
|
||||
|
|
@ -1476,7 +1476,7 @@ This is a specialization of `soap-decode-type' for
|
|||
|
||||
(defun soap-xs-parse-sequence (node)
|
||||
"Parse a sequence definition from XML NODE.
|
||||
Returns a `soap-xs-complex-type'"
|
||||
Returns a `soap-xs-complex-type'."
|
||||
(cl-assert (memq (soap-l2wk (xml-node-name node))
|
||||
'(xsd:sequence xsd:choice xsd:all))
|
||||
nil
|
||||
|
|
@ -2814,7 +2814,7 @@ decode function to perform the actual decoding."
|
|||
(defun soap-parse-envelope (node operation wsdl)
|
||||
"Parse the SOAP envelope in NODE and return the response.
|
||||
OPERATION is the WSDL operation for which we expect the response,
|
||||
WSDL is used to decode the NODE"
|
||||
WSDL is used to decode the NODE."
|
||||
(soap-with-local-xmlns node
|
||||
(cl-assert (eq (soap-l2wk (xml-node-name node)) 'soap:Envelope)
|
||||
nil
|
||||
|
|
|
|||
|
|
@ -355,7 +355,7 @@ ATTRIBUTE is a soap-xs-attribute-group."
|
|||
|
||||
(defun soap-inspect-xs-complex-type (type)
|
||||
"Insert information about TYPE in the current buffer.
|
||||
TYPE is a `soap-xs-complex-type'"
|
||||
TYPE is a `soap-xs-complex-type'."
|
||||
(insert "Complex type: " (soap-element-fq-name type))
|
||||
(insert "\nKind: ")
|
||||
(cl-case (soap-xs-complex-type-indicator type)
|
||||
|
|
|
|||
|
|
@ -550,7 +550,7 @@ fractional part of the second."
|
|||
(< (car numbers1) (car numbers2))))
|
||||
|
||||
(defun rng-xsd-date-to-days (year month day)
|
||||
"Return a unique day number where Jan 1 1 AD is day 1"
|
||||
"Return a unique day number where Jan 1 1 AD is day 1."
|
||||
(if (> year 0) ; AD
|
||||
(+ (rng-xsd-days-in-years (- year 1))
|
||||
(rng-xsd-day-number-in-year year month day))
|
||||
|
|
|
|||
|
|
@ -299,12 +299,12 @@ its header arguments."
|
|||
|
||||
(defun org-babel-prep-session:C (_session _params)
|
||||
"This function does nothing as C is a compiled language with no
|
||||
support for sessions"
|
||||
support for sessions."
|
||||
(error "C is a compiled language -- no support for sessions"))
|
||||
|
||||
(defun org-babel-load-session:C (_session _body _params)
|
||||
"This function does nothing as C is a compiled language with no
|
||||
support for sessions"
|
||||
support for sessions."
|
||||
(error "C is a compiled language -- no support for sessions"))
|
||||
|
||||
;; helper functions
|
||||
|
|
|
|||
|
|
@ -72,7 +72,7 @@ PROCESSED-PARAMS isn't used yet."
|
|||
(defun org-babel-execute:J (body params)
|
||||
"Execute a block of J code BODY.
|
||||
PARAMS are given by org-babel.
|
||||
This function is called by `org-babel-execute-src-block'"
|
||||
This function is called by `org-babel-execute-src-block'."
|
||||
(message "executing J source code block")
|
||||
(let* ((processed-params (org-babel-process-params params))
|
||||
(sessionp (cdr (assq :session params)))
|
||||
|
|
|
|||
|
|
@ -77,7 +77,7 @@ This function is called by `org-babel-execute-src-block'."
|
|||
|
||||
(defun org-babel-prep-session:asymptote (_session _params)
|
||||
"Return an error if the :session header argument is set.
|
||||
Asymptote does not support sessions"
|
||||
Asymptote does not support sessions."
|
||||
(error "Asymptote does not support sessions"))
|
||||
|
||||
(defun org-babel-variable-assignments:asymptote (params)
|
||||
|
|
|
|||
|
|
@ -48,8 +48,8 @@
|
|||
body)
|
||||
|
||||
(defun org-babel-execute:awk (body params)
|
||||
"Execute a block of Awk code with org-babel. This function is
|
||||
called by `org-babel-execute-src-block'"
|
||||
"Execute a block of Awk code with org-babel.
|
||||
This function is called by `org-babel-execute-src-block'."
|
||||
(message "executing Awk source code block")
|
||||
(let* ((result-params (cdr (assq :result-params params)))
|
||||
(cmd-line (cdr (assq :cmd-line params)))
|
||||
|
|
|
|||
|
|
@ -2975,7 +2975,7 @@ If NAME specifies a remote location, the remote portion of the
|
|||
name is removed, since in that case the process will be executing
|
||||
remotely. The file name is then processed by `expand-file-name'.
|
||||
Unless second argument NO-QUOTE-P is non-nil, the file name is
|
||||
additionally processed by `shell-quote-argument'"
|
||||
additionally processed by `shell-quote-argument'."
|
||||
(let ((f (org-babel-local-file-name (expand-file-name name))))
|
||||
(if no-quote-p f (shell-quote-argument f))))
|
||||
|
||||
|
|
|
|||
|
|
@ -49,8 +49,8 @@
|
|||
;; Use ebnf-eps-buffer to produce an encapsulated postscript file.
|
||||
;;
|
||||
(defun org-babel-execute:ebnf (body params)
|
||||
"Execute a block of Ebnf code with org-babel. This function is
|
||||
called by `org-babel-execute-src-block'"
|
||||
"Execute a block of Ebnf code with org-babel.
|
||||
This function is called by `org-babel-execute-src-block'."
|
||||
(save-excursion
|
||||
(let* ((dest-file (cdr (assq :file params)))
|
||||
(dest-dir (file-name-directory dest-file))
|
||||
|
|
|
|||
|
|
@ -42,7 +42,7 @@
|
|||
|
||||
(defun org-babel-execute:forth (body params)
|
||||
"Execute a block of Forth code with org-babel.
|
||||
This function is called by `org-babel-execute-src-block'"
|
||||
This function is called by `org-babel-execute-src-block'."
|
||||
(if (string= "none" (cdr (assq :session params)))
|
||||
(error "Non-session evaluation not supported for Forth code blocks")
|
||||
(let ((all-results (org-babel-forth-session-execute body params)))
|
||||
|
|
|
|||
|
|
@ -46,7 +46,7 @@
|
|||
executable.")
|
||||
|
||||
(defun org-babel-execute:fortran (body params)
|
||||
"This function should only be called by `org-babel-execute:fortran'"
|
||||
"This function should only be called by `org-babel-execute:fortran'."
|
||||
(let* ((tmp-src-file (org-babel-temp-file "fortran-src-" ".F90"))
|
||||
(tmp-bin-file (org-babel-temp-file "fortran-bin-" org-babel-exeext))
|
||||
(cmdline (cdr (assq :cmdline params)))
|
||||
|
|
@ -115,12 +115,12 @@ its header arguments."
|
|||
|
||||
(defun org-babel-prep-session:fortran (_session _params)
|
||||
"This function does nothing as fortran is a compiled language with no
|
||||
support for sessions"
|
||||
support for sessions."
|
||||
(error "Fortran is a compiled languages -- no support for sessions"))
|
||||
|
||||
(defun org-babel-load-session:fortran (_session _body _params)
|
||||
"This function does nothing as fortran is a compiled language with no
|
||||
support for sessions"
|
||||
support for sessions."
|
||||
(error "Fortran is a compiled languages -- no support for sessions"))
|
||||
|
||||
;; helper functions
|
||||
|
|
|
|||
|
|
@ -45,8 +45,8 @@ parameters may be used, like groovy -v"
|
|||
:type 'string)
|
||||
|
||||
(defun org-babel-execute:groovy (body params)
|
||||
"Execute a block of Groovy code with org-babel. This function is
|
||||
called by `org-babel-execute-src-block'"
|
||||
"Execute a block of Groovy code with org-babel.
|
||||
This function is called by `org-babel-execute-src-block'."
|
||||
(message "executing Groovy source code block")
|
||||
(let* ((processed-params (org-babel-process-params params))
|
||||
(session (org-babel-groovy-initiate-session (nth 0 processed-params)))
|
||||
|
|
|
|||
|
|
@ -41,8 +41,8 @@
|
|||
"Name of the command to use for executing Io code.")
|
||||
|
||||
(defun org-babel-execute:io (body params)
|
||||
"Execute a block of Io code with org-babel. This function is
|
||||
called by `org-babel-execute-src-block'"
|
||||
"Execute a block of Io code with org-babel.
|
||||
This function is called by `org-babel-execute-src-block'."
|
||||
(message "executing Io source code block")
|
||||
(let* ((processed-params (org-babel-process-params params))
|
||||
(session (org-babel-io-initiate-session (nth 0 processed-params)))
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Add a link
Reference in a new issue