Prefer directed to neutral quotes
Prefer directed to neutral quotes in docstings and diagnostics. In docstrings, escape apostrophes that would otherwise be translated to curved quotes using the newer, simpler rules. * admin/unidata/unidata-gen.el (unidata-gen-table): * lisp/align.el (align-region): * lisp/allout.el (allout-mode, allout-solicit-alternate-bullet): * lisp/bookmark.el (bookmark-default-annotation-text): * lisp/calc/calc-aent.el (math-read-if, math-read-factor): * lisp/calc/calc-lang.el (math-read-giac-subscr) (math-read-math-subscr): * lisp/calc/calc-misc.el (report-calc-bug): * lisp/calc/calc-prog.el (calc-fix-token-name) (calc-read-parse-table-part): * lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules): * lisp/cedet/semantic/complete.el (semantic-displayor-show-request): * lisp/dabbrev.el (dabbrev-expand): * lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine): * lisp/emacs-lisp/elint.el (elint-get-top-forms): * lisp/emacs-lisp/lisp-mnt.el (lm-verify): * lisp/emulation/viper-cmd.el (viper-toggle-search-style): * lisp/erc/erc-button.el (erc-nick-popup): * lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login): * lisp/eshell/em-dirs.el (eshell/cd): * lisp/eshell/em-glob.el (eshell-glob-regexp): * lisp/eshell/em-pred.el (eshell-parse-modifiers): * lisp/eshell/esh-arg.el (eshell-parse-arguments): * lisp/eshell/esh-opt.el (eshell-show-usage): * lisp/files-x.el (modify-file-local-variable): * lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer) (filesets-update-pre010505): * lisp/find-cmd.el (find-generic, find-to-string): * lisp/gnus/auth-source.el (auth-source-netrc-parse-entries): * lisp/gnus/gnus-agent.el (gnus-agent-check-overview-buffer) (gnus-agent-fetch-headers): * lisp/gnus/gnus-int.el (gnus-start-news-server): * lisp/gnus/gnus-registry.el: (gnus-registry--split-fancy-with-parent-internal): * lisp/gnus/gnus-score.el (gnus-summary-increase-score): * lisp/gnus/gnus-start.el (gnus-convert-old-newsrc): * lisp/gnus/gnus-topic.el (gnus-topic-rename): * lisp/gnus/legacy-gnus-agent.el (gnus-agent-unlist-expire-days): * lisp/gnus/nnmairix.el (nnmairix-widget-create-query): * lisp/gnus/spam.el (spam-check-blackholes): * lisp/mail/feedmail.el (feedmail-run-the-queue): * lisp/mpc.el (mpc-playlist-rename): * lisp/net/ange-ftp.el (ange-ftp-shell-command): * lisp/net/mairix.el (mairix-widget-create-query): * lisp/net/tramp-cache.el: * lisp/obsolete/otodo-mode.el (todo-more-important-p): * lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region): * lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region): * lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region): * lisp/org/ob-core.el (org-babel-goto-named-src-block) (org-babel-goto-named-result): * lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap): * lisp/org/ob-ref.el (org-babel-ref-resolve): * lisp/org/org-agenda.el (org-agenda-prepare): * lisp/org/org-bibtex.el (org-bibtex-fields): * lisp/org/org-clock.el (org-clock-notify-once-if-expired) (org-clock-resolve): * lisp/org/org-feed.el (org-feed-parse-atom-entry): * lisp/org/org-habit.el (org-habit-parse-todo): * lisp/org/org-mouse.el (org-mouse-popup-global-menu) (org-mouse-context-menu): * lisp/org/org-table.el (org-table-edit-formulas): * lisp/org/ox.el (org-export-async-start): * lisp/play/dunnet.el (dun-score, dun-help, dun-endgame-question) (dun-rooms, dun-endgame-questions): * lisp/progmodes/ada-mode.el (ada-goto-matching-start): * lisp/progmodes/ada-xref.el (ada-find-executable): * lisp/progmodes/antlr-mode.el (antlr-options-alists): * lisp/progmodes/flymake.el (flymake-parse-err-lines) (flymake-start-syntax-check-process): * lisp/progmodes/python.el (python-define-auxiliary-skeleton): * lisp/progmodes/sql.el (sql-comint): * lisp/progmodes/verilog-mode.el (verilog-load-file-at-point): * lisp/server.el (server-get-auth-key): * lisp/subr.el (version-to-list): * lisp/textmodes/reftex-ref.el (reftex-label): * lisp/textmodes/reftex-toc.el (reftex-toc-rename-label): * lisp/vc/ediff-diff.el (ediff-same-contents): * lisp/vc/vc-cvs.el (vc-cvs-mode-line-string): * test/automated/tramp-tests.el (tramp-test33-asynchronous-requests): Use directed rather than neutral quotes in diagnostics.
This commit is contained in:
Paul Eggert
parent
68280c5ee9
commit
875a5d0ead
223 changed files with 961 additions and 940 deletions
|
|
@ -445,7 +445,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
|
|||
;; (4) possibly update the switch cases in
|
||||
;; bidi.c:bidi_get_type and bidi.c:bidi_get_category.
|
||||
(bidi-warning "\
|
||||
** Found new bidi-class '%s', please update bidi.c and dispextern.h")
|
||||
** Found new bidi-class ‘%s’, please update bidi.c and dispextern.h")
|
||||
tail elt range val val-code idx slot
|
||||
prev-range-data)
|
||||
(setq val-list (cons nil (copy-sequence val-list)))
|
||||
|
|
|
|||
|
|
@ -1348,7 +1348,7 @@ aligner would have dealt with are."
|
|||
(if real-beg
|
||||
(goto-char beg)
|
||||
(if (or (not thissep) (eq thissep 'entire))
|
||||
(error "Cannot determine alignment region for '%s'"
|
||||
(error "Cannot determine alignment region for ‘%s’"
|
||||
(symbol-name (cdr (assq 'title rule)))))
|
||||
(beginning-of-line)
|
||||
(while (and (not (eobp))
|
||||
|
|
|
|||
|
|
@ -481,9 +481,9 @@ text in allout item bodies.")
|
|||
|
||||
\(That space is used to convey selected cues indicating body qualities,
|
||||
including things like:
|
||||
- encryption '~'
|
||||
- numbering '#'
|
||||
- indirect reference '@'
|
||||
- encryption ‘~’
|
||||
- numbering ‘#’
|
||||
- indirect reference ‘@’
|
||||
- distinctive bullets - see `allout-distinctive-bullets-string'.)")
|
||||
;;;_ = allout-span-to-category
|
||||
(defvar allout-span-to-category
|
||||
|
|
|
|||
|
|
@ -176,7 +176,7 @@ respective allout-mode keybinding variables, `allout-command-prefix',
|
|||
(defcustom allout-command-prefix "\C-c "
|
||||
"Key sequence to be used as prefix for outline mode command key bindings.
|
||||
|
||||
Default is '\C-c<space>'; just '\C-c' is more short-and-sweet, if you're
|
||||
Default is `\C-c<space>'; just `\C-c' is more short-and-sweet, if you're
|
||||
willing to let allout use a bunch of \C-c keybindings."
|
||||
:type 'string
|
||||
:group 'allout-keybindings
|
||||
|
|
@ -229,7 +229,7 @@ See `allout-unprefixed-keybindings' for the list of keybindings
|
|||
that are not prefixed.
|
||||
|
||||
Use vector format for the keys:
|
||||
- put literal keys after a '?' question mark, eg: '?a', '?.'
|
||||
- put literal keys after a ‘?’ question mark, eg: ‘?a’, ‘?.’
|
||||
- enclose control, shift, or meta-modified keys as sequences within
|
||||
parentheses, with the literal key, as above, preceded by the name(s)
|
||||
of the modifiers, eg: [(control ?a)]
|
||||
|
|
@ -257,7 +257,7 @@ This is in contrast to the majority of allout-mode bindings on
|
|||
preceding command key.
|
||||
|
||||
Use vector format for the keys:
|
||||
- put literal keys after a '?' question mark, eg: '?a', '?.'
|
||||
- put literal keys after a ‘?’ question mark, eg: ‘?a’, ‘?.’
|
||||
- enclose control, shift, or meta-modified keys as sequences within
|
||||
parentheses, with the literal key, as above, preceded by the name(s)
|
||||
of the modifiers, eg: [(control ?a)]
|
||||
|
|
@ -610,7 +610,7 @@ strings."
|
|||
Allout outline mode will use the mode-specific `allout-mode-leaders' or
|
||||
comment-start string, if any, to lead the topic prefix string, so topic
|
||||
headers look like comments in the programming language. It will also use
|
||||
the comment-start string, with an '_' appended, for `allout-primary-bullet'.
|
||||
the comment-start string, with an `_' appended, for `allout-primary-bullet'.
|
||||
|
||||
String values are used as literals, not regular expressions, so
|
||||
do not escape any regular-expression characters.
|
||||
|
|
@ -1012,9 +1012,9 @@ determination of aberrance is according to the mistaken item
|
|||
being followed by a legitimate item of excessively greater depth.
|
||||
|
||||
The classic example of a mistaken item, for a standard allout
|
||||
outline configuration, is a body line that begins with an '...'
|
||||
outline configuration, is a body line that begins with an ‘...’
|
||||
ellipsis. This happens to contain a legitimate depth-2 header
|
||||
prefix, constituted by two '..' dots at the beginning of the
|
||||
prefix, constituted by two ‘..’ dots at the beginning of the
|
||||
line. The only thing that can distinguish it *in principle* from
|
||||
a legitimate one is if the following real header is at a depth
|
||||
that is discontinuous from the depth of 2 implied by the
|
||||
|
|
@ -1326,7 +1326,7 @@ scope of the variable is restored along with its value. If it was a void
|
|||
buffer-local value, then it is left as nil on resumption.
|
||||
|
||||
The pairs are lists whose car is the name of the variable and car of the
|
||||
cdr is the new value: '(some-var some-value)'. The pairs can actually be
|
||||
cdr is the new value: `(some-var some-value)'. The pairs can actually be
|
||||
triples, where the third element qualifies the disposition of the setting,
|
||||
as described further below.
|
||||
|
||||
|
|
@ -1339,7 +1339,7 @@ extended from the existing one by `append'ing a list containing the second
|
|||
element of the pair onto the end of the existing value.
|
||||
|
||||
Extension, and resumptions in general, should not be used for hook
|
||||
functions -- use the 'local mode of `add-hook' for that, instead.
|
||||
functions -- use the `local' mode of `add-hook' for that, instead.
|
||||
|
||||
The settings are stored on `allout-mode-prior-settings'."
|
||||
(while pairs
|
||||
|
|
@ -1862,7 +1862,7 @@ symmetric decryption keys, preventing entry of the correct key on
|
|||
subsequent decryption attempts until the cache times-out. That
|
||||
can take several minutes. (Decryption of other entries is not
|
||||
affected.) Upgrade your EasyPG version, if you can, and you can
|
||||
deliberately clear your gpg-agent's cache by sending it a '-HUP'
|
||||
deliberately clear your gpg-agent's cache by sending it a `-HUP'
|
||||
signal.
|
||||
|
||||
See `allout-toggle-current-subtree-encryption' function docstring
|
||||
|
|
@ -2080,21 +2080,21 @@ OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be."
|
|||
use-layout
|
||||
(and (not (string= allout-auto-activation "activate"))
|
||||
(if (string= allout-auto-activation "ask")
|
||||
(if (y-or-n-p (format "Expose %s with layout '%s'? "
|
||||
(buffer-name)
|
||||
use-layout))
|
||||
(if (y-or-n-p (format-message
|
||||
"Expose %s with layout ‘%s’? "
|
||||
(buffer-name) use-layout))
|
||||
t
|
||||
(message "Skipped %s layout." (buffer-name))
|
||||
nil)
|
||||
t)))
|
||||
(save-excursion
|
||||
(message "Adjusting '%s' exposure..." (buffer-name))
|
||||
(message "Adjusting ‘%s’ exposure..." (buffer-name))
|
||||
(goto-char 0)
|
||||
(allout-this-or-next-heading)
|
||||
(condition-case err
|
||||
(progn
|
||||
(apply 'allout-expose-topic (list use-layout))
|
||||
(message "Adjusting '%s' exposure... done."
|
||||
(message "Adjusting ‘%s’ exposure... done."
|
||||
(buffer-name)))
|
||||
;; Problem applying exposure -- notify user, but don't
|
||||
;; interrupt, eg, file visit:
|
||||
|
|
@ -3483,9 +3483,10 @@ Offer one suitable for current depth DEPTH as default."
|
|||
(save-excursion
|
||||
(goto-char (allout-current-bullet-pos))
|
||||
(setq choice (solicit-char-in-string
|
||||
(format "Select bullet: %s ('%s' default): "
|
||||
sans-escapes
|
||||
(allout-substring-no-properties default-bullet))
|
||||
(format-message
|
||||
"Select bullet: %s (‘%s’ default): "
|
||||
sans-escapes
|
||||
(allout-substring-no-properties default-bullet))
|
||||
sans-escapes
|
||||
t)))
|
||||
(message "")
|
||||
|
|
@ -5134,15 +5135,15 @@ Simple (numeric and null-list) specs are interpreted as follows:
|
|||
- - exposes the body of the corresponding topic.
|
||||
|
||||
Examples:
|
||||
\(allout-expose-topic '(-1 : 0))
|
||||
\(allout-expose-topic \\='(-1 : 0))
|
||||
Close this and all following topics at current level, exposing
|
||||
only their immediate children, but close down the last topic
|
||||
at this current level completely.
|
||||
\(allout-expose-topic '(-1 () : 1 0))
|
||||
\(allout-expose-topic \\='(-1 () : 1 0))
|
||||
Close current topic so only the immediate subtopics are shown;
|
||||
show the children in the second to last topic, and completely
|
||||
close the last one.
|
||||
\(allout-expose-topic '(-2 : -1 *))
|
||||
\(allout-expose-topic \\='(-2 : -1 *))
|
||||
Expose children and grandchildren of all topics at current
|
||||
level except the last two; expose children of the second to
|
||||
last and completely open the last one."
|
||||
|
|
@ -5878,7 +5879,7 @@ With repeat count, copy the exposed portions of entire buffer."
|
|||
(defun allout-toggle-current-subtree-encryption (&optional keymode-cue)
|
||||
"Encrypt clear or decrypt encoded topic text.
|
||||
|
||||
Allout uses Emacs 'epg' library to perform encryption. Symmetric
|
||||
Allout uses Emacs ‘epg’ library to perform encryption. Symmetric
|
||||
and keypair encryption are supported. All encryption is ascii
|
||||
armored.
|
||||
|
||||
|
|
@ -5940,7 +5941,7 @@ associated with it. This can be used to dissociate any
|
|||
recipients with the file, by selecting no recipients in the
|
||||
dialog.
|
||||
|
||||
Encryption and decryption uses the Emacs 'epg' library.
|
||||
Encryption and decryption uses the Emacs ‘epg’ library.
|
||||
|
||||
Encrypted text will be ascii-armored.
|
||||
|
||||
|
|
@ -6093,7 +6094,7 @@ symmetric decryption keys, preventing entry of the correct key on
|
|||
subsequent decryption attempts until the cache times-out. That
|
||||
can take several minutes. (Decryption of other entries is not
|
||||
affected.) Upgrade your EasyPG version, if you can, and you can
|
||||
deliberately clear your gpg-agent's cache by sending it a '-HUP'
|
||||
deliberately clear your gpg-agent's cache by sending it a `-HUP'
|
||||
signal."
|
||||
|
||||
(require 'epg)
|
||||
|
|
@ -6263,7 +6264,7 @@ the decryption."
|
|||
"Return the point of the next topic pending encryption, or nil if none.
|
||||
|
||||
Such a topic has the `allout-topic-encryption-bullet' without an
|
||||
immediately following '*' that would mark the topic as being encrypted.
|
||||
immediately following `*' that would mark the topic as being encrypted.
|
||||
It must also have content."
|
||||
(let (done got content-beg)
|
||||
(save-match-data
|
||||
|
|
@ -6544,7 +6545,7 @@ Optional arg DO-DEFAULTING indicates to accept empty input (CR)."
|
|||
(defun regexp-sans-escapes (regexp &optional successive-backslashes)
|
||||
"Return a copy of REGEXP with all character escapes stripped out.
|
||||
|
||||
Representations of actual backslashes -- '\\\\\\\\' -- are left as a
|
||||
Representations of actual backslashes -- ‘\\\\\\\\’ -- are left as a
|
||||
single backslash.
|
||||
|
||||
Optional arg SUCCESSIVE-BACKSLASHES is used internally for recursion."
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ Insertion is possible when something appropriate is found in
|
|||
`auto-insert-alist'. When the insertion is marked as unmodified, you can
|
||||
save it with \\[write-file] RET.
|
||||
This variable is used when the function `auto-insert' is called, e.g.
|
||||
when you do (add-hook 'find-file-hook 'auto-insert).
|
||||
when you do (add-hook \\='find-file-hook \\='auto-insert).
|
||||
With \\[auto-insert], this is always treated as if it were t."
|
||||
:type '(choice (const :tag "Insert if possible" t)
|
||||
(const :tag "Do nothing" nil)
|
||||
|
|
|
|||
|
|
@ -367,7 +367,7 @@ without being changed in the part that is already in the buffer."
|
|||
"Turn on Auto-Revert Mode.
|
||||
|
||||
This function is designed to be added to hooks, for example:
|
||||
(add-hook 'c-mode-hook #'turn-on-auto-revert-mode)"
|
||||
(add-hook \\='c-mode-hook #\\='turn-on-auto-revert-mode)"
|
||||
(auto-revert-mode 1))
|
||||
|
||||
|
||||
|
|
@ -431,7 +431,7 @@ Perform a full revert? ")
|
|||
"Turn on Auto-Revert Tail mode.
|
||||
|
||||
This function is designed to be added to hooks, for example:
|
||||
(add-hook 'my-logfile-mode-hook #'turn-on-auto-revert-tail-mode)"
|
||||
(add-hook \\='my-logfile-mode-hook #\\='turn-on-auto-revert-tail-mode)"
|
||||
(auto-revert-tail-mode 1))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -842,8 +842,11 @@ whose annotation is being edited.")
|
|||
"Return default annotation text for BOOKMARK-NAME.
|
||||
The default annotation text is simply some text explaining how to use
|
||||
annotations."
|
||||
(concat "# Type the annotation for bookmark '" bookmark-name "' here.\n"
|
||||
"# All lines which start with a '#' will be deleted.\n"
|
||||
(concat (format-message
|
||||
"# Type the annotation for bookmark ‘%s’ here.\n"
|
||||
bookmark-name)
|
||||
(format-message
|
||||
"# All lines which start with a ‘#’ will be deleted.\n")
|
||||
"# Type C-c C-c when done.\n#\n"
|
||||
"# Author: " (user-full-name) " <" (user-login-name) "@"
|
||||
(system-name) ">\n"
|
||||
|
|
@ -1540,7 +1543,7 @@ deletion, or > if it is flagged for displaying."
|
|||
(let ((inhibit-read-only t))
|
||||
(erase-buffer)
|
||||
(if (not bookmark-bmenu-use-header-line)
|
||||
(insert "% Bookmark\n- --------\n"))
|
||||
(insert "% Bookmark\n- --------\n"))
|
||||
(add-text-properties (point-min) (point)
|
||||
'(font-lock-face bookmark-menu-heading))
|
||||
(dolist (full-record (bookmark-maybe-sort-alist))
|
||||
|
|
@ -1581,9 +1584,9 @@ deletion, or > if it is flagged for displaying."
|
|||
(defun bookmark-bmenu-set-header ()
|
||||
"Sets the immutable header line."
|
||||
(let ((header (concat "%% " "Bookmark")))
|
||||
(when bookmark-bmenu-toggle-filenames
|
||||
(setq header (concat header
|
||||
(make-string (- bookmark-bmenu-file-column
|
||||
(when bookmark-bmenu-toggle-filenames
|
||||
(setq header (concat header
|
||||
(make-string (- bookmark-bmenu-file-column
|
||||
(- (length header) 3)) ?\s)
|
||||
"File")))
|
||||
(let ((pos 0))
|
||||
|
|
|
|||
|
|
@ -1314,7 +1314,7 @@ ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu."
|
|||
(format-mode-line mode-name nil nil start-buffer))
|
||||
|
||||
(defun bs--get-file-name (_start-buffer _all-buffers)
|
||||
"Return string for column 'File' in Buffer Selection Menu.
|
||||
"Return string for column ‘File’ in Buffer Selection Menu.
|
||||
This is the variable `buffer-file-name' of current buffer.
|
||||
If not visiting a file, `list-buffers-directory' is returned instead.
|
||||
START-BUFFER is the buffer where we started buffer selection.
|
||||
|
|
|
|||
|
|
@ -1057,7 +1057,7 @@ If the current Calc language does not use placeholders, return nil."
|
|||
(defun math-read-if (cond op)
|
||||
(let ((then (math-read-expr-level 0)))
|
||||
(or (equal math-expr-data ":")
|
||||
(throw 'syntax "Expected ':'"))
|
||||
(throw 'syntax "Expected ‘:’"))
|
||||
(math-read-token)
|
||||
(list 'calcFunc-if cond then (math-read-expr-level (nth 3 op)))))
|
||||
|
||||
|
|
@ -1177,7 +1177,7 @@ If the current Calc language does not use placeholders, return nil."
|
|||
(setq el (cdr el))))
|
||||
(if (equal math-expr-data "]")
|
||||
(math-read-token)
|
||||
(throw 'syntax "Expected ']'")))
|
||||
(throw 'syntax "Expected ‘]’")))
|
||||
val)))))
|
||||
((eq math-exp-token 'dollar)
|
||||
(let ((abs (if (> math-expr-data 0) math-expr-data (- math-expr-data))))
|
||||
|
|
|
|||
|
|
@ -1817,7 +1817,7 @@ order to Calc's."
|
|||
(defun math-read-giac-subscr (x op)
|
||||
(let ((idx (math-read-expr-level 0)))
|
||||
(or (equal math-expr-data "]")
|
||||
(throw 'syntax "Expected ']'"))
|
||||
(throw 'syntax "Expected ‘]’"))
|
||||
(math-read-token)
|
||||
(list 'calcFunc-subscr x (calc-normalize (list '+ idx 1)))))
|
||||
|
||||
|
|
@ -1954,7 +1954,7 @@ order to Calc's."
|
|||
(progn
|
||||
(math-read-token)
|
||||
(equal math-expr-data "]")))
|
||||
(throw 'syntax "Expected ']]'"))
|
||||
(throw 'syntax "Expected ‘]]’"))
|
||||
(math-read-token)
|
||||
(list 'calcFunc-subscr x idx)))
|
||||
|
||||
|
|
|
|||
|
|
@ -952,7 +952,7 @@ Prompts for bug subject. Leaves you in a mail buffer."
|
|||
nil nil nil
|
||||
"Please describe exactly what actions triggered the bug and the
|
||||
precise symptoms of the bug. If possible, include a backtrace by
|
||||
doing 'M-x toggle-debug-on-error', then reproducing the bug.
|
||||
doing ‘\\[toggle-debug-on-error]’, then reproducing the bug.
|
||||
" )))
|
||||
;;;###autoload
|
||||
(defalias 'calc-report-bug 'report-calc-bug)
|
||||
|
|
|
|||
|
|
@ -597,9 +597,9 @@
|
|||
",")
|
||||
((equal name "#")
|
||||
(search-backward "#")
|
||||
(error "Token '#' is reserved"))
|
||||
(error "Token ‘#’ is reserved"))
|
||||
((and unquoted (string-match "#" name))
|
||||
(error "Tokens containing '#' must be quoted"))
|
||||
(error "Tokens containing ‘#’ must be quoted"))
|
||||
((not (string-match "[^ ]" name))
|
||||
(search-backward "\"" nil t)
|
||||
(error "Blank tokens are not allowed"))
|
||||
|
|
@ -610,7 +610,7 @@
|
|||
(quoted nil))
|
||||
(while (progn
|
||||
(skip-chars-forward "\n\t ")
|
||||
(if (eobp) (error "Expected '%s'" eterm))
|
||||
(if (eobp) (error "Expected ‘%s’" eterm))
|
||||
(not (looking-at term)))
|
||||
(cond ((looking-at "%%")
|
||||
(end-of-line))
|
||||
|
|
@ -618,7 +618,7 @@
|
|||
(forward-char 2)
|
||||
(let ((p (calc-read-parse-table-part "}" "}")))
|
||||
(or (looking-at "[+*?]")
|
||||
(error "Expected '+', '*', or '?'"))
|
||||
(error "Expected ‘+’, ‘*’, or ‘?’"))
|
||||
(let ((sym (intern (buffer-substring (point) (1+ (point))))))
|
||||
(forward-char 1)
|
||||
(looking-at "[^\n\t ]*")
|
||||
|
|
@ -650,7 +650,7 @@
|
|||
(match-end 1)))))))
|
||||
(goto-char (match-end 0)))
|
||||
((looking-at ":=[\n\t ]")
|
||||
(error "Misplaced ':='"))
|
||||
(error "Misplaced ‘:=’"))
|
||||
(t
|
||||
(looking-at "[^\n\t ]*")
|
||||
(let ((end (match-end 0)))
|
||||
|
|
|
|||
|
|
@ -989,11 +989,11 @@ Used by `calc-user-invocation'.")
|
|||
(defvar calc-last-kill nil
|
||||
"The last number killed in calc-mode.")
|
||||
(defvar calc-dollar-values nil
|
||||
"Values to be used for '$'.")
|
||||
"Values to be used for ‘$’.")
|
||||
(defvar calc-dollar-used nil
|
||||
"The highest order of '$' that occurred.")
|
||||
"The highest order of ‘$’ that occurred.")
|
||||
(defvar calc-hashes-used nil
|
||||
"The highest order of '#' that occurred.")
|
||||
"The highest order of ‘#’ that occurred.")
|
||||
(defvar calc-quick-prev-results nil
|
||||
"Previous results from Quick Calc.")
|
||||
(defvar calc-said-hello nil
|
||||
|
|
|
|||
|
|
@ -100,7 +100,7 @@ At present, this only affects the daily filofax calendar."
|
|||
(format "%d/%d" day days-remaining))
|
||||
"Lisp expression giving the date format to use in the LaTeX calendars.
|
||||
This should be an expression involving the variable `date'. When
|
||||
this expression is called, `date' is a list of the form '(MONTH DAY YEAR)'.
|
||||
this expression is called, `date' is a list of the form `(MONTH DAY YEAR)'.
|
||||
|
||||
The string resulting from evaluating this expression is placed at
|
||||
the bottom center of each date in monthly calendars, next to the
|
||||
|
|
@ -151,7 +151,7 @@ For example, to include extra packages:
|
|||
"List of functions called after any LaTeX calendar buffer is generated.
|
||||
You can use this to do post-processing on the buffer. For example, to change
|
||||
characters with diacritical marks to their LaTeX equivalents, use
|
||||
(add-hook 'cal-tex-hook
|
||||
(add-hook \\='cal-tex-hook
|
||||
(lambda () (iso-iso2tex (point-min) (point-max))))"
|
||||
:type 'hook
|
||||
:group 'calendar-tex)
|
||||
|
|
|
|||
|
|
@ -360,7 +360,7 @@ See also `calendar-today-visible-hook'."
|
|||
"List of functions called whenever the cursor moves in the calendar.
|
||||
For example,
|
||||
|
||||
(add-hook 'calendar-move-hook (lambda () (diary-view-entries 1)))
|
||||
(add-hook \\='calendar-move-hook (lambda () (diary-view-entries 1)))
|
||||
|
||||
redisplays the diary for whatever date the cursor is moved to."
|
||||
:type 'hook
|
||||
|
|
|
|||
|
|
@ -185,9 +185,9 @@ diary buffer to be displayed with diary entries from various
|
|||
included files, each day's entries sorted into lexicographic
|
||||
order, add the following to your init file:
|
||||
|
||||
(setq diary-display-function 'diary-fancy-display)
|
||||
(add-hook 'diary-list-entries-hook 'diary-include-other-diary-files)
|
||||
(add-hook 'diary-list-entries-hook 'diary-sort-entries t)
|
||||
(setq diary-display-function \\='diary-fancy-display)
|
||||
(add-hook \\='diary-list-entries-hook \\='diary-include-other-diary-files)
|
||||
(add-hook \\='diary-list-entries-hook \\='diary-sort-entries t)
|
||||
|
||||
Note how the sort function is placed last, so that it can sort
|
||||
the entries included from other files.
|
||||
|
|
|
|||
|
|
@ -261,7 +261,7 @@ If non-nil all sexp diary entries are enumerated for
|
|||
`icalendar-export-sexp-enumeration-days' days instead of
|
||||
translating into an icalendar equivalent. This affects the
|
||||
following sexp diary entries: `diary-anniversary',
|
||||
`diary-cyclic', `diary-date', `diary-float',`diary-block'. All
|
||||
`diary-cyclic', `diary-date', `diary-float', `diary-block'. All
|
||||
other sexp entries are enumerated in any case."
|
||||
:version "25.1"
|
||||
:type 'boolean
|
||||
|
|
@ -482,7 +482,7 @@ children."
|
|||
result))
|
||||
|
||||
(defun icalendar--split-value (value-string)
|
||||
"Split VALUE-STRING at ';='."
|
||||
"Split VALUE-STRING at ‘;=’."
|
||||
(let ((result '())
|
||||
param-name param-value)
|
||||
(when value-string
|
||||
|
|
|
|||
|
|
@ -919,7 +919,7 @@ following format:
|
|||
(DEBT ENTRIES-BY-DAY ENTRIES-BY-PROJECT)
|
||||
|
||||
DEBT is a floating point number representing the number of seconds
|
||||
\"owed\" before any work was done. For a new file (one without a 'b'
|
||||
“owed” before any work was done. For a new file (one without a ‘b’
|
||||
entry), this is always zero.
|
||||
|
||||
The two entries lists have similar formats. They are both alists,
|
||||
|
|
|
|||
|
|
@ -36,7 +36,7 @@
|
|||
|
||||
(defcustom cedet-global-gtags-command "gtags"
|
||||
"Command name for the GNU Global gtags executable.
|
||||
GTAGS is used to create the tags table queried by the 'global' command."
|
||||
GTAGS is used to create the tags table queried by the ‘global’ command."
|
||||
:type 'string
|
||||
:group 'cedet)
|
||||
|
||||
|
|
|
|||
|
|
@ -105,7 +105,7 @@ which files this object is interested in."
|
|||
:accessor ede-object-menu)
|
||||
)
|
||||
"A target is a structure that describes a file set that produces something.
|
||||
Targets, as with 'Make', is an entity that will manage a file set
|
||||
Targets, as with `Make', is an entity that will manage a file set
|
||||
and knows how to compile or otherwise transform those files into some
|
||||
other desired outcome.")
|
||||
|
||||
|
|
@ -626,7 +626,7 @@ instead of the current project."
|
|||
(defun ede-normalize-file/directory (this project-file-name)
|
||||
"Fills :directory or :file slots if they're missing in project THIS.
|
||||
The other slot will be used to calculate values.
|
||||
PROJECT-FILE-NAME is a name of project file (short name, like 'pom.xml', etc."
|
||||
PROJECT-FILE-NAME is a name of project file (short name, like `pom.xml', etc."
|
||||
(when (and (or (not (slot-boundp this :file))
|
||||
(not (oref this :file)))
|
||||
(slot-boundp this :directory)
|
||||
|
|
|
|||
|
|
@ -262,7 +262,7 @@ exist, it should return nil."
|
|||
:documentation
|
||||
"Compilation command that will be used for this project.
|
||||
It could be string or function that will accept proj argument and should return string.
|
||||
The string will be passed to 'compile' function that will be issued in root
|
||||
The string will be passed to `compile' function that will be issued in root
|
||||
directory of project."
|
||||
)
|
||||
)
|
||||
|
|
|
|||
|
|
@ -31,8 +31,8 @@
|
|||
|
||||
(defvar ede-pconf-create-file-query 'ask
|
||||
"Controls if queries are made while creating project files.
|
||||
A value of 'ask means to always ask the user before creating
|
||||
a file, such as AUTHORS. A value of 'never means don't ask, and
|
||||
A value of `ask' means to always ask the user before creating
|
||||
a file, such as AUTHORS. A value of `never' means don't ask, and
|
||||
don't do it. A value of nil means to just do it.")
|
||||
|
||||
;;; Code:
|
||||
|
|
|
|||
|
|
@ -598,7 +598,8 @@ Argument THIS is the target that should insert stuff."
|
|||
"\t@echo Makefile is out of date! "
|
||||
"It needs to be regenerated by EDE.\n"
|
||||
"\t@echo If you have not modified Project.ede, you can"
|
||||
" use 'touch' to update the Makefile time stamp.\n"
|
||||
(format-message
|
||||
" use ‘touch’ to update the Makefile time stamp.\n")
|
||||
"\t@false\n\n"
|
||||
"\n\n# End of Makefile\n")))
|
||||
|
||||
|
|
|
|||
|
|
@ -55,7 +55,7 @@ Makefile.am generator, so use it to add this important bin program."
|
|||
(cl-defmethod ede-proj-makefile-garbage-patterns
|
||||
((this ede-proj-target-makefile-archive))
|
||||
"Add archive name to the garbage patterns.
|
||||
This makes sure that the archive is removed with 'make clean'."
|
||||
This makes sure that the archive is removed with `make clean'."
|
||||
(let ((garb (cl-call-next-method)))
|
||||
(append garb (list (concat "lib" (ede-name this) ".a")))))
|
||||
|
||||
|
|
|
|||
|
|
@ -731,35 +731,35 @@ Strip out duplicates, and recurse on variables."
|
|||
(oset this :source (makefile-macro-file-list "EXTRA_DIST")))
|
||||
|
||||
(cl-defmethod project-am-macro ((this project-am-objectcode))
|
||||
"Return the default macro to 'edit' for this object type."
|
||||
"Return the default macro to `edit' for this object type."
|
||||
(concat (subst-char-in-string ?- ?_ (oref this :name)) "_SOURCES"))
|
||||
|
||||
(cl-defmethod project-am-macro ((this project-am-header-noinst))
|
||||
"Return the default macro to 'edit' for this object."
|
||||
"Return the default macro to `edit' for this object."
|
||||
"noinst_HEADERS")
|
||||
|
||||
(cl-defmethod project-am-macro ((this project-am-header-inst))
|
||||
"Return the default macro to 'edit' for this object."
|
||||
"Return the default macro to `edit' for this object."
|
||||
"include_HEADERS")
|
||||
|
||||
(cl-defmethod project-am-macro ((this project-am-header-pkg))
|
||||
"Return the default macro to 'edit' for this object."
|
||||
"Return the default macro to `edit' for this object."
|
||||
"pkginclude_HEADERS")
|
||||
|
||||
(cl-defmethod project-am-macro ((this project-am-header-chk))
|
||||
"Return the default macro to 'edit' for this object."
|
||||
"Return the default macro to `edit' for this object."
|
||||
"check_HEADERS")
|
||||
|
||||
(cl-defmethod project-am-macro ((this project-am-texinfo))
|
||||
"Return the default macro to 'edit' for this object type."
|
||||
"Return the default macro to `edit' for this object type."
|
||||
(concat (file-name-sans-extension (oref this :name)) "_TEXINFOS"))
|
||||
|
||||
(cl-defmethod project-am-macro ((this project-am-man))
|
||||
"Return the default macro to 'edit' for this object type."
|
||||
"Return the default macro to `edit' for this object type."
|
||||
(oref this :name))
|
||||
|
||||
(cl-defmethod project-am-macro ((this project-am-lisp))
|
||||
"Return the default macro to 'edit' for this object."
|
||||
"Return the default macro to `edit' for this object."
|
||||
"lisp_LISP")
|
||||
|
||||
(defun project-am-buffer-object (amf buffer)
|
||||
|
|
|
|||
|
|
@ -225,7 +225,7 @@ to store your global macros in a more natural way."
|
|||
)
|
||||
|
||||
(defcustom semantic-c-member-of-autocast 't
|
||||
"Non-nil means classes with a '->' operator will cast to its return type.
|
||||
"Non-nil means classes with a `->' operator will cast to its return type.
|
||||
|
||||
For Examples:
|
||||
|
||||
|
|
@ -1049,8 +1049,8 @@ now.
|
|||
return-list))
|
||||
|
||||
(defun semantic-expand-c-extern-C (tag)
|
||||
"Expand TAG containing an 'extern \"C\"' statement.
|
||||
This will return all members of TAG with 'extern \"C\"' added to
|
||||
"Expand TAG containing an `extern \"C\"' statement.
|
||||
This will return all members of TAG with `extern \"C\"' added to
|
||||
the typemodifiers attribute."
|
||||
(when (eq (semantic-tag-class tag) 'extern)
|
||||
(let* ((mb (semantic-tag-get-attribute tag :members))
|
||||
|
|
@ -1065,7 +1065,7 @@ the typemodifiers attribute."
|
|||
(defun semantic-expand-c-complex-type (tag)
|
||||
"Check if TAG has a full :type with a name on its own.
|
||||
If so, extract it, and replace it with a reference to that type.
|
||||
Thus, 'struct A { int a; } B;' will create 2 toplevel tags, one
|
||||
Thus, `struct A { int a; } B;' will create 2 toplevel tags, one
|
||||
is type A, and the other variable B where the :type of B is just
|
||||
a type tag A that is a prototype, and the actual struct info of A
|
||||
is its own toplevel tag. This function will return (cons A B)."
|
||||
|
|
@ -1656,7 +1656,7 @@ SPEC-LIST is the template specifier of the datatype instantiated."
|
|||
|
||||
(defun semantic-c--template-name-1 (spec-list)
|
||||
"Return a string used to compute template class name.
|
||||
Based on SPEC-LIST, for ref<Foo,Bar> it will return 'Foo,Bar'."
|
||||
Based on SPEC-LIST, for ref<Foo,Bar> it will return `Foo,Bar'."
|
||||
(when (car spec-list)
|
||||
(let* ((endpart (semantic-c--template-name-1 (cdr spec-list)))
|
||||
(separator (and endpart ",")))
|
||||
|
|
@ -1665,7 +1665,7 @@ Based on SPEC-LIST, for ref<Foo,Bar> it will return 'Foo,Bar'."
|
|||
(defun semantic-c--template-name (type spec-list)
|
||||
"Return a template class name for TYPE based on SPEC-LIST.
|
||||
For a type `ref' with a template specifier of (Foo Bar) it will
|
||||
return 'ref<Foo,Bar>'."
|
||||
return `ref<Foo,Bar>'."
|
||||
(concat (semantic-tag-name type)
|
||||
"<" (semantic-c--template-name-1 (cdr spec-list)) ">"))
|
||||
|
||||
|
|
@ -1693,7 +1693,7 @@ instantiated as specified in TYPE-DECLARATION."
|
|||
;;; Patch here by "Raf" for instantiating templates.
|
||||
(defun semantic-c-dereference-member-of (type scope &optional type-declaration)
|
||||
"Dereference through the `->' operator of TYPE.
|
||||
Uses the return type of the '->' operator if it is contained in TYPE.
|
||||
Uses the return type of the `->' operator if it is contained in TYPE.
|
||||
SCOPE is the current local scope to perform searches in.
|
||||
TYPE-DECLARATION is passed through."
|
||||
(if semantic-c-member-of-autocast
|
||||
|
|
@ -1709,8 +1709,8 @@ TYPE-DECLARATION is passed through."
|
|||
;; tests 5 and following.
|
||||
|
||||
(defun semantic-c-dereference-namespace (type scope &optional type-declaration)
|
||||
"Dereference namespace which might hold an 'alias' for TYPE.
|
||||
Such an alias can be created through 'using' statements in a
|
||||
"Dereference namespace which might hold an `alias' for TYPE.
|
||||
Such an alias can be created through `using' statements in a
|
||||
namespace declaration. This function checks the namespaces in
|
||||
SCOPE for such statements."
|
||||
(let ((scopetypes (oref scope scopetypes))
|
||||
|
|
@ -1826,7 +1826,7 @@ or nil if it cannot be found."
|
|||
(define-mode-local-override semantic-analyze-dereference-metatype
|
||||
c-mode (type scope &optional type-declaration)
|
||||
"Dereference TYPE as described in `semantic-analyze-dereference-metatype'.
|
||||
Handle typedef, template instantiation, and '->' operator."
|
||||
Handle typedef, template instantiation, and `->' operator."
|
||||
(let* ((dereferencer-list '(semantic-c-dereference-typedef
|
||||
semantic-c-dereference-template
|
||||
semantic-c-dereference-member-of
|
||||
|
|
|
|||
|
|
@ -1491,7 +1491,7 @@ Not meaningful return value."
|
|||
"Display completions in *Completions* buffer, with focus highlight.
|
||||
A traditional displayor which can focus on a tag by showing it.
|
||||
Same as `semantic-displayor-traditional', but with selection between
|
||||
multiple tags with the same name done by 'focusing' on the source
|
||||
multiple tags with the same name done by focusing on the source
|
||||
location of the different tags to differentiate them.")
|
||||
|
||||
(cl-defmethod semantic-displayor-focus-request
|
||||
|
|
@ -1684,7 +1684,7 @@ Display mechanism using tooltip for a list of possible completions.")
|
|||
(setq msg-tail (concat "\n[<TAB> " (number-to-string (- numcompl max-tags)) " more]"))
|
||||
(setq msg-tail (concat "\n[<n/a> " (number-to-string (- numcompl max-tags)) " more]"))
|
||||
(when (>= (oref obj typing-count) 2)
|
||||
(message "Refine search to display results beyond the '%s' limit"
|
||||
(message "Refine search to display results beyond the ‘%s’ limit"
|
||||
(symbol-name 'semantic-complete-inline-max-tags-extended)))))
|
||||
((= numcompl 1)
|
||||
;; two possible cases
|
||||
|
|
|
|||
|
|
@ -362,7 +362,7 @@ This skips forward over symbols in a complex reference.
|
|||
For example, in the C statement:
|
||||
this.that().entry;
|
||||
|
||||
If the cursor is on 'this', will move point to the ; after entry.")
|
||||
If the cursor is on `this', will move point to the ; after entry.")
|
||||
|
||||
(defun semantic-ctxt-end-of-symbol-default (&optional point)
|
||||
"Move point to the end of the current symbol under POINT.
|
||||
|
|
|
|||
|
|
@ -142,7 +142,7 @@ Abstract tables do not have file names associated with them."
|
|||
nil)
|
||||
|
||||
(cl-defmethod semanticdb-dirty-p ((obj semanticdb-abstract-table))
|
||||
"Return non-nil if OBJ is 'dirty'."
|
||||
"Return non-nil if OBJ is dirty."
|
||||
nil)
|
||||
|
||||
(cl-defmethod semanticdb-set-dirty ((obj semanticdb-abstract-table))
|
||||
|
|
@ -313,7 +313,7 @@ If OBJ's file is not loaded, read it in first."
|
|||
(oref (oref obj parent-db) reference-directory)))
|
||||
|
||||
(cl-defmethod semanticdb-dirty-p ((obj semanticdb-table))
|
||||
"Return non-nil if OBJ is 'dirty'."
|
||||
"Return non-nil if OBJ is dirty."
|
||||
(oref obj dirty))
|
||||
|
||||
(cl-defmethod semanticdb-set-dirty ((obj semanticdb-table))
|
||||
|
|
@ -369,7 +369,7 @@ Abstract tables do not have file names associated with them."
|
|||
nil)
|
||||
|
||||
(cl-defmethod semanticdb-dirty-p ((DB semanticdb-project-database))
|
||||
"Return non-nil if DB is 'dirty'.
|
||||
"Return non-nil if DB is dirty.
|
||||
A database is dirty if the state of the database changed in a way
|
||||
where it may need to resynchronize with some persistent storage."
|
||||
(let ((dirty nil)
|
||||
|
|
|
|||
|
|
@ -369,7 +369,7 @@ That is @NAME."
|
|||
|
||||
(defsubst semantic-java-doc-tag-name (tag)
|
||||
"Return name of the doc TAG symbol.
|
||||
That is TAG `symbol-name' without the leading '@'."
|
||||
That is TAG `symbol-name' without the leading ‘@’."
|
||||
(substring (symbol-name tag) 1))
|
||||
|
||||
(defun semantic-java-doc-keyword-before-p (k1 k2)
|
||||
|
|
|
|||
|
|
@ -507,7 +507,7 @@ filters in `senator-search-tag-filter-functions' remain active."
|
|||
(define-overloadable-function semantic-up-reference (tag)
|
||||
"Return a tag that is referred to by TAG.
|
||||
A \"reference\" could be any interesting feature of TAG.
|
||||
In C++, a function may have a 'parent' which is non-local.
|
||||
In C++, a function may have a `parent' which is non-local.
|
||||
If that parent which is only a reference in the function tag
|
||||
is found, we can jump to it.
|
||||
Some tags such as includes have other reference features.")
|
||||
|
|
@ -516,7 +516,7 @@ Some tags such as includes have other reference features.")
|
|||
(defun senator-go-to-up-reference (&optional tag)
|
||||
"Move up one reference from the current TAG.
|
||||
A \"reference\" could be any interesting feature of TAG.
|
||||
In C++, a function may have a 'parent' which is non-local.
|
||||
In C++, a function may have a `parent' which is non-local.
|
||||
If that parent which is only a reference in the function tag
|
||||
is found, we can jump to it.
|
||||
Some tags such as includes have other reference features."
|
||||
|
|
|
|||
|
|
@ -2892,7 +2892,7 @@ Also warn if X is a $N or $regionN symbol with N < 1 or N > M."
|
|||
"Parse BODY of semantic action.
|
||||
N is the maximum number of $N variables that can be referenced in
|
||||
BODY. Warn on references out of permitted range.
|
||||
Optional argument FOUND is the accumulated list of '$N' references
|
||||
Optional argument FOUND is the accumulated list of $N references
|
||||
encountered so far.
|
||||
Return a cons (FOUND . XBODY), where FOUND is the list of $N
|
||||
references found in BODY, and XBODY is BODY expression with
|
||||
|
|
|
|||
|
|
@ -130,7 +130,7 @@ curly braces."
|
|||
|
||||
(defun wisent-python-forward-balanced-expression ()
|
||||
"Move point to the end of the balanced expression at point.
|
||||
Here 'balanced expression' means anything matched by Emacs'
|
||||
Here “balanced expression” means anything matched by Emacs's
|
||||
open/close parenthesis syntax classes. We can't use forward-sexp
|
||||
for this because that Emacs built-in can't parse Python's
|
||||
triple-quoted string syntax."
|
||||
|
|
@ -490,7 +490,7 @@ Return nil if there is nothing relevant."
|
|||
;;
|
||||
(define-mode-local-override semantic-format-tag-abbreviate python-mode (tag &optional parent color)
|
||||
"Format an abbreviated tag for python.
|
||||
Shortens 'code' tags, but passes through for others."
|
||||
Shortens `code' tags, but passes through for others."
|
||||
(cond ((semantic-tag-of-class-p tag 'code)
|
||||
;; Just take the first line.
|
||||
(let ((name (semantic-tag-name tag)))
|
||||
|
|
|
|||
|
|
@ -75,7 +75,7 @@ any incoming dictionaries values.")
|
|||
:initform nil
|
||||
:documentation
|
||||
"During template insertion, this is the stack of active templates.
|
||||
The top-most template is the 'active' template. Use the accessor methods
|
||||
The top-most template is the `active' template. Use the accessor methods
|
||||
for push, pop, and peek for the active template.")
|
||||
(table :initarg :table
|
||||
:documentation
|
||||
|
|
@ -290,7 +290,7 @@ Arguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."
|
|||
)
|
||||
;; Continue
|
||||
(setq tags (cdr tags)))
|
||||
|
||||
|
||||
;; MSG - Before install since nreverse whacks our list.
|
||||
(when (called-interactively-p 'interactive)
|
||||
(message "%d templates compiled for %s"
|
||||
|
|
|
|||
|
|
@ -417,7 +417,7 @@ searched for NAME if it is not found in DICT. This recursive
|
|||
lookup can be disabled by the optional argument NON-RECURSIVE.
|
||||
|
||||
This function derives values for some special NAMEs, such as
|
||||
'FIRST' and 'LAST'."
|
||||
`FIRST' and `LAST'."
|
||||
(if (not (slot-boundp dict 'namehash))
|
||||
nil
|
||||
;; Get the value of this name from the dictionary or its parent
|
||||
|
|
|
|||
|
|
@ -655,7 +655,7 @@ If there is only one tag in the region, complain."
|
|||
"Create documentation for the function defined in TAG.
|
||||
If we can identify a verb in the list followed by some
|
||||
name part then check the return value to see if we can use that to
|
||||
finish off the sentence. That is, any function with 'alloc' in it will be
|
||||
finish off the sentence. That is, any function with `alloc' in it will be
|
||||
allocating something based on its type."
|
||||
(let ((al srecode-document-autocomment-return-first-alist)
|
||||
(dropit nil)
|
||||
|
|
|
|||
|
|
@ -377,9 +377,9 @@ Can't be blank, or it might be used by regular variable insertion.")
|
|||
(where :initform 'begin
|
||||
:initarg :where
|
||||
:documentation
|
||||
"This should be 'begin or 'end, indicating where to insert a CR.
|
||||
When set to 'begin, it will insert a CR if we are not at 'bol'.
|
||||
When set to 'end it will insert a CR if we are not at 'eol'.")
|
||||
"This should be `begin' or `end', indicating where to insert a CR.
|
||||
When `begin', insert a CR if not at 'bol'.
|
||||
When `end', insert a CR if not at 'eol'.")
|
||||
;; @TODO - Add slot and control for the number of blank
|
||||
;; lines before and after point.
|
||||
)
|
||||
|
|
@ -762,7 +762,7 @@ Arguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."
|
|||
(cl-defmethod srecode-insert-method ((sti srecode-template-inserter-point)
|
||||
dictionary)
|
||||
"Insert the STI inserter.
|
||||
Save point in the class allocated 'point' slot.
|
||||
Save point in the class allocated `point' slot.
|
||||
If `srecode-template-inserter-point-override' non-nil then this
|
||||
generalized marker will do something else. See
|
||||
`srecode-template-inserter-include-wrap' as an example."
|
||||
|
|
|
|||
|
|
@ -245,7 +245,7 @@ that class.
|
|||
variable => @code{variable}
|
||||
class => @code{class} @xref{class}
|
||||
unknown => @code{unknown}
|
||||
\"text\" => \\=`\\=`text''
|
||||
\"text\" => \\=`\\=`text\\='\\='
|
||||
'quoteme => @code{quoteme}
|
||||
non-nil => non-@code{nil}
|
||||
t => @code{t}
|
||||
|
|
|
|||
|
|
@ -184,11 +184,11 @@ narrowing in effect. This way you will be certain that none of
|
|||
the remaining prompts will be accidentally messed up. You may
|
||||
wish to put something like the following in your init file:
|
||||
|
||||
\(add-hook 'comint-mode-hook
|
||||
\(add-hook \\='comint-mode-hook
|
||||
(lambda ()
|
||||
(define-key comint-mode-map [remap kill-region] 'comint-kill-region)
|
||||
(define-key comint-mode-map [remap kill-region] \\='comint-kill-region)
|
||||
(define-key comint-mode-map [remap kill-whole-line]
|
||||
'comint-kill-whole-line)))
|
||||
\\='comint-kill-whole-line)))
|
||||
|
||||
If you sometimes use comint-mode on text-only terminals or with `emacs -nw',
|
||||
you might wish to use another binding for `comint-kill-whole-line'."
|
||||
|
|
|
|||
|
|
@ -534,7 +534,7 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
|
|||
(if (not (or (eq dabbrev--last-buffer dabbrev--last-buffer-found)
|
||||
(minibuffer-window-active-p (selected-window))))
|
||||
(progn
|
||||
(message "Expansion found in '%s'"
|
||||
(message "Expansion found in `%s'"
|
||||
(buffer-name dabbrev--last-buffer))
|
||||
(setq dabbrev--last-buffer-found dabbrev--last-buffer))
|
||||
(message nil))
|
||||
|
|
|
|||
|
|
@ -179,11 +179,11 @@ Valid values are:
|
|||
`delimit-columns-separator' and then followed by spaces.
|
||||
For example, the result is: \"<ccc>: <dddd>: \"
|
||||
|
||||
'separator align separators. That is, `delimit-columns-after' is followed
|
||||
`separator' align separators. That is, `delimit-columns-after' is followed
|
||||
by spaces and then followed by `delimit-columns-separator'.
|
||||
For example, the result is: \"<ccc> :<dddd> :\"
|
||||
|
||||
'padding format column by filling with spaces before
|
||||
`padding' format column by filling with spaces before
|
||||
`delimit-columns-after'. That is, spaces are followed by
|
||||
`delimit-columns-after' and then followed by
|
||||
`delimit-columns-separator'.
|
||||
|
|
|
|||
|
|
@ -149,7 +149,7 @@ regexp `dired-omit-files', nor files ending with extensions in
|
|||
To enable omitting in every Dired buffer, you can put this in
|
||||
your init file:
|
||||
|
||||
(add-hook 'dired-mode-hook (lambda () (dired-omit-mode)))
|
||||
(add-hook \\='dired-mode-hook (lambda () (dired-omit-mode)))
|
||||
|
||||
See Info node `(dired-x) Omitting Variables' for more information."
|
||||
:group 'dired-x
|
||||
|
|
|
|||
|
|
@ -355,12 +355,12 @@ was first made obsolete, for example a date or a release number."
|
|||
&optional when docstring)
|
||||
"Set OBSOLETE-NAME's function definition to CURRENT-NAME and mark it obsolete.
|
||||
|
||||
\(define-obsolete-function-alias 'old-fun 'new-fun \"22.1\" \"old-fun's doc.\")
|
||||
\(define-obsolete-function-alias \\='old-fun \\='new-fun \"22.1\" \"old-fun's doc.\")
|
||||
|
||||
is equivalent to the following two lines of code:
|
||||
|
||||
\(defalias 'old-fun 'new-fun \"old-fun's doc.\")
|
||||
\(make-obsolete 'old-fun 'new-fun \"22.1\")
|
||||
\(defalias \\='old-fun \\='new-fun \"old-fun's doc.\")
|
||||
\(make-obsolete \\='old-fun \\='new-fun \"22.1\")
|
||||
|
||||
See the docstrings of `defalias' and `make-obsolete' for more details."
|
||||
(declare (doc-string 4)
|
||||
|
|
|
|||
|
|
@ -3825,11 +3825,11 @@ discarding."
|
|||
"Execute forms in BODY, potentially guarded by CONDITION.
|
||||
CONDITION is a variable whose value is a test in an `if' or `cond'.
|
||||
BODY is the code to compile in the first arm of the if or the body of
|
||||
the cond clause. If CONDITION's value is of the form (fboundp 'foo)
|
||||
or (boundp 'foo), the relevant warnings from BODY about foo's
|
||||
the cond clause. If CONDITION's value is of the form (fboundp \\='foo)
|
||||
or (boundp \\='foo), the relevant warnings from BODY about foo's
|
||||
being undefined (or obsolete) will be suppressed.
|
||||
|
||||
If CONDITION's value is (not (featurep 'emacs)) or (featurep 'xemacs),
|
||||
If CONDITION's value is (not (featurep \\='emacs)) or (featurep \\='xemacs),
|
||||
that suppresses all warnings during execution of BODY."
|
||||
(declare (indent 1) (debug t))
|
||||
`(let* ((fbound-list (byte-compile-find-bound-condition
|
||||
|
|
|
|||
|
|
@ -1419,7 +1419,7 @@ regexp short cuts work. FP is the function defun information."
|
|||
(when (re-search-forward "^(" e t)
|
||||
(if (checkdoc-autofix-ask-replace (match-beginning 0)
|
||||
(match-end 0)
|
||||
"Escape this '('? "
|
||||
"Escape this ‘(’? "
|
||||
"\\(")
|
||||
nil
|
||||
(checkdoc-create-error
|
||||
|
|
|
|||
|
|
@ -128,8 +128,8 @@ A value of nil specifies `try-completion'. A value of t specifies
|
|||
`all-completions'. A value of lambda specifies a test for an exact match.
|
||||
|
||||
For more information on STRING, PREDICATE, and FLAG, see the Elisp
|
||||
Reference sections on 'Programmed Completion' and 'Basic Completion
|
||||
Functions'."
|
||||
Reference sections on “Programmed Completion” and “Basic Completion
|
||||
Functions”."
|
||||
(let ((beg 0))
|
||||
(while (string-match crm-separator string beg)
|
||||
(setq beg (match-end 0)))
|
||||
|
|
|
|||
|
|
@ -85,7 +85,7 @@ This applies to `eval-defun', `eval-region', `eval-buffer', and
|
|||
|
||||
You can use the command `edebug-all-defs' to toggle the value of this
|
||||
variable. You may wish to make it local to each buffer with
|
||||
\(make-local-variable 'edebug-all-defs) in your
|
||||
\(make-local-variable \\='edebug-all-defs) in your
|
||||
`emacs-lisp-mode-hook'."
|
||||
:type 'boolean
|
||||
:group 'edebug)
|
||||
|
|
|
|||
|
|
@ -383,7 +383,7 @@ Returns the forms."
|
|||
tops))
|
||||
(end-of-file
|
||||
(goto-char elint-current-pos)
|
||||
(error "Missing ')' in top form: %s"
|
||||
(error "Missing ‘)’ in top form: %s"
|
||||
(buffer-substring elint-current-pos
|
||||
(line-end-position))))))))
|
||||
(nreverse tops))))
|
||||
|
|
|
|||
|
|
@ -214,7 +214,7 @@ property list, or no properties if there is no plist before it.
|
|||
|
||||
As a simple example,
|
||||
|
||||
\(ert-propertized-string \"foo \" '(face italic) \"bar\" \" baz\" nil \
|
||||
\(ert-propertized-string \"foo \" \\='(face italic) \"bar\" \" baz\" nil \
|
||||
\" quux\"\)
|
||||
|
||||
would return the string \"foo bar baz quux\" where the substring
|
||||
|
|
|
|||
|
|
@ -552,11 +552,11 @@ copyright notice is allowed."
|
|||
((not (lm-keywords-finder-p))
|
||||
"‘Keywords:’ has no valid finder keywords (see ‘finder-known-keywords’)")
|
||||
((not (lm-commentary-mark))
|
||||
"Can't find a 'Commentary' section marker")
|
||||
"Can't find a ‘Commentary’ section marker")
|
||||
((not (lm-history-mark))
|
||||
"Can't find a 'History' section marker")
|
||||
"Can't find a ‘History’ section marker")
|
||||
((not (lm-code-mark))
|
||||
"Can't find a 'Code' section marker")
|
||||
"Can't find a ‘Code’ section marker")
|
||||
((progn
|
||||
(goto-char (point-max))
|
||||
(not
|
||||
|
|
|
|||
|
|
@ -115,8 +115,8 @@ Patterns can take the following forms:
|
|||
SYMBOL matches anything and binds it to SYMBOL.
|
||||
(or PAT...) matches if any of the patterns matches.
|
||||
(and PAT...) matches if all the patterns match.
|
||||
'VAL matches if the object is `equal' to VAL
|
||||
ATOM is a shorthand for 'ATOM.
|
||||
\\='VAL matches if the object is `equal' to VAL
|
||||
ATOM is a shorthand for \\='ATOM.
|
||||
ATOM can be a keyword, an integer, or a string.
|
||||
(pred FUN) matches if FUN applied to the object returns non-nil.
|
||||
(guard BOOLEXP) matches if BOOLEXP evaluates to non-nil.
|
||||
|
|
|
|||
|
|
@ -815,9 +815,9 @@ of all atomic regexps."
|
|||
|
||||
(defun rx-greedy (form)
|
||||
"Parse and produce code from FORM.
|
||||
If FORM is '(minimal-match FORM1)', non-greedy versions of `*',
|
||||
If FORM is `(minimal-match FORM1)', non-greedy versions of `*',
|
||||
`+', and `?' operators will be used in FORM1. If FORM is
|
||||
'(maximal-match FORM1)', greedy operators will be used."
|
||||
`(maximal-match FORM1)', greedy operators will be used."
|
||||
(rx-check form)
|
||||
(let ((rx-greedy-flag (eq (car form) 'maximal-match)))
|
||||
(rx-form (cadr form) rx-parent)))
|
||||
|
|
|
|||
|
|
@ -213,7 +213,7 @@ For example, suppose `load-path' is set to
|
|||
|
||||
and that each of these directories contains a file called XXX.el. Then
|
||||
XXX.el in the site-lisp directory is referred to by all of:
|
||||
\(require 'XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc.
|
||||
\(require \\='XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc.
|
||||
|
||||
The first XXX.el file prevents Emacs from seeing the second (unless
|
||||
the second is loaded explicitly via `load-file').
|
||||
|
|
|
|||
|
|
@ -3639,24 +3639,26 @@ the Emacs binding of `/'."
|
|||
(let (msg)
|
||||
(cond ((or (eq arg 1)
|
||||
(and (null arg)
|
||||
(y-or-n-p (format "Search style: '%s'. Want '%s'? "
|
||||
(if viper-case-fold-search
|
||||
"case-insensitive" "case-sensitive")
|
||||
(if viper-case-fold-search
|
||||
"case-sensitive"
|
||||
"case-insensitive")))))
|
||||
(y-or-n-p (format-message
|
||||
"Search style: ‘%s’. Want ‘%s’? "
|
||||
(if viper-case-fold-search
|
||||
"case-insensitive" "case-sensitive")
|
||||
(if viper-case-fold-search
|
||||
"case-sensitive"
|
||||
"case-insensitive")))))
|
||||
(setq viper-case-fold-search (null viper-case-fold-search))
|
||||
(if viper-case-fold-search
|
||||
(setq msg "Search becomes case-insensitive")
|
||||
(setq msg "Search becomes case-sensitive")))
|
||||
((or (eq arg 2)
|
||||
(and (null arg)
|
||||
(y-or-n-p (format "Search style: '%s'. Want '%s'? "
|
||||
(if viper-re-search
|
||||
"regexp-search" "vanilla-search")
|
||||
(if viper-re-search
|
||||
"vanilla-search"
|
||||
"regexp-search")))))
|
||||
(y-or-n-p (format-message
|
||||
"Search style: ‘%s’. Want ‘%s’? "
|
||||
(if viper-re-search
|
||||
"regexp-search" "vanilla-search")
|
||||
(if viper-re-search
|
||||
"vanilla-search"
|
||||
"regexp-search")))))
|
||||
(setq viper-re-search (null viper-re-search))
|
||||
(if viper-re-search
|
||||
(setq msg "Search becomes regexp-style")
|
||||
|
|
@ -4400,7 +4402,7 @@ and regexp replace."
|
|||
;; etc.
|
||||
(defun viper-cycle-through-mark-ring ()
|
||||
"Visit previous locations on the mark ring.
|
||||
One can use \\=`\\=` and '' to temporarily jump 1 step back."
|
||||
One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back."
|
||||
(let* ((sv-pt (point)))
|
||||
;; if repeated `m,' command, pop the previously saved mark.
|
||||
;; Prev saved mark is actually prev saved point. It is used if the
|
||||
|
|
|
|||
|
|
@ -583,7 +583,7 @@ the Insert state."
|
|||
|
||||
(defcustom viper-keep-point-on-repeat t
|
||||
"If t, don't move point when repeating previous command.
|
||||
This is useful for doing repeated changes with the '.' key.
|
||||
This is useful for doing repeated changes with the ‘.’ key.
|
||||
The user can change this to nil, if she likes when the cursor moves
|
||||
to a new place after repeating previous Vi command."
|
||||
:type 'boolean
|
||||
|
|
|
|||
16
lisp/epa.el
16
lisp/epa.el
|
|
@ -841,10 +841,10 @@ should consider using the string based counterpart
|
|||
|
||||
For example:
|
||||
|
||||
\(let ((context (epg-make-context 'OpenPGP)))
|
||||
\(let ((context (epg-make-context \\='OpenPGP)))
|
||||
(decode-coding-string
|
||||
(epg-decrypt-string context (buffer-substring start end))
|
||||
'utf-8))"
|
||||
\\='utf-8))"
|
||||
(interactive "r")
|
||||
(save-excursion
|
||||
(let ((context (epg-make-context epa-protocol))
|
||||
|
|
@ -939,10 +939,10 @@ should consider using the string based counterpart
|
|||
|
||||
For example:
|
||||
|
||||
\(let ((context (epg-make-context 'OpenPGP)))
|
||||
\(let ((context (epg-make-context \\='OpenPGP)))
|
||||
(decode-coding-string
|
||||
(epg-verify-string context (buffer-substring start end))
|
||||
'utf-8))"
|
||||
\\='utf-8))"
|
||||
(declare (interactive-only t))
|
||||
(interactive "r")
|
||||
(let ((context (epg-make-context epa-protocol))
|
||||
|
|
@ -1028,10 +1028,10 @@ based counterpart `epg-sign-file' instead.
|
|||
|
||||
For example:
|
||||
|
||||
\(let ((context (epg-make-context 'OpenPGP)))
|
||||
\(let ((context (epg-make-context \\='OpenPGP)))
|
||||
(epg-sign-string
|
||||
context
|
||||
(encode-coding-string (buffer-substring start end) 'utf-8)))"
|
||||
(encode-coding-string (buffer-substring start end) \\='utf-8)))"
|
||||
(declare (interactive-only t))
|
||||
(interactive
|
||||
(let ((verbose current-prefix-arg))
|
||||
|
|
@ -1114,10 +1114,10 @@ file based counterpart `epg-encrypt-file' instead.
|
|||
|
||||
For example:
|
||||
|
||||
\(let ((context (epg-make-context 'OpenPGP)))
|
||||
\(let ((context (epg-make-context \\='OpenPGP)))
|
||||
(epg-encrypt-string
|
||||
context
|
||||
(encode-coding-string (buffer-substring start end) 'utf-8)
|
||||
(encode-coding-string (buffer-substring start end) \\='utf-8)
|
||||
nil))"
|
||||
(declare (interactive-only t))
|
||||
(interactive
|
||||
|
|
|
|||
|
|
@ -1614,7 +1614,7 @@ handle the case where SIGNATURE has multiple signature.
|
|||
|
||||
To check the verification results, use `epg-context-result-for' as follows:
|
||||
|
||||
\(epg-context-result-for context 'verify)
|
||||
\(epg-context-result-for context \\='verify)
|
||||
|
||||
which will return a list of `epg-signature' object."
|
||||
(unwind-protect
|
||||
|
|
@ -1649,7 +1649,7 @@ handle the case where SIGNATURE has multiple signature.
|
|||
|
||||
To check the verification results, use `epg-context-result-for' as follows:
|
||||
|
||||
\(epg-context-result-for context 'verify)
|
||||
\(epg-context-result-for context \\='verify)
|
||||
|
||||
which will return a list of `epg-signature' object."
|
||||
(let ((coding-system-for-write 'binary)
|
||||
|
|
|
|||
|
|
@ -511,7 +511,8 @@ Examples:
|
|||
|
||||
(defun erc-nick-popup (nick)
|
||||
(let* ((completion-ignore-case t)
|
||||
(action (completing-read (concat "What action to take on '" nick "'? ")
|
||||
(action (completing-read (format-message
|
||||
"What action to take on ‘%s’? " nick)
|
||||
erc-nick-popup-alist))
|
||||
(code (cdr (assoc action erc-nick-popup-alist))))
|
||||
(when code
|
||||
|
|
|
|||
|
|
@ -166,7 +166,7 @@ All values of the list must be uppercase strings.")
|
|||
"Return the first matching entry in `erc-dcc-list' which satisfies the
|
||||
constraints given as a plist in ARGS. Returns nil on no match.
|
||||
|
||||
The property :nick is treated specially, if it contains a '!' character,
|
||||
The property :nick is treated specially, if it contains a ‘!’ character,
|
||||
it is treated as a nick!user@host string, and compared with the :nick property
|
||||
value of the individual elements using string-equal. Otherwise it is
|
||||
compared with `erc-nick-equal-p' which is IRC case-insensitive."
|
||||
|
|
@ -315,10 +315,10 @@ Should be set to a string or nil. If nil, use the value of
|
|||
|
||||
(defcustom erc-dcc-send-request 'ask
|
||||
"How to treat incoming DCC Send requests.
|
||||
'ask - Report the Send request, and wait for the user to manually accept it
|
||||
You might want to set `erc-dcc-auto-masks' for this.
|
||||
'auto - Automatically accept the request and begin downloading the file
|
||||
'ignore - Ignore incoming DCC Send requests completely."
|
||||
`ask' - Report the Send request, and wait for the user to manually accept it
|
||||
You might want to set `erc-dcc-auto-masks' for this.
|
||||
`auto' - Automatically accept the request and begin downloading the file
|
||||
`ignore' - Ignore incoming DCC Send requests completely."
|
||||
:group 'erc-dcc
|
||||
:type '(choice (const ask) (const auto) (const ignore)))
|
||||
|
||||
|
|
@ -713,9 +713,9 @@ match, returns that regexp and nil otherwise."
|
|||
|
||||
(defcustom erc-dcc-chat-request 'ask
|
||||
"How to treat incoming DCC Chat requests.
|
||||
'ask - Report the Chat request, and wait for the user to manually accept it
|
||||
'auto - Automatically accept the request and open a new chat window
|
||||
'ignore - Ignore incoming DCC chat requests completely."
|
||||
`ask' - Report the Chat request, and wait for the user to manually accept it
|
||||
`auto' - Automatically accept the request and open a new chat window
|
||||
`ignore' - Ignore incoming DCC chat requests completely."
|
||||
:group 'erc-dcc
|
||||
:type '(choice (const ask) (const auto) (const ignore)))
|
||||
|
||||
|
|
|
|||
|
|
@ -88,13 +88,13 @@ Useful to mark nicks from dangerous hosts."
|
|||
|
||||
The following values are allowed:
|
||||
|
||||
nil - do not highlight the message at all
|
||||
'keyword - highlight all instances of current nickname in message
|
||||
'nick - highlight the nick of the user who typed your nickname
|
||||
'nick-or-keyword - highlight the nick of the user who typed your nickname,
|
||||
or all instances of the current nickname if there was
|
||||
no sending user
|
||||
'all - highlight the entire message where current nickname occurs
|
||||
nil - do not highlight the message at all
|
||||
`keyword' - highlight all instances of current nickname in message
|
||||
`nick' - highlight the nick of the user who typed your nickname
|
||||
`nick-or-keyword' - highlight the nick of the user who typed your nickname,
|
||||
or all instances of the current nickname if there was
|
||||
no sending user
|
||||
`all' - highlight the entire message where current nickname occurs
|
||||
|
||||
Any other value disables highlighting of current nickname altogether."
|
||||
:group 'erc-match
|
||||
|
|
@ -110,9 +110,9 @@ See `erc-pals'.
|
|||
|
||||
The following values are allowed:
|
||||
|
||||
nil - do not highlight the message at all
|
||||
'nick - highlight pal's nickname only
|
||||
'all - highlight the entire message from pal
|
||||
nil - do not highlight the message at all
|
||||
`nick' - highlight pal's nickname only
|
||||
`all' - highlight the entire message from pal
|
||||
|
||||
Any other value disables pal highlighting altogether."
|
||||
:group 'erc-match
|
||||
|
|
@ -126,9 +126,9 @@ See `erc-fools'.
|
|||
|
||||
The following values are allowed:
|
||||
|
||||
nil - do not highlight the message at all
|
||||
'nick - highlight fool's nickname only
|
||||
'all - highlight the entire message from fool
|
||||
nil - do not highlight the message at all
|
||||
`nick' - highlight fool's nickname only
|
||||
`all' - highlight the entire message from fool
|
||||
|
||||
Any other value disables fool highlighting altogether."
|
||||
:group 'erc-match
|
||||
|
|
@ -142,8 +142,8 @@ See variable `erc-keywords'.
|
|||
|
||||
The following values are allowed:
|
||||
|
||||
'keyword - highlight keyword only
|
||||
'all - highlight the entire message containing keyword
|
||||
`keyword' - highlight keyword only
|
||||
`all' - highlight the entire message containing keyword
|
||||
|
||||
Any other value disables keyword highlighting altogether."
|
||||
:group 'erc-match
|
||||
|
|
@ -157,8 +157,8 @@ See `erc-dangerous-hosts'.
|
|||
|
||||
The following values are allowed:
|
||||
|
||||
'nick - highlight nick from dangerous-host only
|
||||
'all - highlight the entire message from dangerous-host
|
||||
`nick' - highlight nick from dangerous-host only
|
||||
`all' - highlight the entire message from dangerous-host
|
||||
|
||||
Any other value disables dangerous-host highlighting altogether."
|
||||
:group 'erc-match
|
||||
|
|
|
|||
|
|
@ -83,11 +83,11 @@ communication with those Services."
|
|||
|
||||
Possible settings are:.
|
||||
|
||||
'autodetect - Identify when the real Nickserv sends an identify request.
|
||||
'nick-change - Identify when you log in or change your nickname.
|
||||
'both - Do the former if the network supports it, otherwise do the
|
||||
latter.
|
||||
nil - Disables automatic Nickserv identification.
|
||||
`autodetect' - Identify when the real Nickserv sends an identify request.
|
||||
`nick-change' - Identify when you log in or change your nickname.
|
||||
`both' - Do the former if the network supports it, otherwise do the
|
||||
latter.
|
||||
nil - Disables automatic Nickserv identification.
|
||||
|
||||
You can also use M-x erc-nickserv-identify-mode to change modes."
|
||||
:group 'erc-services
|
||||
|
|
@ -447,4 +447,3 @@ When called interactively, read the password using `read-passwd'."
|
|||
;; indent-tabs-mode: t
|
||||
;; tab-width: 8
|
||||
;; End:
|
||||
|
||||
|
|
|
|||
|
|
@ -48,9 +48,9 @@
|
|||
(defcustom erc-speedbar-sort-users-type 'activity
|
||||
"How channel nicknames are sorted.
|
||||
|
||||
'activity - Sort users by channel activity
|
||||
'alphabetical - Sort users alphabetically
|
||||
nil - Do not sort users"
|
||||
`activity' - Sort users by channel activity
|
||||
`alphabetical' - Sort users alphabetically
|
||||
nil - Do not sort users"
|
||||
:group 'erc-speedbar
|
||||
:type '(choice (const :tag "Sort users by channel activity" activity)
|
||||
(const :tag "Sort users alphabetically" alphabetical)
|
||||
|
|
@ -364,4 +364,3 @@ The INDENT level is ignored."
|
|||
;; indent-tabs-mode: t
|
||||
;; tab-width: 8
|
||||
;; End:
|
||||
|
||||
|
|
|
|||
|
|
@ -248,10 +248,10 @@ The effect may be disabled by setting this variable to nil."
|
|||
Setting this variable only has effects in GNU Emacs versions above 21.3.
|
||||
|
||||
Choices are:
|
||||
'before-modes - add to the beginning of `mode-line-modes',
|
||||
'after-modes - add to the end of `mode-line-modes',
|
||||
t - add to the end of `global-mode-string',
|
||||
nil - don't add to mode line."
|
||||
`before-modes' - add to the beginning of `mode-line-modes',
|
||||
`after-modes' - add to the end of `mode-line-modes',
|
||||
t - add to the end of `global-mode-string',
|
||||
nil - don't add to mode line."
|
||||
:group 'erc-track
|
||||
:type '(choice (const :tag "Just before mode information" before-modes)
|
||||
(const :tag "Just after mode information" after-modes)
|
||||
|
|
|
|||
|
|
@ -230,7 +230,7 @@ prompt you for it.")
|
|||
(defcustom erc-hide-prompt nil
|
||||
"If non-nil, do not display the prompt for commands.
|
||||
|
||||
\(A command is any input starting with a '/').
|
||||
\(A command is any input starting with a ‘/’).
|
||||
|
||||
See also the variables `erc-prompt' and `erc-command-indicator'."
|
||||
:group 'erc-display
|
||||
|
|
@ -667,7 +667,7 @@ See also the variable `erc-prompt'."
|
|||
"Indicator used by ERC for showing commands.
|
||||
|
||||
If non-nil, this will be used in the ERC buffer to indicate
|
||||
commands (i.e., input starting with a '/').
|
||||
commands (i.e., input starting with a ‘/’).
|
||||
|
||||
If nil, the prompt will be constructed from the variable `erc-prompt'."
|
||||
:group 'erc-display
|
||||
|
|
@ -696,8 +696,8 @@ See `erc-notice-prefix'.
|
|||
|
||||
The following values are allowed:
|
||||
|
||||
'prefix - highlight notice prefix only
|
||||
'all - highlight the entire notice
|
||||
`prefix' - highlight notice prefix only
|
||||
`all' - highlight the entire notice
|
||||
|
||||
Any other value disables notice's highlighting altogether."
|
||||
:group 'erc-display
|
||||
|
|
@ -1258,13 +1258,13 @@ erc-NAME-enable, and erc-NAME-disable.
|
|||
|
||||
Example:
|
||||
|
||||
;;;###autoload (autoload 'erc-replace-mode \"erc-replace\")
|
||||
;;;###autoload (autoload \\='erc-replace-mode \"erc-replace\")
|
||||
(define-erc-module replace nil
|
||||
\"This mode replaces incoming text according to `erc-replace-alist'.\"
|
||||
((add-hook 'erc-insert-modify-hook
|
||||
'erc-replace-insert))
|
||||
((remove-hook 'erc-insert-modify-hook
|
||||
'erc-replace-insert)))"
|
||||
((add-hook \\='erc-insert-modify-hook
|
||||
\\='erc-replace-insert))
|
||||
((remove-hook \\='erc-insert-modify-hook
|
||||
\\='erc-replace-insert)))"
|
||||
(declare (doc-string 3))
|
||||
(let* ((sn (symbol-name name))
|
||||
(mode (intern (format "erc-%s-mode" (downcase sn))))
|
||||
|
|
@ -1476,11 +1476,11 @@ Defaults to the server buffer."
|
|||
|
||||
The available choices are:
|
||||
|
||||
'window - in another window,
|
||||
'window-noselect - in another window, but don't select that one,
|
||||
'frame - in another frame,
|
||||
'bury - bury it in a new buffer,
|
||||
'buffer - in place of the current buffer,
|
||||
`window' - in another window,
|
||||
`window-noselect' - in another window, but don't select that one,
|
||||
`frame' - in another frame,
|
||||
`bury' - bury it in a new buffer,
|
||||
`buffer' - in place of the current buffer,
|
||||
any other value - in place of the current buffer."
|
||||
:group 'erc-buffers
|
||||
:type '(choice (const :tag "Split window and select" window)
|
||||
|
|
@ -2789,7 +2789,7 @@ this function from interpreting the line as a command."
|
|||
(defun erc-cmd-SAY (line)
|
||||
"Send LINE to the current query or channel as a message, not a command.
|
||||
|
||||
Use this when you want to send a message with a leading '/'. Note
|
||||
Use this when you want to send a message with a leading ‘/’. Note
|
||||
that since multi-line messages are never a command, you don't
|
||||
need this when pasting multiple lines of text."
|
||||
(if (string-match "^\\s-*$" line)
|
||||
|
|
@ -3119,9 +3119,9 @@ a script after exceeding the flood threshold."
|
|||
(erc-display-message nil 'error (current-buffer)
|
||||
'cannot-read-file ?f file))
|
||||
(t
|
||||
(message "Loading \'%s\'..." file)
|
||||
(message "Loading ‘%s’..." file)
|
||||
(erc-load-script file)
|
||||
(message "Loading \'%s\'...done" file))))
|
||||
(message "Loading ‘%s’...done" file))))
|
||||
t)
|
||||
(t nil)))
|
||||
|
||||
|
|
@ -4466,7 +4466,7 @@ See also: `erc-echo-notice-in-user-buffers',
|
|||
"Handle the logging in process of connection."
|
||||
(unless erc-logged-in
|
||||
(setq erc-logged-in t)
|
||||
(message "Logging in as \'%s\'... done" (erc-current-nick))
|
||||
(message "Logging in as ‘%s’... done" (erc-current-nick))
|
||||
;; execute a startup script
|
||||
(let ((f (erc-select-startup-file)))
|
||||
(when f
|
||||
|
|
@ -6512,7 +6512,7 @@ All windows are opened in the current frame."
|
|||
. "\n\nConnection failed! Not re-establishing connection.\n")
|
||||
(finished . "\n\n*** ERC finished ***\n")
|
||||
(terminated . "\n\n*** ERC terminated: %e\n")
|
||||
(login . "Logging in as \'%n\'...")
|
||||
(login . "Logging in as ‘%n’...")
|
||||
(nick-in-use . "%n is in use. Choose new nickname: ")
|
||||
(nick-too-long
|
||||
. "WARNING: Nick length (%i) exceeds max NICKLEN(%l) defined by server")
|
||||
|
|
|
|||
|
|
@ -71,7 +71,7 @@ they lack somewhat in feel from the typical shell equivalents."
|
|||
"The function used to normalize the value of Eshell's `pwd'.
|
||||
The value returned by `pwd' is also used when recording the
|
||||
last-visited directory in the last-dir-ring, so it will affect the
|
||||
form of the list used by 'cd ='."
|
||||
form of the list used by `cd ='."
|
||||
:type '(radio (function-item file-truename)
|
||||
(function-item expand-file-name)
|
||||
(function-item identity)
|
||||
|
|
@ -115,7 +115,7 @@ calls \"ls\" and references `eshell-last-arguments'."
|
|||
:group 'eshell-dirs)
|
||||
|
||||
(defcustom eshell-pushd-tohome nil
|
||||
"If non-nil, make pushd with no arg behave as 'pushd ~' (like `cd').
|
||||
"If non-nil, make pushd with no arg behave as `pushd ~' (like `cd').
|
||||
This mirrors the optional behavior of tcsh."
|
||||
:type 'boolean
|
||||
:group 'eshell-dirs)
|
||||
|
|
@ -150,11 +150,11 @@ If it is nil, the last-dir-ring will not be written to disk."
|
|||
"If non-nil, the size of the directory history ring.
|
||||
This ring is added to every time `cd' or `pushd' is used. It simply
|
||||
stores the most recent directory locations Eshell has been in. To
|
||||
return to the most recent entry, use 'cd -' (equivalent to 'cd -0').
|
||||
To return to an older entry, use 'cd -N', where N is an integer less
|
||||
return to the most recent entry, use `cd -' (equivalent to `cd -0').
|
||||
To return to an older entry, use `cd -N', where N is an integer less
|
||||
than `eshell-last-dir-ring-size'. To return to the last directory
|
||||
matching a particular regexp, use 'cd =REGEXP'. To display the
|
||||
directory history list, use 'cd ='.
|
||||
matching a particular regexp, use `cd =REGEXP'. To display the
|
||||
directory history list, use `cd ='.
|
||||
|
||||
This mechanism is very similar to that provided by `pushd', except
|
||||
it's far more automatic. `pushd' allows the user to decide which
|
||||
|
|
@ -313,7 +313,7 @@ Thus, this does not include the current directory.")
|
|||
path)))
|
||||
|
||||
(defun eshell-expand-multiple-dots (path)
|
||||
"Convert '...' to '../..', '....' to '../../..', etc..
|
||||
"Convert `...' to `../..', `....' to `../../..', etc..
|
||||
|
||||
With the following piece of advice, you can make this functionality
|
||||
available in most of Emacs, with the exception of filename completion
|
||||
|
|
@ -364,7 +364,7 @@ in the minibuffer:
|
|||
(let ((curdir (eshell/pwd)))
|
||||
(if (string-match path curdir)
|
||||
(setq path (replace-match subpath nil nil curdir))
|
||||
(error "Path substring '%s' not found" path))))
|
||||
(error "Path substring ‘%s’ not found" path))))
|
||||
((and path (string-match "^-\\([0-9]*\\)$" path))
|
||||
(let ((index (match-string 1 path)))
|
||||
(setq path
|
||||
|
|
|
|||
|
|
@ -193,7 +193,7 @@ The basic syntax is:
|
|||
* .* matches any group of characters (or none)
|
||||
# * matches zero or more occurrences of preceding
|
||||
## + matches one or more occurrences of preceding
|
||||
(x) \(x\) makes 'x' a regular expression group
|
||||
(x) \(x\) makes ‘x’ a regular expression group
|
||||
| \| boolean OR within an expression group
|
||||
[a-b] [a-b] matches a character or range
|
||||
[^a] [^a] excludes a character or range
|
||||
|
|
@ -220,7 +220,7 @@ resulting regular expression."
|
|||
matched-in-pattern (1+ op-begin))
|
||||
(let ((xlat (assq op-char eshell-glob-translate-alist)))
|
||||
(if (not xlat)
|
||||
(error "Unrecognized globbing character '%c'" op-char)
|
||||
(error "Unrecognized globbing character ‘%c’" op-char)
|
||||
(if (stringp (cdr xlat))
|
||||
(setq regexp (concat regexp (cdr xlat))
|
||||
matched-in-pattern (1+ op-begin))
|
||||
|
|
|
|||
|
|
@ -193,7 +193,7 @@ EXAMPLES:
|
|||
***/*~f*(-/) recursively (though not traversing symlinks),
|
||||
find all directories (or symlinks referring to
|
||||
directories) whose names do not begin with f.
|
||||
e*(*Lk+50) executables 50k or larger beginning with 'e'")
|
||||
e*(*Lk+50) executables 50k or larger beginning with ‘e’")
|
||||
|
||||
(defvar eshell-modifier-help-string
|
||||
"Eshell modifier quick reference:
|
||||
|
|
@ -318,7 +318,7 @@ resultant list of strings."
|
|||
(if (and func (functionp func))
|
||||
(setq preds (eshell-add-pred-func func preds
|
||||
negate follow))
|
||||
(error "Invalid function predicate '%s'"
|
||||
(error "Invalid function predicate ‘%s’"
|
||||
(eshell-stringify func))))
|
||||
(error "Invalid function predicate")))
|
||||
((eq char ?^)
|
||||
|
|
@ -336,20 +336,20 @@ resultant list of strings."
|
|||
(cons `(lambda (lst)
|
||||
(mapcar (function ,func) lst))
|
||||
mods))
|
||||
(error "Invalid function modifier '%s'"
|
||||
(error "Invalid function modifier ‘%s’"
|
||||
(eshell-stringify func))))
|
||||
(error "Invalid function modifier")))
|
||||
((eq char ?:)
|
||||
(forward-char)
|
||||
(let ((mod (assq (char-after) eshell-modifier-alist)))
|
||||
(if (not mod)
|
||||
(error "Unknown modifier character '%c'" (char-after))
|
||||
(error "Unknown modifier character ‘%c’" (char-after))
|
||||
(forward-char)
|
||||
(setq mods (cons (eval (cdr mod)) mods)))))
|
||||
(t
|
||||
(let ((pred (assq char eshell-predicate-alist)))
|
||||
(if (not pred)
|
||||
(error "Unknown predicate character '%c'" char)
|
||||
(error "Unknown predicate character ‘%c’" char)
|
||||
(forward-char)
|
||||
(setq preds
|
||||
(eshell-add-pred-func (eval (cdr pred)) preds
|
||||
|
|
@ -451,7 +451,7 @@ resultant list of strings."
|
|||
(defun eshell-pred-file-type (type)
|
||||
"Return a test which tests that the file is of a certain TYPE.
|
||||
TYPE must be a character, and should be one of the possible options
|
||||
that 'ls -l' will show in the first column of its display. "
|
||||
that `ls -l' will show in the first column of its display. "
|
||||
(when (eq type ?%)
|
||||
(setq type (char-after))
|
||||
(if (memq type '(?b ?c))
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@ commands, as a script file."
|
|||
(defcustom eshell-login-script (expand-file-name "login" eshell-directory-name)
|
||||
"If non-nil, a file to invoke when starting up Eshell interactively.
|
||||
This file should be a file containing Eshell commands, where comment
|
||||
lines begin with '#'."
|
||||
lines begin with ‘#’."
|
||||
:type 'file
|
||||
:group 'eshell-script)
|
||||
|
||||
|
|
@ -89,7 +89,7 @@ This includes when running `eshell-command'."
|
|||
|
||||
(defun eshell-source-file (file &optional args subcommand-p)
|
||||
"Execute a series of Eshell commands in FILE, passing ARGS.
|
||||
Comments begin with '#'."
|
||||
Comments begin with ‘#’."
|
||||
(interactive "f")
|
||||
(let ((orig (point))
|
||||
(here (point-max))
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@
|
|||
;;;###autoload
|
||||
(progn
|
||||
(defgroup eshell-term nil
|
||||
"This module causes visual commands (e.g., 'vi') to be executed by
|
||||
"This module causes visual commands (e.g., `vi') to be executed by
|
||||
the `term' package, which comes with Emacs. This package handles most
|
||||
of the ANSI control codes, allowing curses-based applications to run
|
||||
within an Emacs window. The variable `eshell-visual-commands' defines
|
||||
|
|
|
|||
|
|
@ -168,10 +168,10 @@ Otherwise, Emacs will attempt to use rsh to invoke du on the remote machine."
|
|||
|
||||
(defun eshell/info (&rest args)
|
||||
"Run the info command in-frame with the same behavior as command-line `info', ie:
|
||||
'info' => goes to top info window
|
||||
'info arg1' => IF arg1 is a file, then visits arg1
|
||||
'info arg1' => OTHERWISE goes to top info window and then menu item arg1
|
||||
'info arg1 arg2' => does action for arg1 (either visit-file or menu-item) and then menu item arg2
|
||||
`info' => goes to top info window
|
||||
`info arg1' => IF arg1 is a file, then visits arg1
|
||||
`info arg1' => OTHERWISE goes to top info window and then menu item arg1
|
||||
`info arg1 arg2' => does action for arg1 (either visit-file or menu-item) and then menu item arg2
|
||||
etc."
|
||||
(eval-and-compile (require 'info))
|
||||
(let ((file (cond
|
||||
|
|
@ -579,7 +579,7 @@ Copy SOURCE to DEST, or multiple SOURCE(s) to DIRECTORY.")
|
|||
Create a link to the specified TARGET with optional LINK_NAME. If there is
|
||||
more than one TARGET, the last argument must be a directory; create links
|
||||
in DIRECTORY to each TARGET. Create hard links by default, symbolic links
|
||||
with '--symbolic'. When creating hard links, each TARGET must exist.")
|
||||
with `--symbolic'. When creating hard links, each TARGET must exist.")
|
||||
(let ((no-dereference t))
|
||||
(eshell-mvcpln-template "ln" "linking"
|
||||
(if symbolic
|
||||
|
|
|
|||
|
|
@ -237,7 +237,7 @@ Point is left at the end of the arguments."
|
|||
(let* ((here (point))
|
||||
(arg (eshell-parse-argument)))
|
||||
(if (= (point) here)
|
||||
(error "Failed to parse argument '%s'"
|
||||
(error "Failed to parse argument `%s'"
|
||||
(buffer-substring here (point-max))))
|
||||
(and arg (nconc args (list arg)))))))
|
||||
(throw 'eshell-incomplete (if (listp delim)
|
||||
|
|
@ -357,13 +357,13 @@ after are both returned."
|
|||
(goto-char (1+ end)))))))
|
||||
|
||||
(defun eshell-parse-special-reference ()
|
||||
"Parse a special syntax reference, of the form '#<args>'.
|
||||
"Parse a special syntax reference, of the form `#<args>'.
|
||||
|
||||
args := `type' `whitespace' `arbitrary-args' | `arbitrary-args'
|
||||
type := \"buffer\" or \"process\"
|
||||
arbitrary-args := any string of characters.
|
||||
|
||||
If the form has no 'type', the syntax is parsed as if 'type' were
|
||||
If the form has no `type', the syntax is parsed as if `type' were
|
||||
\"buffer\"."
|
||||
(when (and (not eshell-current-argument)
|
||||
(not eshell-current-quoted)
|
||||
|
|
|
|||
|
|
@ -165,13 +165,13 @@ In order to substitute an alternate command form for execution, the
|
|||
hook function should throw it using the tag `eshell-replace-command'.
|
||||
For example:
|
||||
|
||||
(add-hook 'eshell-named-command-hook 'subst-with-cd)
|
||||
(add-hook \\='eshell-named-command-hook \\='subst-with-cd)
|
||||
(defun subst-with-cd (command args)
|
||||
(throw 'eshell-replace-command
|
||||
(throw \\='eshell-replace-command
|
||||
(eshell-parse-command \"cd\" args)))
|
||||
|
||||
Although useless, the above code will cause any non-glob, non-Lisp
|
||||
command (i.e., 'ls' as opposed to '*ls' or '(ls)') to be replaced by a
|
||||
command (i.e., `ls' as opposed to `*ls' or `(ls)') to be replaced by a
|
||||
call to `cd' using the arguments that were passed to the function."
|
||||
:type 'hook
|
||||
:group 'eshell-cmd)
|
||||
|
|
@ -243,7 +243,7 @@ return non-nil if the command is complex."
|
|||
"If non-nil, enable Eshell debugging code.
|
||||
This is slow, and only useful for debugging problems with Eshell.
|
||||
If you change this without using customize after Eshell has loaded,
|
||||
you must re-load 'esh-cmd.el'."
|
||||
you must re-load `esh-cmd.el'."
|
||||
:initialize 'custom-initialize-default
|
||||
:set (lambda (symbol value)
|
||||
(set symbol value)
|
||||
|
|
@ -390,7 +390,7 @@ hooks should be run before and after the command."
|
|||
(macroexp-progn commands))))
|
||||
|
||||
(defun eshell-debug-command (tag subform)
|
||||
"Output a debugging message to '*eshell last cmd*'."
|
||||
"Output a debugging message to `*eshell last cmd*'."
|
||||
(let ((buf (get-buffer-create "*eshell last cmd*"))
|
||||
(text (eshell-stringify eshell-current-command)))
|
||||
(with-current-buffer buf
|
||||
|
|
@ -424,14 +424,14 @@ hooks should be run before and after the command."
|
|||
(setq terms (cdr terms))))
|
||||
|
||||
(defun eshell-rewrite-sexp-command (terms)
|
||||
"Rewrite a sexp in initial position, such as '(+ 1 2)'."
|
||||
"Rewrite a sexp in initial position, such as `(+ 1 2)'."
|
||||
;; this occurs when a Lisp expression is in first position
|
||||
(if (and (listp (car terms))
|
||||
(eq (caar terms) 'eshell-command-to-value))
|
||||
(car (cdar terms))))
|
||||
|
||||
(defun eshell-rewrite-initial-subcommand (terms)
|
||||
"Rewrite a subcommand in initial position, such as '{+ 1 2}'."
|
||||
"Rewrite a subcommand in initial position, such as `{+ 1 2}'."
|
||||
(if (and (listp (car terms))
|
||||
(eq (caar terms) 'eshell-as-subcommand))
|
||||
(car terms)))
|
||||
|
|
@ -634,7 +634,7 @@ For an external command, it means an exit code of 0."
|
|||
final))
|
||||
|
||||
(defun eshell-parse-subcommand-argument ()
|
||||
"Parse a subcommand argument of the form '{command}'."
|
||||
"Parse a subcommand argument of the form `{command}'."
|
||||
(if (and (not eshell-current-argument)
|
||||
(not eshell-current-quoted)
|
||||
(eq (char-after) ?\{)
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ loaded into memory, thus beginning a new process."
|
|||
This can be useful on systems like Windows, where the operating system
|
||||
doesn't support the execution bit for shell scripts; or in cases where
|
||||
you want to associate an interpreter with a particular kind of script
|
||||
file, but the language won't let you but a '#!' interpreter line in
|
||||
file, but the language won't let you but a `#!' interpreter line in
|
||||
the file, and you don't want to make it executable since nothing else
|
||||
but Eshell will be able to understand
|
||||
`eshell-interpreter-alist'."
|
||||
|
|
|
|||
|
|
@ -182,7 +182,7 @@ not be added to this variable."
|
|||
#'eshell--apply-redirections))
|
||||
|
||||
(defun eshell-parse-redirection ()
|
||||
"Parse an output redirection, such as '2>'."
|
||||
"Parse an output redirection, such as `2>'."
|
||||
(if (and (not eshell-current-quoted)
|
||||
(looking-at "\\([0-9]\\)?\\(<\\|>+\\)&?\\([0-9]\\)?\\s-*"))
|
||||
(if eshell-current-argument
|
||||
|
|
|
|||
|
|
@ -178,9 +178,9 @@ This code doesn't really need to be macro expanded everywhere."
|
|||
(if extcmd
|
||||
(setq usage
|
||||
(concat usage
|
||||
(format "
|
||||
(format-message "
|
||||
This command is implemented in Lisp. If an unrecognized option is
|
||||
passed to this command, the external version '%s'
|
||||
passed to this command, the external version ‘%s’
|
||||
will be called instead." extcmd)))))
|
||||
(throw 'eshell-usage usage)))
|
||||
|
||||
|
|
|
|||
|
|
@ -116,7 +116,7 @@
|
|||
(require 'ring)
|
||||
|
||||
(defgroup eshell-var nil
|
||||
"Variable interpolation is introduced whenever the '$' character
|
||||
"Variable interpolation is introduced whenever the ‘$’ character
|
||||
appears unquoted in any argument (except when that argument is
|
||||
surrounded by single quotes). It may be used to interpolate a
|
||||
variable value, a subcommand, or even the result of a Lisp form."
|
||||
|
|
@ -148,7 +148,7 @@ variable value, a subcommand, or even the result of a Lisp form."
|
|||
|
||||
(defcustom eshell-variable-name-regexp "[A-Za-z0-9_-]+"
|
||||
"A regexp identifying what constitutes a variable name reference.
|
||||
Note that this only applies for '$NAME'. If the syntax '$<NAME>' is
|
||||
Note that this only applies for `$NAME'. If the syntax `$<NAME>' is
|
||||
used, then NAME can contain any character, including angle brackets,
|
||||
if they are quoted with a backslash."
|
||||
:type 'regexp
|
||||
|
|
@ -186,12 +186,12 @@ if they are quoted with a backslash."
|
|||
It is very similar in concept to what `eshell-user-aliases-list' does
|
||||
for commands. Each member of this defines the name of a command,
|
||||
and the Lisp value to return for that variable if it is accessed
|
||||
via the syntax '$NAME'.
|
||||
via the syntax `$NAME'.
|
||||
|
||||
If the value is a function, that function will be called with two
|
||||
arguments: the list of the indices that was used in the reference, and
|
||||
whether the user is requesting the length of the ultimate element.
|
||||
For example, a reference of '$NAME[10][20]' would result in the
|
||||
For example, a reference of `$NAME[10][20]' would result in the
|
||||
function for alias `NAME' being called (assuming it were aliased to a
|
||||
function), and the arguments passed to this function would be the list
|
||||
'(10 20)', and nil."
|
||||
|
|
@ -231,7 +231,7 @@ function), and the arguments passed to this function would be the list
|
|||
'eshell-complete-variable-assignment nil t)))
|
||||
|
||||
(defun eshell-handle-local-variables ()
|
||||
"Allow for the syntax 'VAR=val <command> <args>'."
|
||||
"Allow for the syntax `VAR=val <command> <args>'."
|
||||
;; strip off any null commands, which can only happen if a variable
|
||||
;; evaluates to nil, such as "$var x", where `var' is nil. The
|
||||
;; command name in that case becomes `x', for compatibility with
|
||||
|
|
|
|||
|
|
@ -189,7 +189,7 @@ from the Local Variables list ignoring the input argument VALUE."
|
|||
(unless (let ((case-fold-search t))
|
||||
(goto-char beg)
|
||||
(search-forward "Local Variables:" nil t))
|
||||
(throw 'exit (message "Can't add file-local variables"))))
|
||||
(throw 'exit (message "Can’t add file-local variables"))))
|
||||
|
||||
;; prefix is what comes before "local variables:" in its line.
|
||||
;; suffix is what comes after "local variables:" in its line.
|
||||
|
|
|
|||
|
|
@ -416,7 +416,7 @@ Possible uses: If you don't want to save `filesets-data' in your normal
|
|||
configuration file, you can add a something like this
|
||||
|
||||
\(lambda ()
|
||||
\(insert (format \"(setq-default filesets-data '%S)\"
|
||||
\(insert (format \"(setq-default filesets-data \\='%S)\"
|
||||
filesets-data))
|
||||
\(newline 2))
|
||||
|
||||
|
|
@ -975,7 +975,7 @@ being an association list with the fields:
|
|||
|
||||
:pattern DIR PATTERN ... a base directory and a regexp matching
|
||||
files in that directory. Usually,
|
||||
PATTERN has the form '^REGEXP$'. Unlike
|
||||
PATTERN has the form `^REGEXP$'. Unlike
|
||||
:tree, this form does not descend
|
||||
recursively into subdirectories.
|
||||
|
||||
|
|
@ -1799,7 +1799,7 @@ User will be queried, if no fileset name is provided."
|
|||
(current-buffer)))
|
||||
(name (or name
|
||||
(completing-read
|
||||
(format "Add '%s' to fileset: " buffer)
|
||||
(format-message "Add ‘%s’ to fileset: " buffer)
|
||||
filesets-data nil)))
|
||||
(entry (or (assoc name filesets-data)
|
||||
(when (y-or-n-p
|
||||
|
|
@ -1819,13 +1819,13 @@ User will be queried, if no fileset name is provided."
|
|||
:test 'filesets-files-equalp)))
|
||||
(cond
|
||||
(inlist
|
||||
(message "Filesets: '%s' is already in '%s'" this name))
|
||||
(message "Filesets: ‘%s’ is already in ‘%s’" this name))
|
||||
((and (equal (filesets-entry-mode entry) ':files)
|
||||
this)
|
||||
(filesets-entry-set-files entry (cons this files) t)
|
||||
(filesets-set-config name 'filesets-data filesets-data))
|
||||
(t
|
||||
(message "Filesets: Can't add '%s' to fileset '%s'" this name)))))))
|
||||
(message "Filesets: Can't add ‘%s’ to fileset ‘%s’" this name)))))))
|
||||
|
||||
(defun filesets-remove-buffer (&optional name buffer)
|
||||
"Remove BUFFER (or current buffer) to fileset NAME.
|
||||
|
|
@ -1835,7 +1835,7 @@ User will be queried, if no fileset name is provided."
|
|||
(current-buffer)))
|
||||
(name (or name
|
||||
(completing-read
|
||||
(format "Remove '%s' from fileset: " buffer)
|
||||
(format-message "Remove ‘%s’ from fileset: " buffer)
|
||||
filesets-data nil t)))
|
||||
(entry (assoc name filesets-data)))
|
||||
(if entry
|
||||
|
|
@ -1848,7 +1848,7 @@ User will be queried, if no fileset name is provided."
|
|||
(let ((new (list (cons ':files (delete (car inlist) files)))))
|
||||
(setcdr entry new)
|
||||
(filesets-set-config name 'filesets-data filesets-data))
|
||||
(message "Filesets: Can't remove '%s' from fileset '%s'"
|
||||
(message "Filesets: Can't remove ‘%s’ from fileset ‘%s’"
|
||||
this
|
||||
name))))))
|
||||
|
||||
|
|
@ -2437,38 +2437,38 @@ fileset thinks this is necessary or not."
|
|||
(filesets-menu-cache-file-load))
|
||||
|
||||
(defun filesets-update-pre010505 ()
|
||||
(let ((msg
|
||||
(let ((msg (format-message
|
||||
"Filesets: manual editing of user data required!
|
||||
|
||||
Filesets has detected that you were using an older version before,
|
||||
which requires some manual updating. Type 'y' for editing the startup
|
||||
which requires some manual updating. Type ‘y’ for editing the startup
|
||||
file now.
|
||||
|
||||
The layout of `filesets-data' has changed. Please delete your cache file
|
||||
The layout of ‘filesets-data’ has changed. Please delete your cache file
|
||||
and edit your startup file as shown below:
|
||||
|
||||
1. `filesets-data': Edit all :pattern filesets in your startup file and
|
||||
1. ‘filesets-data’: Edit all :pattern filesets in your startup file and
|
||||
transform all entries as shown in this example:
|
||||
|
||||
\(\"Test\" (:pattern \"~/dir/^pattern$\"))
|
||||
--> \(\"Test\" (:pattern \"~/dir/\" \"^pattern$\"))
|
||||
|
||||
2. `filesets-data': Change all occurrences of \":document\" to \":ingroup\":
|
||||
2. ‘filesets-data’: Change all occurrences of \":document\" to \":ingroup\":
|
||||
|
||||
\(\(\"Test\" \(:document \"~/dir/file\"))
|
||||
--> \(\(\"Test\" \(:ingroup \"~/dir/file\"))
|
||||
|
||||
3. `filesets-subdocument-patterns': If you already modified the variable
|
||||
previously called `filesets-subdocument-patterns', change its name to
|
||||
`filesets-ingroup-patterns'.
|
||||
3. ‘filesets-subdocument-patterns’: If you already modified the variable
|
||||
previously called ‘filesets-subdocument-patterns’, change its name to
|
||||
‘filesets-ingroup-patterns’.
|
||||
|
||||
4. `filesets-menu-cache-contents': If you already modified this
|
||||
variable, change the entry `filesets-subdocument--cache' to
|
||||
`filesets-ingroup-cache'.
|
||||
4. ‘filesets-menu-cache-contents’: If you already modified this
|
||||
variable, change the entry ‘filesets-subdocument--cache’ to
|
||||
‘filesets-ingroup-cache’.
|
||||
|
||||
5. Type M-x filesets-update-cleanup and restart Emacs.
|
||||
|
||||
We apologize for the inconvenience."))
|
||||
We apologize for the inconvenience.")))
|
||||
(let* ((cf (or custom-file user-init-file)))
|
||||
(switch-to-buffer-other-frame "*Filesets update*")
|
||||
(insert msg)
|
||||
|
|
|
|||
|
|
@ -140,8 +140,8 @@ the string will be quoted).")
|
|||
"Initiate the building of a find command.
|
||||
For example:
|
||||
|
||||
\(find-cmd '\(prune \(name \".svn\" \".git\" \".CVS\"\)\)
|
||||
'\(and \(or \(name \"*.pl\" \"*.pm\" \"*.t\"\)
|
||||
\(find-cmd \\='\(prune \(name \".svn\" \".git\" \".CVS\"\)\)
|
||||
\\='\(and \(or \(name \"*.pl\" \"*.pm\" \"*.t\"\)
|
||||
\(mtime \"+1\"\)\)
|
||||
\(fstype \"nfs\" \"ufs\"\)\)\)\)
|
||||
|
||||
|
|
@ -161,7 +161,7 @@ result is a string that should be ready for the command line."
|
|||
"And FORMs together, so:
|
||||
\(and \(mtime \"+1\"\) \(name \"something\"\)\)
|
||||
will produce:
|
||||
find . \\\( -mtime '+1' -and -name 'something' \\\)"
|
||||
find . \\\( -mtime +1 -and -name something \\\)"
|
||||
(if (< (length form) 2)
|
||||
(find-to-string (car form))
|
||||
(concat "\\( "
|
||||
|
|
@ -172,7 +172,7 @@ will produce:
|
|||
"Or FORMs together, so:
|
||||
\(or \(mtime \"+1\"\) \(name \"something\"\)\)
|
||||
will produce:
|
||||
find . \\\( -mtime '+1' -or -name 'something' \\\)"
|
||||
find . \\\( -mtime +1 -or -name something \\\)"
|
||||
(if (< (length form) 2)
|
||||
(find-to-string (car form))
|
||||
(concat "\\( "
|
||||
|
|
@ -183,19 +183,19 @@ will produce:
|
|||
"Or FORMs together and prefix with a -not, so:
|
||||
\(not \(mtime \"+1\"\) \(name \"something\"\)\)
|
||||
will produce:
|
||||
-not \\\( -mtime '+1' -or -name 'something' \\\)
|
||||
-not \\\( -mtime +1 -or -name something \\\)
|
||||
If you wanted the FORMs -and(ed) together instead then this would
|
||||
suffice:
|
||||
\(not \(and \(mtime \"+1\"\) \(name \"something\"\)\)\)"
|
||||
(concat "-not " (find-or (mapcar #'find-to-string form))))
|
||||
|
||||
(defun find-prune (form)
|
||||
"-or together FORMs postfix '-prune' and then -or that with a
|
||||
"-or together FORMs postfix `-prune' and then -or that with a
|
||||
-true, so:
|
||||
\(prune \(name \".svn\" \".git\"\)\) \(name \"*.pm\"\)
|
||||
\(\(prune \(name \".svn\" \".git\"\)\) \(name \"*.pm\"\)\)
|
||||
will produce (unwrapped):
|
||||
\\\( \\\( \\\( -name '.svn' -or -name '.git' \\\) /
|
||||
-prune -or -true \\\) -and -name '*.pm' \\\)"
|
||||
\\\( \\\( \\\( -name .svn -or -name .git \\\) /
|
||||
-prune -or -true \\\) -and -name *.pm \\\)"
|
||||
(find-or
|
||||
(list
|
||||
(concat (find-or (mapcar #'find-to-string form)) (find-generic "prune"))
|
||||
|
|
@ -209,7 +209,7 @@ args that OPTION can receive and ARGS are the arguments for OPTION.
|
|||
If DONT-QUOTE is non-nil, arguments are quoted for passing them to
|
||||
the shell."
|
||||
(when (and (numberp argcount) (< (length args) argcount))
|
||||
(error "'%s' needs at least %d arguments" option argcount))
|
||||
(error "‘%s’ needs at least %d arguments" option argcount))
|
||||
(let ((oper (or oper 'find-or)))
|
||||
(if (and args (length args))
|
||||
(funcall oper (mapcar (lambda (x)
|
||||
|
|
@ -247,7 +247,7 @@ them into valid switches. The result is -and(ed) together."
|
|||
(find-to-string
|
||||
(find-generic option oper argcnt (cdr form) dont-quote))))
|
||||
(t
|
||||
(error "Sorry I don't know how to handle '%s'" (car form))))))))
|
||||
(error "Sorry I don't know how to handle ‘%s’" (car form))))))))
|
||||
|
||||
(provide 'find-cmd)
|
||||
|
||||
|
|
|
|||
|
|
@ -238,7 +238,7 @@ and run Dired on those files.
|
|||
PATTERN is a shell wildcard (not an Emacs regexp) and need not be quoted.
|
||||
The default command run (after changing into DIR) is
|
||||
|
||||
find . -name 'PATTERN' -ls
|
||||
find . -name \\='PATTERN\\=' -ls
|
||||
|
||||
See `find-name-arg' to customize the arguments."
|
||||
(interactive
|
||||
|
|
|
|||
|
|
@ -393,7 +393,7 @@ FILE should be in a form suitable for passing to `locate-library'."
|
|||
(if (locate-library (match-string 1))
|
||||
(make-text-button (match-beginning 1) (match-end 1)
|
||||
'xref (match-string-no-properties 1)
|
||||
'help-echo "Read this file's commentary"
|
||||
'help-echo "Read this file’s commentary"
|
||||
:type 'finder-xref)))
|
||||
(goto-char (point-min))
|
||||
(setq buffer-read-only t)
|
||||
|
|
|
|||
|
|
@ -106,7 +106,7 @@ fontifying different parts of buffer text, use \\[customize-face].
|
|||
You can enable Font Lock mode in any major mode automatically by turning on in
|
||||
the major mode's hook. For example, put in your ~/.emacs:
|
||||
|
||||
(add-hook 'c-mode-hook 'turn-on-font-lock)
|
||||
(add-hook \\='c-mode-hook \\='turn-on-font-lock)
|
||||
|
||||
Alternatively, you can use Global Font Lock mode to automagically turn on Font
|
||||
Lock mode in buffers whose major mode supports it and whose major mode is one
|
||||
|
|
|
|||
|
|
@ -696,12 +696,12 @@ pass nil for MODE and add the call to c-mode-hook.
|
|||
|
||||
For example:
|
||||
|
||||
(add-hook 'c-mode-hook
|
||||
(add-hook \\='c-mode-hook
|
||||
(lambda ()
|
||||
(font-lock-add-keywords nil
|
||||
'((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 'font-lock-warning-face prepend)
|
||||
\\='((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 \\='font-lock-warning-face prepend)
|
||||
(\"\\\\\\=<\\\\(and\\\\|or\\\\|not\\\\)\\\\\\=>\" .
|
||||
'font-lock-keyword-face)))))
|
||||
\\='font-lock-keyword-face)))))
|
||||
|
||||
The above procedure may fail to add keywords to derived modes if
|
||||
some involved major mode does not follow the standard conventions.
|
||||
|
|
|
|||
|
|
@ -577,25 +577,25 @@ port keys.
|
|||
|
||||
Here's an example:
|
||||
|
||||
\(let ((auth-source-creation-defaults '((user . \"defaultUser\")
|
||||
\(let ((auth-source-creation-defaults \\='((user . \"defaultUser\")
|
||||
(A . \"default A\"))))
|
||||
(auth-source-search :host \"mine\" :type 'netrc :max 1
|
||||
(auth-source-search :host \"mine\" :type \\='netrc :max 1
|
||||
:P \"pppp\" :Q \"qqqq\"
|
||||
:create t))
|
||||
|
||||
which says:
|
||||
|
||||
\"Search for any entry matching host 'mine' in backends of type
|
||||
'netrc', maximum one result.
|
||||
\"Search for any entry matching host `mine' in backends of type
|
||||
`netrc', maximum one result.
|
||||
|
||||
Create a new entry if you found none. The netrc backend will
|
||||
automatically require host, user, and port. The host will be
|
||||
'mine'. We prompt for the user with default 'defaultUser' and
|
||||
`mine'. We prompt for the user with default `defaultUser' and
|
||||
for the port without a default. We will not prompt for A, Q,
|
||||
or P. The resulting token will only have keys user, host, and
|
||||
port.\"
|
||||
|
||||
:create '(A B C) also means to create a token if possible.
|
||||
:create \\='(A B C) also means to create a token if possible.
|
||||
|
||||
The behavior is like :create t but if the list contains any
|
||||
parameter, that parameter will be required in the resulting
|
||||
|
|
@ -604,32 +604,32 @@ search parameters or from user input. If any queries are needed,
|
|||
the alist `auth-source-creation-defaults' will be checked for the
|
||||
default value. If the user, host, or port are missing, the alist
|
||||
`auth-source-creation-prompts' will be used to look up the
|
||||
prompts IN THAT ORDER (so the 'user prompt will be queried first,
|
||||
then 'host, then 'port, and finally 'secret). Each prompt string
|
||||
prompts IN THAT ORDER (so the `user' prompt will be queried first,
|
||||
then `host', then `port', and finally `secret'). Each prompt string
|
||||
can use %u, %h, and %p to show the user, host, and port.
|
||||
|
||||
Here's an example:
|
||||
|
||||
\(let ((auth-source-creation-defaults '((user . \"defaultUser\")
|
||||
\(let ((auth-source-creation-defaults \\='((user . \"defaultUser\")
|
||||
(A . \"default A\")))
|
||||
(auth-source-creation-prompts
|
||||
'((password . \"Enter IMAP password for %h:%p: \"))))
|
||||
(auth-source-search :host '(\"nonesuch\" \"twosuch\") :type 'netrc :max 1
|
||||
\\='((password . \"Enter IMAP password for %h:%p: \"))))
|
||||
(auth-source-search :host \\='(\"nonesuch\" \"twosuch\") :type \\='netrc :max 1
|
||||
:P \"pppp\" :Q \"qqqq\"
|
||||
:create '(A B Q)))
|
||||
:create \\='(A B Q)))
|
||||
|
||||
which says:
|
||||
|
||||
\"Search for any entry matching host 'nonesuch'
|
||||
or 'twosuch' in backends of type 'netrc', maximum one result.
|
||||
\"Search for any entry matching host `nonesuch'
|
||||
or `twosuch' in backends of type `netrc', maximum one result.
|
||||
|
||||
Create a new entry if you found none. The netrc backend will
|
||||
automatically require host, user, and port. The host will be
|
||||
'nonesuch' and Q will be 'qqqq'. We prompt for the password
|
||||
`nonesuch' and Q will be `qqqq'. We prompt for the password
|
||||
with the shown prompt. We will not prompt for Q. The resulting
|
||||
token will have keys user, host, port, A, B, and Q. It will not
|
||||
have P with any value, even though P is used in the search to
|
||||
find only entries that have P set to 'pppp'.\"
|
||||
find only entries that have P set to `pppp'.\"
|
||||
|
||||
When multiple values are specified in the search parameter, the
|
||||
user is prompted for which one. So :host (X Y Z) would ask the
|
||||
|
|
@ -650,8 +650,8 @@ property.
|
|||
Use `auth-source-delete' in ELisp code instead of calling
|
||||
`auth-source-search' directly with this parameter.
|
||||
|
||||
:type (X Y Z) will check only those backend types. 'netrc and
|
||||
'secrets are the only ones supported right now.
|
||||
:type (X Y Z) will check only those backend types. `netrc' and
|
||||
`secrets' are the only ones supported right now.
|
||||
|
||||
:max N means to try to return at most N items (defaults to 1).
|
||||
More than N items may be returned, depending on the search and
|
||||
|
|
@ -1097,7 +1097,7 @@ Note that the MAX parameter is used so we can exit the parse early."
|
|||
(if (equal item2 "machine")
|
||||
(progn
|
||||
(gnus-error 1
|
||||
"%s: Unexpected 'machine' token at line %d"
|
||||
"%s: Unexpected ‘machine’ token at line %d"
|
||||
"auth-source-netrc-parse-entries"
|
||||
(auth-source-current-line))
|
||||
(forward-line 1))
|
||||
|
|
@ -1554,23 +1554,23 @@ matching, do a wider search and narrow it down yourself.
|
|||
|
||||
You'll get back all the properties of the token as a plist.
|
||||
|
||||
Here's an example that looks for the first item in the 'Login'
|
||||
Here's an example that looks for the first item in the `Login'
|
||||
Secrets collection:
|
||||
|
||||
\(let ((auth-sources '(\"secrets:Login\")))
|
||||
\(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(auth-source-search :max 1)
|
||||
|
||||
Here's another that looks for the first item in the 'Login'
|
||||
Secrets collection whose label contains 'gnus':
|
||||
Here's another that looks for the first item in the `Login'
|
||||
Secrets collection whose label contains `gnus':
|
||||
|
||||
\(let ((auth-sources '(\"secrets:Login\")))
|
||||
\(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(auth-source-search :max 1 :label \"gnus\")
|
||||
|
||||
And this one looks for the first item in the 'Login' Secrets
|
||||
And this one looks for the first item in the `Login' Secrets
|
||||
collection that's a Google Chrome entry for the git.gnus.org site
|
||||
authentication tokens:
|
||||
|
||||
\(let ((auth-sources '(\"secrets:Login\")))
|
||||
\(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(auth-source-search :max 1 :signon_realm \"https://git.gnus.org/Git\"))
|
||||
"
|
||||
|
||||
|
|
@ -1674,8 +1674,8 @@ matching, do a wider search and narrow it down yourself.
|
|||
|
||||
You'll get back all the properties of the token as a plist.
|
||||
|
||||
The :type key is either 'macos-keychain-internet or
|
||||
'macos-keychain-generic.
|
||||
The :type key is either `macos-keychain-internet' or
|
||||
`macos-keychain-generic'.
|
||||
|
||||
For the internet keychain type, the :label key searches the
|
||||
item's labels (\"-l LABEL\" passed to \"/usr/bin/security\").
|
||||
|
|
@ -1691,19 +1691,19 @@ field), :user maps to \"-a USER\", and :port maps to \"-s PORT\".
|
|||
Here's an example that looks for the first item in the default
|
||||
generic MacOS Keychain:
|
||||
|
||||
\(let ((auth-sources '(macos-keychain-generic)))
|
||||
\(let ((auth-sources \\='(macos-keychain-generic)))
|
||||
(auth-source-search :max 1)
|
||||
|
||||
Here's another that looks for the first item in the internet
|
||||
MacOS Keychain collection whose label is 'gnus':
|
||||
MacOS Keychain collection whose label is `gnus':
|
||||
|
||||
\(let ((auth-sources '(macos-keychain-internet)))
|
||||
\(let ((auth-sources \\='(macos-keychain-internet)))
|
||||
(auth-source-search :max 1 :label \"gnus\")
|
||||
|
||||
And this one looks for the first item in the internet keychain
|
||||
entries for git.gnus.org:
|
||||
|
||||
\(let ((auth-sources '(macos-keychain-internet\")))
|
||||
\(let ((auth-sources \\='(macos-keychain-internet\")))
|
||||
(auth-source-search :max 1 :host \"git.gnus.org\"))
|
||||
"
|
||||
;; TODO
|
||||
|
|
|
|||
|
|
@ -1721,7 +1721,7 @@ and that there are no duplicates."
|
|||
(or backed-up
|
||||
(setq backed-up (gnus-agent-backup-overview-buffer)))
|
||||
(gnus-message 1
|
||||
"Overview buffer contains garbage '%s'."
|
||||
"Overview buffer contains garbage ‘%s’."
|
||||
(buffer-substring
|
||||
p (point-at-eol))))
|
||||
((= cur prev-num)
|
||||
|
|
@ -1901,7 +1901,7 @@ article numbers will be returned."
|
|||
|
||||
(when articles
|
||||
(gnus-message
|
||||
10 "gnus-agent-fetch-headers: undownloaded articles are '%s'"
|
||||
10 "gnus-agent-fetch-headers: undownloaded articles are ‘%s’"
|
||||
(gnus-compress-sequence articles t)))
|
||||
|
||||
(with-current-buffer nntp-server-buffer
|
||||
|
|
|
|||
|
|
@ -399,7 +399,7 @@ advertisements. For example:
|
|||
"*Alist that says how to fontify certain phrases.
|
||||
Each item looks like this:
|
||||
|
||||
(\"_\\\\(\\\\w+\\\\)_\" 0 1 'underline)
|
||||
(\"_\\\\(\\\\w+\\\\)_\" 0 1 \\='underline)
|
||||
|
||||
The first element is a regular expression to be matched. The second
|
||||
is a number that says what regular expression grouping used to find
|
||||
|
|
|
|||
|
|
@ -164,8 +164,8 @@ If CONFIRM is non-nil, the user will be asked for an NNTP server."
|
|||
(gnus-open-server gnus-select-method)
|
||||
gnus-batch-mode
|
||||
(gnus-y-or-n-p
|
||||
(format
|
||||
"%s (%s) open error: '%s'. Continue? "
|
||||
(gnus-format-message
|
||||
"%s (%s) open error: ‘%s’. Continue? "
|
||||
(car gnus-select-method) (cadr gnus-select-method)
|
||||
(gnus-status-message gnus-select-method)))
|
||||
(gnus-error 1 "Couldn't open server on %s"
|
||||
|
|
@ -555,7 +555,7 @@ the group's summary.
|
|||
(let ((saved-display
|
||||
(gnus-group-get-parameter group 'display :allow-list)))
|
||||
|
||||
;; Tell gnus we really don't want any articles
|
||||
;; Tell gnus we really don't want any articles
|
||||
(gnus-group-set-parameter group 'display 0)
|
||||
|
||||
(unwind-protect
|
||||
|
|
@ -573,7 +573,7 @@ the group's summary.
|
|||
;; Create it now and insert the message
|
||||
(let ((group-is-new (gnus-summary-setup-buffer group)))
|
||||
(condition-case err
|
||||
(let ((article-number
|
||||
(let ((article-number
|
||||
(gnus-summary-insert-subject message-id)))
|
||||
(unless article-number
|
||||
(signal 'error "message-id not in group"))
|
||||
|
|
|
|||
|
|
@ -558,7 +558,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
|
|||
do (gnus-message
|
||||
;; warn more if gnus-registry-track-extra
|
||||
(if gnus-registry-track-extra 7 9)
|
||||
"%s (extra tracking) traced subject '%s' to %s"
|
||||
"%s (extra tracking) traced subject ‘%s’ to %s"
|
||||
log-agent subject group)
|
||||
and collect group))
|
||||
;; filter the found groups and return them
|
||||
|
|
@ -585,7 +585,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
|
|||
do (gnus-message
|
||||
;; warn more if gnus-registry-track-extra
|
||||
(if gnus-registry-track-extra 7 9)
|
||||
"%s (extra tracking) traced sender '%s' to %s"
|
||||
"%s (extra tracking) traced sender ‘%s’ to %s"
|
||||
log-agent sender group)
|
||||
and collect group)))
|
||||
|
||||
|
|
@ -615,7 +615,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
|
|||
do (gnus-message
|
||||
;; warn more if gnus-registry-track-extra
|
||||
(if gnus-registry-track-extra 7 9)
|
||||
"%s (extra tracking) traced recipient '%s' to %s"
|
||||
"%s (extra tracking) traced recipient ‘%s’ to %s"
|
||||
log-agent recp group)
|
||||
and collect group)))))
|
||||
|
||||
|
|
@ -630,7 +630,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
|
|||
(defun gnus-registry-post-process-groups (mode key groups)
|
||||
"Inspects GROUPS found by MODE for KEY to determine which ones to follow.
|
||||
|
||||
MODE can be 'subject' or 'sender' for example. The KEY is the
|
||||
MODE can be `subject' or `sender' for example. The KEY is the
|
||||
value by which MODE was searched.
|
||||
|
||||
Transforms each group name to the equivalent short name.
|
||||
|
|
@ -712,12 +712,12 @@ possible. Uses `gnus-registry-split-strategy'."
|
|||
((null out)
|
||||
(gnus-message
|
||||
5
|
||||
"%s: no matches for %s '%s'."
|
||||
"%s: no matches for %s ‘%s’."
|
||||
log-agent mode key)
|
||||
nil)
|
||||
(t (gnus-message
|
||||
5
|
||||
"%s: too many extra matches (%s) for %s '%s'. Returning none."
|
||||
"%s: too many extra matches (%s) for %s ‘%s’. Returning none."
|
||||
log-agent out mode key)
|
||||
nil))))
|
||||
|
||||
|
|
|
|||
|
|
@ -626,7 +626,7 @@ current score file."
|
|||
(if mimic
|
||||
(progn
|
||||
(sit-for 1) (message "%c %c-" prefix hchar))
|
||||
(message "%s header '%s' with match type (%s?): "
|
||||
(message "%s header ‘%s’ with match type (%s?): "
|
||||
(if increase "Increase" "Lower")
|
||||
(nth 1 entry)
|
||||
(mapconcat (lambda (s) (char-to-string (car s)))
|
||||
|
|
|
|||
|
|
@ -139,7 +139,7 @@ Return nil if no rule could be guessed."
|
|||
"Convert an elisp string list to a Sieve string list.
|
||||
|
||||
For example:
|
||||
\(gnus-sieve-string-list '(\"to\" \"cc\"))
|
||||
\(gnus-sieve-string-list \\='(\"to\" \"cc\"))
|
||||
=> \"[\\\"to\\\", \\\"cc\\\"]\"
|
||||
"
|
||||
(concat "[\"" (mapconcat 'identity list "\", \"") "\"]"))
|
||||
|
|
@ -148,7 +148,7 @@ For example:
|
|||
"Convert an elisp test list to a Sieve test list.
|
||||
|
||||
For example:
|
||||
\(gnus-sieve-test-list '((address \"sender\" \"boss@company.com\") (size :over 4K)))
|
||||
\(gnus-sieve-test-list \\='((address \"sender\" \"boss@company.com\") (size :over 4K)))
|
||||
=> \"(address \\\"sender\\\" \\\"boss@company.com\\\", size :over 4K)\""
|
||||
(concat "(" (mapconcat 'gnus-sieve-test list ", ") ")"))
|
||||
|
||||
|
|
@ -157,13 +157,13 @@ For example:
|
|||
"Convert an elisp test token to a Sieve test token.
|
||||
|
||||
For example:
|
||||
\(gnus-sieve-test-token 'address)
|
||||
\(gnus-sieve-test-token \\='address)
|
||||
=> \"address\"
|
||||
|
||||
\(gnus-sieve-test-token \"sender\")
|
||||
=> \"\\\"sender\\\"\"
|
||||
|
||||
\(gnus-sieve-test-token '(\"to\" \"cc\"))
|
||||
\(gnus-sieve-test-token \\='(\"to\" \"cc\"))
|
||||
=> \"[\\\"to\\\", \\\"cc\\\"]\""
|
||||
(cond
|
||||
((symbolp token) ;; Keyword
|
||||
|
|
@ -184,10 +184,10 @@ For example:
|
|||
"Convert an elisp test to a Sieve test.
|
||||
|
||||
For example:
|
||||
\(gnus-sieve-test '(address \"sender\" \"sieve-admin@extundo.com\"))
|
||||
\(gnus-sieve-test \\='(address \"sender\" \"sieve-admin@extundo.com\"))
|
||||
=> \"address \\\"sender\\\" \\\"sieve-admin@extundo.com\\\"\"
|
||||
|
||||
\(gnus-sieve-test '(anyof ((header :contains (\"to\" \"cc\") \"my@address.com\")
|
||||
\(gnus-sieve-test \\='(anyof ((header :contains (\"to\" \"cc\") \"my@address.com\")
|
||||
(size :over 100K))))
|
||||
=> \"anyof (header :contains [\\\"to\\\", \\\"cc\\\"] \\\"my@address.com\\\",
|
||||
size :over 100K)\""
|
||||
|
|
|
|||
|
|
@ -2369,7 +2369,7 @@ If FORCE is non-nil, the .newsrc file is read."
|
|||
(while (let (c
|
||||
(cursor-in-echo-area t)
|
||||
(echo-keystrokes 0))
|
||||
(message "Convert gnus from version '%s' to '%s'? (n/y/?)"
|
||||
(message "Convert gnus from version ‘%s’ to ‘%s’? (n/y/?)"
|
||||
gnus-newsrc-file-version gnus-version)
|
||||
(setq c (read-char-exclusive))
|
||||
|
||||
|
|
@ -2390,8 +2390,8 @@ If FORCE is non-nil, the .newsrc file is read."
|
|||
|
||||
(funcall func convert-to)))
|
||||
(gnus-dribble-enter
|
||||
(format ";Converted gnus from version '%s' to '%s'."
|
||||
gnus-newsrc-file-version gnus-version)))))))
|
||||
(gnus-format-message ";Converted gnus from version ‘%s’ to ‘%s’."
|
||||
gnus-newsrc-file-version gnus-version)))))))
|
||||
|
||||
(defun gnus-convert-mark-converter-prompt (converter no-prompt)
|
||||
"Indicate whether CONVERTER requires gnus-convert-old-newsrc to
|
||||
|
|
|
|||
|
|
@ -8429,7 +8429,7 @@ articles that are younger than AGE days."
|
|||
(gnus-summary-position-point)))
|
||||
|
||||
(defun gnus-summary-limit-to-extra (header regexp &optional not-matching)
|
||||
"Limit the summary buffer to articles that match an 'extra' header."
|
||||
"Limit the summary buffer to articles that match an `extra' header."
|
||||
(interactive
|
||||
(let ((header
|
||||
(intern
|
||||
|
|
|
|||
|
|
@ -1525,7 +1525,7 @@ If NON-RECURSIVE (which is the prefix) is t, don't unmark its subtopics."
|
|||
(read-string (format "Rename %s to: " topic) topic))))
|
||||
;; Check whether the new name exists.
|
||||
(when (gnus-topic-find-topology new-name)
|
||||
(error "Topic '%s' already exists" new-name))
|
||||
(error "Topic ‘%s’ already exists" new-name))
|
||||
;; "nil" is an invalid name, for reasons I'd rather not go
|
||||
;; into here. Trust me.
|
||||
(when (equal new-name "nil")
|
||||
|
|
|
|||
|
|
@ -1974,6 +1974,11 @@ to case differences."
|
|||
(string-equal (downcase str1) (downcase prefix))
|
||||
(string-equal str1 prefix))))))
|
||||
|
||||
(if (fboundp 'format-message)
|
||||
(defalias 'gnus-format-message 'format-message)
|
||||
;; for Emacs < 25, and XEmacs, don't worry about quote translation.
|
||||
(defalias 'gnus-format-message 'format-message))
|
||||
|
||||
;; Simple check: can be a macro but this way, although slow, it's really clear.
|
||||
;; We don't use `bound-and-true-p' because it's not in XEmacs.
|
||||
(defun gnus-bound-and-true-p (sym)
|
||||
|
|
|
|||
|
|
@ -79,10 +79,10 @@ To change the behavior, you can either edit this variable or set
|
|||
|
||||
For example:
|
||||
|
||||
To make gnus-uu use 'xli' to display JPEG and GIF files, put the
|
||||
To make gnus-uu use `xli' to display JPEG and GIF files, put the
|
||||
following in your .emacs file:
|
||||
|
||||
(setq gnus-uu-user-view-rules '((\"jpg$\\\\|gif$\" \"xli\")))
|
||||
(setq gnus-uu-user-view-rules \\='((\"jpg$\\\\|gif$\" \"xli\")))
|
||||
|
||||
Both these variables are lists of lists with two string elements. The
|
||||
first string is a regular expression. If the file name matches this
|
||||
|
|
@ -140,7 +140,7 @@ details."
|
|||
|
||||
(defcustom gnus-uu-user-archive-rules nil
|
||||
"A list that can be set to override the default archive unpacking commands.
|
||||
To use, for instance, 'untar' to unpack tar files and 'zip -x' to
|
||||
To use, for instance, `untar' to unpack tar files and `zip -x' to
|
||||
unpack zip files, say the following:
|
||||
(setq gnus-uu-user-archive-rules
|
||||
'((\"\\\\.tar$\" \"untar\")
|
||||
|
|
|
|||
|
|
@ -1308,11 +1308,11 @@ news is to be fetched, the second is the address.
|
|||
For instance, if you want to get your news via \"flab.flab.edu\" using
|
||||
NNTP, you could say:
|
||||
|
||||
\(setq gnus-select-method '(nntp \"flab.flab.edu\"))
|
||||
\(setq gnus-select-method \\='(nntp \"flab.flab.edu\"))
|
||||
|
||||
If you want to use your local spool, say:
|
||||
|
||||
\(setq gnus-select-method (list 'nnspool (system-name)))
|
||||
\(setq gnus-select-method (list \\='nnspool (system-name)))
|
||||
|
||||
If you use this variable, you must set `gnus-nntp-server' to nil.
|
||||
|
||||
|
|
@ -1397,7 +1397,7 @@ This is a list where each element is a complete select method (see
|
|||
If, for instance, you want to read your mail with the nnml back end,
|
||||
you could set this variable:
|
||||
|
||||
\(setq gnus-secondary-select-methods '((nnml \"\")))"
|
||||
\(setq gnus-secondary-select-methods \\='((nnml \"\")))"
|
||||
:group 'gnus-server
|
||||
:type '(repeat gnus-select-method))
|
||||
|
||||
|
|
|
|||
|
|
@ -147,14 +147,19 @@ converted to the compressed format."
|
|||
(insert "The definition of gnus-agent-expire-days has been changed.\nYou currently have it set to the list:\n ")
|
||||
(gnus-pp gnus-agent-expire-days)
|
||||
|
||||
(insert "\nIn order to use version '" converting-to "' of gnus, you will need to set\n")
|
||||
(insert
|
||||
(gnus-format-message
|
||||
"\nIn order to use version ‘%s’ of gnus, you will need to set\n"
|
||||
converting-to))
|
||||
(insert "gnus-agent-expire-days to an integer. If you still wish to set different\n")
|
||||
(insert "expiration days to individual groups, you must instead set the\n")
|
||||
(insert "'agent-days-until-old group and/or topic parameter.\n")
|
||||
(insert (gnus-format-message
|
||||
"‘agent-days-until-old’ group and/or topic parameter.\n"))
|
||||
(insert "\n")
|
||||
(insert "If you would like, gnus can iterate over every group comparing its name to the\n")
|
||||
(insert "regular expressions that you currently have in gnus-agent-expire-days. When\n")
|
||||
(insert "gnus finds a match, it will update that group's 'agent-days-until-old group\n")
|
||||
(insert (gnus-format-message
|
||||
"gnus finds a match, it will update that group's ‘agent-days-until-old’ group\n"))
|
||||
(insert "parameter to the value associated with the regular expression.\n")
|
||||
(insert "\n")
|
||||
(insert "Whether gnus assigns group parameters, or not, gnus will terminate with an\n")
|
||||
|
|
|
|||
|
|
@ -934,7 +934,7 @@ authentication. To do that, you need to set the
|
|||
`message-send-mail-function' variable as `message-smtpmail-send-it'
|
||||
and put the following line in your ~/.gnus.el file:
|
||||
|
||||
\(add-hook 'message-send-mail-hook 'mail-source-touch-pop)
|
||||
\(add-hook \\='message-send-mail-hook \\='mail-source-touch-pop)
|
||||
|
||||
See the Gnus manual for details."
|
||||
(let ((sources (if mail-source-primary-source
|
||||
|
|
|
|||
|
|
@ -541,7 +541,7 @@ The provided functions are:
|
|||
newsgroup), in brackets followed by the subject
|
||||
* `message-forward-subject-name-subject' Source of article (name of author
|
||||
or newsgroup), in brackets followed by the subject
|
||||
* `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended
|
||||
* `message-forward-subject-fwd' Subject of article with `Fwd:' prepended
|
||||
to it."
|
||||
:group 'message-forwarding
|
||||
:link '(custom-manual "(message)Forwarding")
|
||||
|
|
@ -7210,7 +7210,7 @@ want to get rid of this query permanently."))
|
|||
|
||||
(defun message-is-yours-p ()
|
||||
"Non-nil means current article is yours.
|
||||
If you have added 'cancel-messages to `message-shoot-gnksa-feet', all articles
|
||||
If you have added `cancel-messages' to `message-shoot-gnksa-feet', all articles
|
||||
are yours except those that have Cancel-Lock header not belonging to you.
|
||||
Instead of shooting GNKSA feet, you should modify `message-alternative-emails'
|
||||
regexp to match all of yours addresses."
|
||||
|
|
@ -8177,7 +8177,7 @@ The following arguments may contain lists of values."
|
|||
(defun message-flatten-list (list)
|
||||
"Return a new, flat list that contains all elements of LIST.
|
||||
|
||||
\(message-flatten-list '(1 (2 3 (4 5 (6))) 7))
|
||||
\(message-flatten-list \\='(1 (2 3 (4 5 (6))) 7))
|
||||
=> (1 2 3 4 5 6 7)"
|
||||
(cond ((consp list)
|
||||
(apply 'append (mapcar 'message-flatten-list list)))
|
||||
|
|
|
|||
|
|
@ -114,7 +114,7 @@ Shorter values mean quicker response, but are more CPU intensive.")
|
|||
For instance, if \":\" is invalid as a file character in file names
|
||||
on your system, you could say something like:
|
||||
|
||||
\(setq nnheader-file-name-translation-alist '((?: . ?_)))")
|
||||
\(setq nnheader-file-name-translation-alist \\='((?: . ?_)))")
|
||||
|
||||
(defvar nnheader-directory-separator-character
|
||||
(string-to-char (substring (file-name-as-directory ".") -1))
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue