; Minor stylistic fixes found by checkdoc
This commit is contained in:
Stefan Kangas
parent
36474a1e49
commit
63f419f133
326 changed files with 1158 additions and 1180 deletions
|
|
@ -23,11 +23,11 @@
|
|||
;;; Commentary:
|
||||
|
||||
;; I spend a lot of time working in front of a screen (many hours in a
|
||||
;; dimly lit room) and eye fatigue is an issue. This is a dark color
|
||||
;; theme for emacs, which is easier on the eyes than light themes.
|
||||
;; dimly lit room) and eye fatigue is an issue. This is a dark color
|
||||
;; theme for Emacs, which is easier on the eyes than light themes.
|
||||
|
||||
;; It does not help that I am blue-green color blind, so subtle
|
||||
;; variations are often lost on me. I do want to use color contrast to
|
||||
;; variations are often lost on me. I do want to use color contrast to
|
||||
;; increase productivity, but I also want to avoid the jarring angry
|
||||
;; fruit salad look, and so I am in the process of crafting a logical
|
||||
;; color scheme that is high contrast enough for me, without being too
|
||||
|
|
@ -35,7 +35,7 @@
|
|||
|
||||
;; In circumstances where there a lot of related faces that can be
|
||||
;; viewed, for example, the Gnus group buffer, consistent and logical
|
||||
;; color choices are the only sane option. Gnus groups can be newa
|
||||
;; color choices are the only sane option. Gnus groups can be newa
|
||||
;; (blueish) or mail (greenish), have states (large number of under
|
||||
;; messages, normal, and empty). The large number unread groups have
|
||||
;; highest luminance (appear brighter), and the empty one have lower
|
||||
|
|
@ -45,8 +45,8 @@
|
|||
;; constant separation -- so all the related groups have the same
|
||||
;; brightness ({mail,news}/{unread,normal,empty}), and a graded
|
||||
;; selection of foreground colors. It sounds more complicated that it
|
||||
;; looks. The eye is drawn naturally to the unread groups, and first
|
||||
;; to the mail, then USENET groups (which is my preference).
|
||||
;; looks. The eye is drawn naturally to the unread groups, and first
|
||||
;; to the mail, then Usenet groups (which is my preference).
|
||||
|
||||
;; Similar color variations occur for individual messages in a group;
|
||||
;; high scoring messages bubble to the top, and have a higher
|
||||
|
|
|
|||
|
|
@ -20,7 +20,7 @@
|
|||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary
|
||||
;;; Commentary:
|
||||
|
||||
;; The colors in this theme come from the Tango palette, which is in
|
||||
;; the public domain: http://tango.freedesktop.org/
|
||||
|
|
|
|||
|
|
@ -20,7 +20,7 @@
|
|||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary
|
||||
;;; Commentary:
|
||||
|
||||
;; The colors in this theme come from the Tango palette, which is in
|
||||
;; the public domain: http://tango.freedesktop.org/
|
||||
|
|
|
|||
|
|
@ -787,7 +787,7 @@ See the variable `align-exclude-rules-list' for more details.")
|
|||
"The current overlays highlighting the text matched by a rule.")
|
||||
|
||||
(defvar align-regexp-history nil
|
||||
"Input history for the full user-entered regex in `align-regexp'")
|
||||
"Input history for the full user-entered regex in `align-regexp'.")
|
||||
|
||||
;; Sample extension rule set for vhdl-mode. This is now obsolete.
|
||||
(defcustom align-vhdl-rules-list
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@
|
|||
;; invoke allout-widgets-mode in a particular allout buffer. When
|
||||
;; auto-enabled, you can inhibit widget operation in particular allout
|
||||
;; buffers by setting the variable `allout-widgets-mode-inhibit' non-nil in
|
||||
;; that file's buffer. Use emacs *file local variables* to generally
|
||||
;; that file's buffer. Use Emacs *file local variables* to generally
|
||||
;; inhibit for a file.
|
||||
;;
|
||||
;; See the `allout-widgets-mode' docstring for more details.
|
||||
|
|
@ -55,7 +55,7 @@
|
|||
;; bindings for easy outline navigation and exposure control, extending
|
||||
;; outline hot-spot navigation (see `allout-mode' docstring for details).
|
||||
;;
|
||||
;; Developers note: Our use of emacs widgets is unconventional. We
|
||||
;; Developers note: Our use of Emacs widgets is unconventional. We
|
||||
;; decorate existing text rather than substituting for it, to
|
||||
;; piggy-back on existing allout operation. This employs the C-coded
|
||||
;; efficiencies of widget-apply, widget-get, and widget-put, along
|
||||
|
|
@ -87,7 +87,7 @@
|
|||
"Allout extension that highlights outline structure graphically.
|
||||
|
||||
Customize `allout-widgets-auto-activation' to activate allout-widgets
|
||||
with allout-mode."
|
||||
with `allout-mode'."
|
||||
:group 'allout)
|
||||
;;;_ > defgroup allout-widgets-developer
|
||||
(defgroup allout-widgets-developer nil
|
||||
|
|
@ -96,19 +96,19 @@ with allout-mode."
|
|||
;;;_ ; some functions a bit early, for allout-auto-activation dependency:
|
||||
;;;_ > allout-widgets-mode-enable
|
||||
(defun allout-widgets-mode-enable ()
|
||||
"Enable allout-widgets-mode in allout-mode buffers.
|
||||
"Enable `allout-widgets-mode' in `allout-mode' buffers.
|
||||
|
||||
See `allout-widgets-mode-inhibit' for per-file/per-buffer
|
||||
inhibition of allout-widgets-mode."
|
||||
inhibition of `allout-widgets-mode'."
|
||||
(add-hook 'allout-mode-off-hook #'allout-widgets-mode-off)
|
||||
(add-hook 'allout-mode-on-hook #'allout-widgets-mode-on)
|
||||
t)
|
||||
;;;_ > allout-widgets-mode-disable
|
||||
(defun allout-widgets-mode-disable ()
|
||||
"Disable allout-widgets-mode in allout-mode buffers.
|
||||
"Disable `allout-widgets-mode' in `allout-mode' buffers.
|
||||
|
||||
See `allout-widgets-mode-inhibit' for per-file/per-buffer
|
||||
inhibition of allout-widgets-mode."
|
||||
inhibition of `allout-widgets-mode'."
|
||||
(remove-hook 'allout-mode-off-hook #'allout-widgets-mode-off)
|
||||
(remove-hook 'allout-mode-on-hook #'allout-widgets-mode-on)
|
||||
t)
|
||||
|
|
@ -384,7 +384,7 @@ onto the front.")
|
|||
)
|
||||
;;;_ = allout-doing-exposure-undo-processor nil
|
||||
(defvar allout-undo-exposure-in-progress nil
|
||||
"Maintained true during `allout-widgets-exposure-undo-processor'")
|
||||
"Maintained true during `allout-widgets-exposure-undo-processor'.")
|
||||
;;;_ , Widget-specific outline text format
|
||||
;;;_ = allout-escaped-prefix-regexp
|
||||
(defvar-local allout-escaped-prefix-regexp ""
|
||||
|
|
@ -1450,7 +1450,7 @@ recursive operation."
|
|||
)
|
||||
;;;_ > allout-new-item-widget ()
|
||||
(defsubst allout-new-item-widget ()
|
||||
"create a new item widget, not yet situated anywhere."
|
||||
"Create a new item widget, not yet situated anywhere."
|
||||
(if allout-widgets-maintain-tally
|
||||
;; all the extra overhead is incurred only when doing the
|
||||
;; maintenance, except the condition, which can't be avoided.
|
||||
|
|
|
|||
|
|
@ -26,7 +26,7 @@
|
|||
;;; Commentary:
|
||||
|
||||
;; Allout outline minor mode provides extensive outline formatting and
|
||||
;; and manipulation beyond standard emacs outline mode. Some features:
|
||||
;; and manipulation beyond standard Emacs outline mode. Some features:
|
||||
;;
|
||||
;; - Classic outline-mode topic-oriented navigation and exposure adjustment
|
||||
;; - Topic-oriented editing including coherent topic and subtopic
|
||||
|
|
@ -35,7 +35,7 @@
|
|||
;; - Customizable bullet format -- enables programming-language specific
|
||||
;; outlining, for code-folding editing. (Allout code itself is to try it;
|
||||
;; formatted as an outline -- do ESC-x eval-buffer in allout.el; but
|
||||
;; emacs local file variables need to be enabled when the
|
||||
;; Emacs local file variables need to be enabled when the
|
||||
;; file was visited -- see `enable-local-variables'.)
|
||||
;; - Configurable per-file initial exposure settings
|
||||
;; - Symmetric-key and key-pair topic encryption. Encryption is via the
|
||||
|
|
@ -242,7 +242,7 @@ prevails."
|
|||
)
|
||||
"Allout-mode functions bound to keys without any added prefix.
|
||||
|
||||
This is in contrast to the majority of allout-mode bindings on
|
||||
This is in contrast to the majority of `allout-mode' bindings on
|
||||
`allout-prefixed-keybindings', whose bindings are created with a
|
||||
preceding command key.
|
||||
|
||||
|
|
@ -288,7 +288,7 @@ Control whether and how allout outline mode is automatically
|
|||
activated when files are visited with non-nil buffer-specific
|
||||
file variable `allout-layout'.
|
||||
|
||||
When allout-auto-activation is \"On\" (t), allout mode is
|
||||
When `allout-auto-activation' is \"On\" (t), allout mode is
|
||||
activated in buffers with non-nil `allout-layout', and the
|
||||
specified layout is applied.
|
||||
|
||||
|
|
@ -382,7 +382,7 @@ in individual buffers if you want to inhibit auto-fill only in particular
|
|||
buffers. (You could use a function on `allout-mode-hook' to inhibit
|
||||
auto-fill according, eg, to the major mode.)
|
||||
|
||||
If you don't set this and auto-fill-mode is enabled, allout will use the
|
||||
If you don't set this and `auto-fill-mode' is enabled, allout will use the
|
||||
value that `normal-auto-fill-function', if any, when allout mode starts, or
|
||||
else allout's special hanging-indent maintaining auto-fill function,
|
||||
`allout-auto-fill'."
|
||||
|
|
@ -460,7 +460,7 @@ advance as follows:
|
|||
- if the cursor is on the first column of the headline:
|
||||
then it goes to the start of the headline within the item body.
|
||||
|
||||
In this fashion, you can use the beginning-of-line command to do
|
||||
In this fashion, you can use the `beginning-of-line' command to do
|
||||
its normal job and then, when repeated, advance through the
|
||||
entry, cycling back to start.
|
||||
|
||||
|
|
@ -882,7 +882,7 @@ has been customized to enable this behavior), `allout-mode' will be
|
|||
automatically activated. The layout dictated by the value will be used to
|
||||
set the initial exposure when `allout-mode' is activated.
|
||||
|
||||
*You should not setq-default this variable non-nil unless you want every
|
||||
*You should not `setq-default' this variable non-nil unless you want every
|
||||
visited file to be treated as an allout file.*
|
||||
|
||||
The value would typically be set by a file local variable. For
|
||||
|
|
@ -1321,21 +1321,21 @@ The settings are stored on `allout-mode-prior-settings'."
|
|||
(if qualifier
|
||||
(cond ((eq qualifier 'extend)
|
||||
(if (not (listp prior-value))
|
||||
(error "extension of non-list prior value attempted")
|
||||
(error "Extension of non-list prior value attempted")
|
||||
(set name (cons value prior-value))))
|
||||
((eq qualifier 'append)
|
||||
(if (not (listp prior-value))
|
||||
(error "appending of non-list prior value attempted")
|
||||
(error "Appending of non-list prior value attempted")
|
||||
(set name (append prior-value (list value)))))
|
||||
(t (error "unrecognized setting qualifier `%s' encountered"
|
||||
(t (error "Unrecognized setting qualifier `%s' encountered"
|
||||
qualifier)))
|
||||
(set name value)))))
|
||||
;;;_ > allout-do-resumptions ()
|
||||
(defun allout-do-resumptions ()
|
||||
"Resume all name/value settings registered by `allout-add-resumptions'.
|
||||
|
||||
This is used when concluding allout-mode, to resume selected variables to
|
||||
their settings before allout-mode was started."
|
||||
This is used when concluding `allout-mode', to resume selected variables to
|
||||
their settings before `allout-mode' was started."
|
||||
|
||||
(while allout-mode-prior-settings
|
||||
(let* ((pair (pop allout-mode-prior-settings))
|
||||
|
|
@ -2129,7 +2129,7 @@ to return the current depth."
|
|||
allout-recent-depth)
|
||||
;;;_ > allout-recent-prefix ()
|
||||
(defsubst allout-recent-prefix ()
|
||||
"Like `allout-recent-depth', but returns text of last encountered prefix.
|
||||
"Like `allout-recent-depth', but return text of last encountered prefix.
|
||||
|
||||
All outline functions which directly do string matches to assess
|
||||
headings set the variables `allout-recent-prefix-beginning' and
|
||||
|
|
@ -2139,7 +2139,7 @@ to return the current prefix."
|
|||
allout-recent-prefix-end))
|
||||
;;;_ > allout-recent-bullet ()
|
||||
(defmacro allout-recent-bullet ()
|
||||
"Like `allout-recent-prefix', but returns bullet of last encountered prefix.
|
||||
"Like `allout-recent-prefix', but return bullet of last encountered prefix.
|
||||
|
||||
All outline functions which directly do string matches to assess
|
||||
headings set the variables `allout-recent-prefix-beginning' and
|
||||
|
|
@ -3145,7 +3145,7 @@ Returns resulting position, else nil if none found."
|
|||
(start-arg arg)
|
||||
(backward (> 0 arg)))
|
||||
(if (= 0 start-depth)
|
||||
(error "No siblings, not in a topic..."))
|
||||
(error "No siblings, not in a topic"))
|
||||
(if backward (setq arg (* -1 arg)))
|
||||
(allout-back-to-current-heading)
|
||||
(while (and (not (zerop arg))
|
||||
|
|
@ -3185,7 +3185,7 @@ are mapped to the command of the corresponding control-key on the
|
|||
`allout-mode-map-value'.")
|
||||
;;;_ = allout-command-counter
|
||||
(defvar-local allout-command-counter 0
|
||||
"Counter that monotonically increases in allout-mode buffers.
|
||||
"Counter that monotonically increases in `allout-mode' buffers.
|
||||
|
||||
Set by `allout-pre-command-business', to support allout addons in
|
||||
coordinating with allout activity.")
|
||||
|
|
@ -3325,7 +3325,6 @@ See `allout-auto-activation' for setup instructions."
|
|||
;;;_ - Topic Format Assessment
|
||||
;;;_ > allout-solicit-alternate-bullet (depth &optional current-bullet)
|
||||
(defun allout-solicit-alternate-bullet (depth &optional current-bullet)
|
||||
|
||||
"Prompt for and return a bullet char as an alternative to the current one.
|
||||
|
||||
Offer one suitable for current depth DEPTH as default."
|
||||
|
|
@ -5807,7 +5806,7 @@ See `allout-toggle-current-subtree-encryption' for more details."
|
|||
(after-bullet-pos (point))
|
||||
(was-encrypted
|
||||
(progn (if (= (point-max) after-bullet-pos)
|
||||
(error "no body to encrypt"))
|
||||
(error "No body to encrypt"))
|
||||
(allout-encrypted-topic-p)))
|
||||
(was-collapsed (if (not (search-forward "\n" nil t))
|
||||
nil
|
||||
|
|
@ -6032,7 +6031,7 @@ signal."
|
|||
|
||||
;; validate result -- non-empty
|
||||
(if (not result-text)
|
||||
(error "%scryption failed." (if decrypt "De" "En")))
|
||||
(error "%scryption failed" (if decrypt "De" "En")))
|
||||
|
||||
|
||||
(when (eq keypair-mode 'prompt-save)
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
;; The "Graphic Rendition Combination Mode (GRCM)" implemented is
|
||||
;; "cumulative mode" as defined in section 7.2.8. Cumulative mode
|
||||
;; means that whenever possible, SGR control sequences are combined
|
||||
;; (ie. blue and bold).
|
||||
;; (i.e. blue and bold).
|
||||
|
||||
;; The basic functions are:
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -78,7 +78,7 @@ This option only controls the default behavior. Each of the above
|
|||
commands also has an optional argument to request a more extensive search.
|
||||
|
||||
Additionally, this option makes the function `apropos-library'
|
||||
include key-binding information in its output."
|
||||
include keybinding information in its output."
|
||||
:type 'boolean)
|
||||
|
||||
(defface apropos-symbol
|
||||
|
|
|
|||
|
|
@ -1759,7 +1759,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
|
|||
neh ;beginning of next extension header (level 1 and 2)
|
||||
mode uid gid dir prname
|
||||
gname uname modtime moddate)
|
||||
(if (= hdrlvl 3) (error "can't handle lzh level 3 header type"))
|
||||
(if (= hdrlvl 3) (error "Can't handle lzh level 3 header type"))
|
||||
(when (or (= hdrlvl 0) (= hdrlvl 1))
|
||||
(setq fnlen (get-byte (+ p 21))) ;filename length
|
||||
(setq efnname (let ((str (buffer-substring (+ p 22) (+ p 22 fnlen)))) ;filename from offset 22
|
||||
|
|
|
|||
|
|
@ -79,9 +79,8 @@
|
|||
|
||||
;;;###autoload
|
||||
(defcustom auth-source-cache-expiry 7200
|
||||
"How many seconds passwords are cached, or nil to disable
|
||||
expiring. Overrides `password-cache-expiry' through a
|
||||
let-binding."
|
||||
"How many seconds passwords are cached, or nil to disable expiring.
|
||||
Overrides `password-cache-expiry' through a let-binding."
|
||||
:version "24.1"
|
||||
:type '(choice (const :tag "Never" nil)
|
||||
(const :tag "All Day" 86400)
|
||||
|
|
@ -353,7 +352,7 @@ backend starts with the first element on the list and stops as
|
|||
soon as a function returns non-nil.")
|
||||
|
||||
(defun auth-source-backend-parse (entry)
|
||||
"Create an auth-source-backend from an ENTRY in `auth-sources'."
|
||||
"Create an `auth-source-backend' from an ENTRY in `auth-sources'."
|
||||
|
||||
(let ((backend
|
||||
(run-hook-with-args-until-success 'auth-source-backend-parser-functions
|
||||
|
|
@ -823,7 +822,7 @@ Returns t or nil for forgotten or not found."
|
|||
(password-cache-remove (auth-source-format-cache-entry spec)))
|
||||
|
||||
(defun auth-source-forget+ (&rest spec)
|
||||
"Forget any cached data matching SPEC. Returns forgotten count.
|
||||
"Forget any cached data matching SPEC. Return forgotten count.
|
||||
|
||||
This is not a full `auth-source-search' spec but works similarly.
|
||||
For instance, \(:host \"myhost\" \"yourhost\") would find all the
|
||||
|
|
@ -1198,7 +1197,7 @@ FILE is the file from which we obtained this token."
|
|||
(mapcar #'1- string)))
|
||||
|
||||
(defun auth-source--pad (string length)
|
||||
"Pad string S to a modulo of LENGTH."
|
||||
"Pad STRING to a modulo of LENGTH."
|
||||
(let ((pad (- length (mod (length string) length))))
|
||||
(concat string (make-string pad pad))))
|
||||
|
||||
|
|
@ -1573,8 +1572,7 @@ collection that's a Google Chrome entry for the git.gnus.org site
|
|||
authentication tokens:
|
||||
|
||||
(let ((auth-sources \\='(\"secrets:Login\")))
|
||||
(auth-source-search :max 1 :signon_realm \"https://git.gnus.org/Git\"))
|
||||
"
|
||||
(auth-source-search :max 1 :signon_realm \"https://git.gnus.org/Git\"))"
|
||||
|
||||
;; TODO
|
||||
;; (secrets-delete-item coll elt)
|
||||
|
|
@ -1875,8 +1873,7 @@ And this one looks for the first item in the internet keychain
|
|||
entries for git.gnus.org:
|
||||
|
||||
(let ((auth-sources \\='(macos-keychain-internet\")))
|
||||
(auth-source-search :max 1 :host \"git.gnus.org\"))
|
||||
"
|
||||
(auth-source-search :max 1 :host \"git.gnus.org\"))"
|
||||
;; TODO
|
||||
(cl-assert (not create) nil
|
||||
"The macOS Keychain auth-source backend doesn't support creation yet")
|
||||
|
|
@ -1941,7 +1938,7 @@ entries for git.gnus.org:
|
|||
|
||||
|
||||
(defun auth-source--decode-octal-string (string)
|
||||
"Convert octal string to utf-8 string. E.g: 'a\134b' to 'a\b'"
|
||||
"Convert octal STRING to utf-8 string. E.g: 'a\134b' to 'a\b'."
|
||||
(let ((list (string-to-list string))
|
||||
(size (length string)))
|
||||
(decode-coding-string
|
||||
|
|
|
|||
|
|
@ -36,7 +36,7 @@
|
|||
;; buffer contains no unsaved changes.
|
||||
;;
|
||||
;; Auto-Revert Mode can be activated for individual buffers. Global
|
||||
;; Auto-Revert Mode applies to all file buffers. (If the user option
|
||||
;; Auto-Revert Mode applies to all file buffers. (If the user option
|
||||
;; `global-auto-revert-non-file-buffers' is non-nil, it also applies
|
||||
;; to some non-file buffers. This option is disabled by default.)
|
||||
;;
|
||||
|
|
@ -72,7 +72,7 @@
|
|||
;; at the end of the buffer in that window, even if the window is not
|
||||
;; selected. This way, you can use Auto-Revert Mode to `tail' a file.
|
||||
;; Just put point at the end of the buffer and it will stay there.
|
||||
;; These rules apply to file buffers. For non-file buffers, the
|
||||
;; These rules apply to file buffers. For non-file buffers, the
|
||||
;; behavior may be mode dependent.
|
||||
;;
|
||||
;; While you can use Auto-Revert Mode to tail a file, this package
|
||||
|
|
@ -853,8 +853,8 @@ This is an internal function used by Auto-Revert Mode."
|
|||
"Return a prioritized list of buffers to maybe auto-revert.
|
||||
The differences between this return value and the reference
|
||||
variable `auto-revert-buffer-list' include: 1) this has more
|
||||
entries when in global-auto-revert-mode; 2) this prioritizes
|
||||
buffers not reverted last time due to user interruption. "
|
||||
entries when in `global-auto-revert-mode'; 2) this prioritizes
|
||||
buffers not reverted last time due to user interruption."
|
||||
(let ((bufs (delq nil
|
||||
;; Buffers with remote contents shall be reverted only
|
||||
;; if the connection is established already.
|
||||
|
|
@ -881,7 +881,7 @@ buffers not reverted last time due to user interruption. "
|
|||
(nreverse (nconc new remaining))))
|
||||
|
||||
(defun auto-revert-buffer (buf)
|
||||
"Revert a single buffer.
|
||||
"Revert a single buffer BUF.
|
||||
|
||||
This is performed as specified by Auto-Revert and Global
|
||||
Auto-Revert Modes."
|
||||
|
|
|
|||
|
|
@ -614,20 +614,20 @@ By default, this shows the information specified by `global-mode-string'.")
|
|||
(list `(quote ,standard-mode-line-format))))
|
||||
|
||||
|
||||
(defun mode-line-unbury-buffer (event) "\
|
||||
Call `unbury-buffer' in this window."
|
||||
(defun mode-line-unbury-buffer (event)
|
||||
"Call `unbury-buffer' in this window."
|
||||
(interactive "e")
|
||||
(with-selected-window (posn-window (event-start event))
|
||||
(unbury-buffer)))
|
||||
|
||||
(defun mode-line-bury-buffer (event) "\
|
||||
Like `bury-buffer', but temporarily select EVENT's window."
|
||||
(defun mode-line-bury-buffer (event)
|
||||
"Like `bury-buffer', but temporarily select EVENT's window."
|
||||
(interactive "e")
|
||||
(with-selected-window (posn-window (event-start event))
|
||||
(bury-buffer)))
|
||||
|
||||
(defun mode-line-other-buffer () "\
|
||||
Switch to the most recently selected buffer other than the current one."
|
||||
(defun mode-line-other-buffer ()
|
||||
"Switch to the most recently selected buffer other than the current one."
|
||||
(interactive)
|
||||
(switch-to-buffer (other-buffer) nil t))
|
||||
|
||||
|
|
|
|||
|
|
@ -279,7 +279,7 @@ STR-BEFORE-POS is buffer text that immediately precedes POS.
|
|||
ANNOTATION is a string that describes the bookmark.
|
||||
See options `bookmark-use-annotations' and
|
||||
`bookmark-automatically-show-annotations'.
|
||||
HANDLER is a function that provides the bookmark-jump behavior for a
|
||||
HANDLER is a function that provides the `bookmark-jump' behavior for a
|
||||
specific kind of bookmark instead of the default `bookmark-default-handler'.
|
||||
This is the case for Info bookmarks, for instance. HANDLER must accept
|
||||
a bookmark as its single argument.
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@
|
|||
(declare-function math-to-percentsigns "calccomp" (x))
|
||||
|
||||
(defvar calc-quick-calc-history nil
|
||||
"The history list for quick-calc.")
|
||||
"The history list for `quick-calc'.")
|
||||
|
||||
;;;###autoload
|
||||
(defun calc-do-quick-calc (&optional insert)
|
||||
|
|
|
|||
|
|
@ -202,7 +202,7 @@
|
|||
(defun math-power-of-2 (n) ; [I I] [Public]
|
||||
(if (natnump n)
|
||||
(ash 1 n)
|
||||
(error "argument must be a natural number")))
|
||||
(error "Argument must be a natural number")))
|
||||
|
||||
(defun math-integer-log2 (n) ; [I I] [Public]
|
||||
(and (natnump n)
|
||||
|
|
|
|||
|
|
@ -3418,7 +3418,7 @@ If X is not an error form, return 1."
|
|||
|
||||
;;; Users can redefine this in their init files.
|
||||
(defvar calc-keypad-user-menu nil
|
||||
"If non-nil, this describes an additional menu for calc-keypad.
|
||||
"If non-nil, this describes an additional menu for `calc-keypad'.
|
||||
It should contain a list of three rows.
|
||||
Each row should be a list of six keys.
|
||||
Each key should be a list of a label string, plus a Calc command name spec.
|
||||
|
|
|
|||
|
|
@ -139,7 +139,7 @@
|
|||
|
||||
(defvar calc-verify-arglist t)
|
||||
(defun calc-map-stack ()
|
||||
"This is meant to be called by calc-keypad mode."
|
||||
"This is meant to be called by `calc-keypad' mode."
|
||||
(interactive)
|
||||
(let ((calc-verify-arglist nil))
|
||||
(calc-unread-command ?\$)
|
||||
|
|
|
|||
|
|
@ -19,6 +19,8 @@
|
|||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defvar calc-arithmetic-menu
|
||||
(list "Arithmetic"
|
||||
(list "Basic"
|
||||
|
|
|
|||
|
|
@ -102,8 +102,7 @@ Miscellaneous:
|
|||
0 (zero) calc-reset. Reset Calc stack and modes to default state.
|
||||
|
||||
Press `*' twice (`C-x * *') to turn Calc on or off using the same
|
||||
Calc user interface as before (either C-x * C or C-x * K; initially C-x * C).
|
||||
"
|
||||
Calc user interface as before (either C-x * C or C-x * K; initially C-x * C)."
|
||||
(interactive "P")
|
||||
(calc-check-defines)
|
||||
(if calc-dispatch-help
|
||||
|
|
|
|||
|
|
@ -529,7 +529,7 @@ If COMP or STD is non-nil, put that in the units table instead."
|
|||
(calc-slow-wrapper
|
||||
(let* ((expr (calc-top-n 1)))
|
||||
(unless (math-units-in-expr-p expr t)
|
||||
(error "No units in expression."))
|
||||
(error "No units in expression"))
|
||||
(let* ((old-units (math-extract-units expr))
|
||||
(defunits (math-get-default-units expr))
|
||||
units
|
||||
|
|
|
|||
|
|
@ -252,7 +252,7 @@
|
|||
|
||||
(defcustom calc-embedded-announce-formula
|
||||
"%Embed\n\\(% .*\n\\)*"
|
||||
"A regular expression which is sure to be followed by a calc-embedded formula."
|
||||
"A regular expression which is sure to be followed by a `calc-embedded' formula."
|
||||
:type '(regexp))
|
||||
|
||||
(defcustom calc-embedded-announce-formula-alist
|
||||
|
|
@ -278,12 +278,12 @@
|
|||
|
||||
(defcustom calc-embedded-close-formula
|
||||
"\\'\\|\n$\\|\\$\\$?\\|\\\\]\\|^\\\\end[^{].*\n\\|^\\\\end{.*[^x]}.*\n\\|^@.*\n\\|^\\.EN.*\n\\|\\\\)\\|\n%\n\\|^\\.\\\\\"\n"
|
||||
"Regexp for the closing delimiter of a formula used by calc-embedded."
|
||||
"Regexp for the closing delimiter of a formula used by `calc-embedded'."
|
||||
:type '(regexp))
|
||||
|
||||
(defcustom calc-embedded-open-close-formula-alist
|
||||
nil
|
||||
"Alist of major modes with pairs of formula delimiters used by calc-embedded."
|
||||
"Alist of major modes with pairs of formula delimiters used by `calc-embedded'."
|
||||
:type '(alist :key-type (symbol :tag "Major mode")
|
||||
:value-type (list (regexp :tag "Opening formula delimiter")
|
||||
(regexp :tag "Closing formula delimiter"))))
|
||||
|
|
@ -348,13 +348,13 @@ See calc-embedded-open-plain."
|
|||
|
||||
(defcustom calc-embedded-open-mode
|
||||
"% "
|
||||
"A string which should precede calc-embedded mode annotations.
|
||||
"A string which should precede `calc-embedded' mode annotations.
|
||||
This is not required to be present for user-written mode annotations."
|
||||
:type '(string))
|
||||
|
||||
(defcustom calc-embedded-close-mode
|
||||
"\n"
|
||||
"A string which should follow calc-embedded mode annotations.
|
||||
"A string which should follow `calc-embedded' mode annotations.
|
||||
This is not required to be present for user-written mode annotations."
|
||||
:type '(string))
|
||||
|
||||
|
|
@ -387,43 +387,35 @@ This is not required to be present for user-written mode annotations."
|
|||
:type '(string)
|
||||
:version "26.2")
|
||||
|
||||
(defcustom calc-gnuplot-plot-command
|
||||
nil
|
||||
(defcustom calc-gnuplot-plot-command nil
|
||||
"Name of command for displaying GNUPLOT output; %s = file name to print."
|
||||
:type '(choice (string) (sexp)))
|
||||
|
||||
(defcustom calc-gnuplot-print-command
|
||||
"lp %s"
|
||||
(defcustom calc-gnuplot-print-command "lp %s"
|
||||
"Name of command for printing GNUPLOT output; %s = file name to print."
|
||||
:type '(choice (string) (sexp)))
|
||||
|
||||
(defcustom calc-multiplication-has-precedence
|
||||
t
|
||||
"If non-nil, multiplication has precedence over division
|
||||
in normal mode."
|
||||
(defcustom calc-multiplication-has-precedence t
|
||||
"If non-nil, multiplication has precedence over division in normal mode."
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom calc-ensure-consistent-units
|
||||
nil
|
||||
(defcustom calc-ensure-consistent-units nil
|
||||
"If non-nil, make sure new units are consistent with current units
|
||||
when converting units."
|
||||
:version "24.3"
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom calc-context-sensitive-enter
|
||||
nil
|
||||
(defcustom calc-context-sensitive-enter nil
|
||||
"If non-nil, the stack element under the cursor will be copied by `calc-enter'
|
||||
and deleted by `calc-pop'."
|
||||
:version "24.4"
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom calc-undo-length
|
||||
100
|
||||
(defcustom calc-undo-length 100
|
||||
"The number of undo steps that will be preserved when Calc is quit."
|
||||
:type 'integer)
|
||||
|
||||
(defcustom calc-highlight-selections-with-faces
|
||||
nil
|
||||
(defcustom calc-highlight-selections-with-faces nil
|
||||
"If non-nil, use a separate face to indicate selected sub-formulas.
|
||||
If option `calc-show-selections' is non-nil, then selected sub-formulas are
|
||||
shown by displaying the rest of the formula in `calc-nonselected-face'.
|
||||
|
|
@ -432,14 +424,12 @@ by displaying the sub-formula in `calc-selected-face'."
|
|||
:version "24.1"
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom calc-lu-field-reference
|
||||
"20 uPa"
|
||||
(defcustom calc-lu-field-reference "20 uPa"
|
||||
"The default reference level for logarithmic units (field)."
|
||||
:version "24.1"
|
||||
:type '(string))
|
||||
|
||||
(defcustom calc-lu-power-reference
|
||||
"mW"
|
||||
(defcustom calc-lu-power-reference "mW"
|
||||
"The default reference level for logarithmic units (power)."
|
||||
:version "24.1"
|
||||
:type '(string))
|
||||
|
|
@ -496,7 +486,7 @@ This setting only applies to floats in normal display mode.")
|
|||
"List of strings for Y prefix help.")
|
||||
|
||||
(defvar calc-loaded-settings-file nil
|
||||
"t if `calc-settings-file' has been loaded yet.")
|
||||
"Return t if `calc-settings-file' has been loaded yet.")
|
||||
|
||||
|
||||
(defvar calc-mode-var-list '()
|
||||
|
|
@ -961,7 +951,7 @@ Used by `calc-user-invocation'.")
|
|||
(defvar calc-lang-allow-percentsigns nil
|
||||
"A list of languages which allow percent signs in variable names.")
|
||||
(defvar calc-lang-c-type-hex nil
|
||||
"Languages in which octal and hex numbers are written with leading 0 and 0x,")
|
||||
"Languages in which octal and hex numbers are written with leading 0 and 0x.")
|
||||
(defvar calc-lang-brackets-are-subscripts nil
|
||||
"Languages in which subscripts are indicated by brackets.")
|
||||
(defvar calc-lang-parens-are-subscripts nil
|
||||
|
|
@ -1311,8 +1301,7 @@ Notations: 3.14e6 3.14 * 10^6
|
|||
<1 jan 91> Date form (enter using \\=' key)
|
||||
|
||||
|
||||
\\{calc-mode-map}
|
||||
"
|
||||
\\{calc-mode-map}"
|
||||
(interactive)
|
||||
(mapc (lambda (v)
|
||||
;; FIXME: Why (set-default v (symbol-value v)) ?!?!?
|
||||
|
|
@ -1383,12 +1372,12 @@ Notations: 3.14e6 3.14 * 10^6
|
|||
map))
|
||||
|
||||
(defun calc--header-line (long short width &optional fudge)
|
||||
"Return a Calc header line appropriate for the buffer width.
|
||||
"Return a Calc header line appropriate for the buffer WIDTH.
|
||||
|
||||
LONG is a desired text for a wide window, SHORT is a desired
|
||||
abbreviated text, and width is the buffer width, which will be
|
||||
some fraction of the 'parent' window width (At the time of
|
||||
writing, 2/3 for calc, 1/3 for trail). The optional FUDGE is a
|
||||
writing, 2/3 for calc, 1/3 for trail). The optional FUDGE is a
|
||||
trial-and-error adjustment number for the edge-cases at the
|
||||
border of the two cases."
|
||||
;; TODO: This could be called as part of a 'window-resize' hook.
|
||||
|
|
@ -1410,7 +1399,7 @@ border of the two cases."
|
|||
This mode is used by the *Calc Trail* buffer, which records all results
|
||||
obtained by the GNU Emacs Calculator.
|
||||
|
||||
Calculator commands beginning with the `t' key are used to manipulate
|
||||
Calculator commands beginning with the t key are used to manipulate
|
||||
the Trail.
|
||||
|
||||
This buffer uses the same key map as the *Calculator* buffer; calculator
|
||||
|
|
@ -1501,7 +1490,7 @@ See `window-dedicated-p' for what that means."
|
|||
(calc nil t interactive))
|
||||
|
||||
(defun calc-same-interface (arg)
|
||||
"Invoke the Calculator using the most recent interface (calc or calc-keypad)."
|
||||
"Invoke the Calculator using the most recent interface (`calc' or `calc-keypad')."
|
||||
(interactive "P")
|
||||
(if (and (equal (buffer-name) "*Gnuplot Trail*")
|
||||
(> (recursion-depth) 0))
|
||||
|
|
@ -1578,7 +1567,7 @@ or a list containing a character position and an error message in string form."
|
|||
"Invoke the Calculator in \"visual keypad\" mode.
|
||||
This is most useful in the X window system.
|
||||
In this mode, click on the Calc \"buttons\" using the left mouse button.
|
||||
Or, position the cursor manually and do M-x calc-keypad-press."
|
||||
Or, position the cursor manually and do \\[calc-keypad-press]."
|
||||
(interactive "p")
|
||||
(require 'calc-ext)
|
||||
(calc-do-keypad calc-full-mode interactive))
|
||||
|
|
|
|||
|
|
@ -1475,8 +1475,7 @@ a multiplication."
|
|||
(calculator-put-value (calculator-string-to-number str)))))
|
||||
|
||||
(defun calculator-register-read-with-preview (prompt)
|
||||
"Similar to `register-read-with-preview' but for calculator
|
||||
registers."
|
||||
"Similar to `register-read-with-preview' but for calculator registers."
|
||||
(let ((register-alist calculator-registers)
|
||||
(register-preview-delay 1)
|
||||
(register-preview-function
|
||||
|
|
|
|||
|
|
@ -263,7 +263,7 @@ Optional string ARGS are included as options for the article
|
|||
document class with inclusion of default values \"12pt\" for
|
||||
size, and \"a4paper\" for paper unless size or paper are already
|
||||
specified in ARGS. When ARGS is omitted, by default the option
|
||||
\"12pt,a4paper\" is passed. When ARGS has any other value, then
|
||||
\"12pt,a4paper\" is passed. When ARGS has any other value, then
|
||||
no option is passed to the class.
|
||||
|
||||
Insert the \"\\usepackage{geometry}\" directive when ARGS
|
||||
|
|
|
|||
|
|
@ -1749,7 +1749,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
|
|||
(defun icalendar--convert-float-to-ical (nonmarker entry-main)
|
||||
"Convert float diary entry to iCalendar format -- partially unsupported!
|
||||
|
||||
FIXME! DAY from diary-float yet unimplemented.
|
||||
FIXME! DAY from `diary-float' yet unimplemented.
|
||||
|
||||
NONMARKER is a regular expression matching the start of non-marking
|
||||
entries. ENTRY-MAIN is the first line of the diary entry."
|
||||
|
|
|
|||
|
|
@ -6543,8 +6543,8 @@ Filtered Items mode following todo (not done) items."
|
|||
map)
|
||||
"Todo Filtered Items mode keymap.")
|
||||
|
||||
(easy-menu-define
|
||||
todo-menu todo-mode-map "Todo Menu"
|
||||
(easy-menu-define todo-menu todo-mode-map
|
||||
"Todo Menu."
|
||||
'("Todo"
|
||||
("Navigation"
|
||||
["Next Item" todo-next-item t]
|
||||
|
|
|
|||
|
|
@ -69,7 +69,7 @@ into memory.")
|
|||
(let* ((fc (oref dirmatch fromconfig))
|
||||
(found (cond ((stringp fc) fc)
|
||||
((functionp fc) (funcall fc))
|
||||
(t (error "Unknown dirmatch object match style.")))))
|
||||
(t (error "Unknown dirmatch object match style")))))
|
||||
(expand-file-name found)
|
||||
))
|
||||
|
||||
|
|
@ -129,7 +129,7 @@ into memory.")
|
|||
|
||||
;; Error if none others known
|
||||
(t
|
||||
(error "Unknown dirmatch object match style.")))
|
||||
(error "Unknown dirmatch object match style")))
|
||||
))
|
||||
|
||||
(declare-function ede-directory-safe-p "ede")
|
||||
|
|
|
|||
|
|
@ -103,7 +103,7 @@
|
|||
;;
|
||||
;; If the cpp-root project style is right for you, but you want a
|
||||
;; dynamic loader, instead of hard-coding values in your .emacs, you
|
||||
;; can do that too, but you will need to write some lisp code.
|
||||
;; can do that too, but you will need to write some Lisp code.
|
||||
;;
|
||||
;; To do that, you need to add an entry to the
|
||||
;; `ede-project-class-files' list, and also provide two functions to
|
||||
|
|
|
|||
|
|
@ -30,7 +30,7 @@
|
|||
;; Formatting of a makefile
|
||||
;;
|
||||
;; 1) Creating an automakefile, stick in a top level comment about
|
||||
;; being created by emacs
|
||||
;; being created by Emacs.
|
||||
;; 2) Leave order of variable contents alone, except for SOURCE
|
||||
;; SOURCE always keep in the order of .c, .h, the other stuff.
|
||||
|
||||
|
|
|
|||
|
|
@ -54,8 +54,8 @@ load path."
|
|||
Each package name will be loaded with `require'.
|
||||
Each package's directory should also appear in :aux-packages via a package name.")
|
||||
)
|
||||
"This target consists of a group of lisp files.
|
||||
A lisp target may be one general program with many separate lisp files in it.")
|
||||
"This target consists of a group of Lisp files.
|
||||
A Lisp target may be one general program with many separate Lisp files in it.")
|
||||
|
||||
(cl-defmethod ede-proj-makefile-insert-rules :after ((this ede-proj-target-elisp))
|
||||
"Insert rules needed by THIS target.
|
||||
|
|
|
|||
|
|
@ -562,7 +562,7 @@ Converts all symbols into the objects to be used."
|
|||
;; Provide a good error msg.
|
||||
(unless comp
|
||||
(error "Could not find compiler match for source code extension \"%s\".
|
||||
You may need to add support for this type of file."
|
||||
You may need to add support for this type of file"
|
||||
(if sources
|
||||
(file-name-extension (car sources))
|
||||
"")))
|
||||
|
|
|
|||
|
|
@ -130,7 +130,7 @@ other meta-variable based on this name.")
|
|||
(defclass project-am-program (project-am-objectcode)
|
||||
((ldadd :initarg :ldadd :documentation "Additional LD args."
|
||||
:initform nil))
|
||||
"A top level program to build")
|
||||
"A top level program to build.")
|
||||
|
||||
(defclass project-am-header (project-am-target)
|
||||
()
|
||||
|
|
@ -154,7 +154,7 @@ other meta-variable based on this name.")
|
|||
|
||||
(defclass project-am-lib (project-am-objectcode)
|
||||
nil
|
||||
"A top level library to build")
|
||||
"A top level library to build.")
|
||||
|
||||
(defclass project-am-lisp (project-am-target)
|
||||
()
|
||||
|
|
@ -705,7 +705,7 @@ Strip out duplicates, and recurse on variables."
|
|||
(oset this source (makefile-macro-file-list (project-am-macro this))))
|
||||
|
||||
(cl-defmethod project-rescan ((this project-am-lisp))
|
||||
"Rescan the lisp sources."
|
||||
"Rescan the Lisp sources."
|
||||
(oset this source (makefile-macro-file-list (project-am-macro this))))
|
||||
|
||||
(cl-defmethod project-rescan ((this project-am-header))
|
||||
|
|
|
|||
|
|
@ -91,12 +91,12 @@ that they are willing to use.")
|
|||
(ede-want-file-auxiliary-p this filename)))
|
||||
|
||||
(cl-defmethod ede-want-file-source-p ((this ede-sourcecode) filename)
|
||||
"Return non-nil if THIS will take FILENAME as an auxiliary ."
|
||||
"Return non-nil if THIS will take FILENAME as an auxiliary."
|
||||
(let ((case-fold-search nil))
|
||||
(string-match (oref this sourcepattern) filename)))
|
||||
|
||||
(cl-defmethod ede-want-file-auxiliary-p ((this ede-sourcecode) filename)
|
||||
"Return non-nil if THIS will take FILENAME as an auxiliary ."
|
||||
"Return non-nil if THIS will take FILENAME as an auxiliary."
|
||||
(let ((case-fold-search nil))
|
||||
(and (slot-boundp this 'auxsourcepattern)
|
||||
(oref this auxsourcepattern)
|
||||
|
|
|
|||
|
|
@ -773,11 +773,11 @@ SYMBOL is a function that can be overridden."
|
|||
(defconst xref-mode-local-find-overloadable-regexp
|
||||
"(define-overload\\(able-function\\)? +%s"
|
||||
"Regexp used by `xref-find-definitions' when searching for a
|
||||
mode-local overloadable function definition.")
|
||||
mode-local overloadable function definition.")
|
||||
|
||||
(defun xref-mode-local-find-override (meta-name)
|
||||
"Function used by `xref-find-definitions' when searching for an
|
||||
override of a mode-local overloadable function.
|
||||
override of a mode-local overloadable function.
|
||||
META-NAME is a cons (OVERLOADABLE-SYMBOL . MAJOR-MODE)."
|
||||
(let* ((override (car meta-name))
|
||||
(mode (cdr meta-name))
|
||||
|
|
|
|||
|
|
@ -271,7 +271,7 @@ a parse of the buffer.")
|
|||
(defsubst semantic-error-if-unparsed ()
|
||||
"Raise an error if current buffer was not parsed by Semantic."
|
||||
(unless semantic-new-buffer-fcn-was-run
|
||||
(error "Buffer was not parsed by Semantic.")))
|
||||
(error "Buffer was not parsed by Semantic")))
|
||||
|
||||
(defsubst semantic--umatched-syntax-needs-refresh-p ()
|
||||
"Return non-nil if the unmatched syntax cache needs a refresh.
|
||||
|
|
|
|||
|
|
@ -107,7 +107,7 @@ in a buffer."
|
|||
;; Buffer was not parsed by Semantic.
|
||||
;; Raise error if called interactively.
|
||||
(when (called-interactively-p 'any)
|
||||
(error "Buffer was not parsed by Semantic."))))
|
||||
(error "Buffer was not parsed by Semantic"))))
|
||||
|
||||
(defvar semantic--prefixtypes)
|
||||
|
||||
|
|
|
|||
|
|
@ -1937,7 +1937,7 @@ For types with a :parent, create faux namespaces to put TAG into."
|
|||
|
||||
(define-mode-local-override semanticdb-find-table-for-include c-mode
|
||||
(includetag &optional table)
|
||||
"For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object
|
||||
"For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object.
|
||||
INCLUDETAG is a semantic TAG of class `include'.
|
||||
TABLE is a semanticdb table that identifies where INCLUDETAG came from.
|
||||
TABLE is optional if INCLUDETAG has an overlay of :filename attribute.
|
||||
|
|
@ -2034,7 +2034,7 @@ for arguments compared."
|
|||
(if blankok t (semantic--tag-similar-names-p-default tag1 tag2 nil)))
|
||||
|
||||
(define-mode-local-override semantic--tag-similar-types-p c-mode (tag1 tag2)
|
||||
"For c-mode, deal with TAG1 and TAG2 being used in different namespaces.
|
||||
"For `c-mode', deal with TAG1 and TAG2 being used in different namespaces.
|
||||
In this case, one type will be shorter than the other. Instead
|
||||
of fully resolving all namespaces currently in scope for both
|
||||
types, we simply compare as many elements as the shorter type
|
||||
|
|
@ -2064,7 +2064,7 @@ provides."
|
|||
|
||||
(define-mode-local-override semantic--tag-attribute-similar-p c-mode
|
||||
(attr value1 value2 ignorable-attributes)
|
||||
"For c-mode, allow function :arguments to ignore the :name attributes."
|
||||
"For `c-mode', allow function :arguments to ignore the :name attributes."
|
||||
(cond ((eq attr :arguments)
|
||||
(semantic--tag-attribute-similar-p-default attr value1 value2
|
||||
(cons :name ignorable-attributes)))
|
||||
|
|
|
|||
|
|
@ -113,7 +113,7 @@ LEXTOKEN, is a token returned by the lexer which is being matched."
|
|||
:documentation
|
||||
"An error condition caught in an action.")
|
||||
)
|
||||
"Debugger frame representation of a lisp error thrown during parsing.")
|
||||
"Debugger frame representation of a Lisp error thrown during parsing.")
|
||||
|
||||
(defun semantic-create-bovine-debug-error-frame (condition)
|
||||
"Create an error frame for bovine debugger.
|
||||
|
|
|
|||
|
|
@ -930,7 +930,7 @@ inserted into the current context.")
|
|||
|
||||
(cl-defmethod semantic-collector-calculate-completions-raw
|
||||
((obj semantic-collector-analyze-completions) prefix _completionlist)
|
||||
"calculate the completions for prefix from COMPLETIONLIST."
|
||||
"Calculate the completions for prefix from COMPLETIONLIST."
|
||||
;; if there are no completions yet, calculate them.
|
||||
(if (not (slot-boundp obj 'first-pass-completions))
|
||||
(oset obj first-pass-completions
|
||||
|
|
|
|||
|
|
@ -328,7 +328,7 @@ Like `semanticdb-find-tags-for-completion-method' for Emacs Lisp."
|
|||
;;
|
||||
(cl-defmethod semanticdb-find-tags-external-children-of-type-method
|
||||
((_table semanticdb-table-emacs-lisp) type &optional tags)
|
||||
"Find all nonterminals which are child elements of TYPE
|
||||
"Find all nonterminals which are child elements of TYPE.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Return a list of tags."
|
||||
(if tags (cl-call-next-method)
|
||||
|
|
|
|||
|
|
@ -315,7 +315,7 @@ Default action as described in `semanticdb-find-translate-path'."
|
|||
|
||||
;;;###autoload
|
||||
(define-overloadable-function semanticdb-find-table-for-include (includetag &optional table)
|
||||
"For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object
|
||||
"For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object.
|
||||
INCLUDETAG is a semantic TAG of class `include'.
|
||||
TABLE is a semanticdb table that identifies where INCLUDETAG came from.
|
||||
TABLE is optional if INCLUDETAG has an overlay of :filename attribute."
|
||||
|
|
|
|||
|
|
@ -547,8 +547,7 @@ found tag to be loaded."
|
|||
(cl-defmethod semanticdb-typecache-for-database ((db semanticdb-project-database)
|
||||
&optional mode)
|
||||
"Return the typecache for the project database DB.
|
||||
If there isn't one, create it.
|
||||
"
|
||||
If there isn't one, create it."
|
||||
(let ((lmode (or mode major-mode))
|
||||
(cache (semanticdb-get-typecache db))
|
||||
(stream nil)
|
||||
|
|
|
|||
|
|
@ -108,7 +108,7 @@ These buffers are brought into view when layout occurs.")
|
|||
:documentation
|
||||
"Any active overlays being used to show the debug position.")
|
||||
)
|
||||
"Controls action when in `semantic-debug-mode'")
|
||||
"Controls action when in `semantic-debug-mode'.")
|
||||
|
||||
;; Methods
|
||||
(cl-defmethod semantic-debug-set-frame ((iface semantic-debug-interface) frame)
|
||||
|
|
@ -559,10 +559,8 @@ down to your parser later."
|
|||
(cl-defmethod semantic-debug-parser-frames ((_parser semantic-debug-parser))
|
||||
"Return a list of frames for the current parser.
|
||||
A frame is of the form:
|
||||
( .. .what ? .. )
|
||||
"
|
||||
(error "Parser has not implemented frame values")
|
||||
)
|
||||
( .. .what ? .. )"
|
||||
(error "Parser has not implemented frame values"))
|
||||
|
||||
|
||||
(provide 'semantic/debug)
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ Used by the decoration style: `semantic-decoration-on-includes'."
|
|||
(easy-menu-define
|
||||
semantic-decoration-on-include-menu
|
||||
semantic-decoration-on-include-map
|
||||
"Include Menu"
|
||||
"Include Menu."
|
||||
(list
|
||||
"Include"
|
||||
["What Is This?" semantic-decoration-include-describe
|
||||
|
|
@ -124,7 +124,7 @@ Used by the decoration style: `semantic-decoration-on-unknown-includes'."
|
|||
(easy-menu-define
|
||||
semantic-decoration-on-unknown-include-menu
|
||||
semantic-decoration-on-unknown-include-map
|
||||
"Unknown Include Menu"
|
||||
"Unknown Include Menu."
|
||||
(list
|
||||
"Unknown Include"
|
||||
["What Is This?" semantic-decoration-unknown-include-describe
|
||||
|
|
@ -179,7 +179,7 @@ Used by the decoration style: `semantic-decoration-on-fileless-includes'."
|
|||
(easy-menu-define
|
||||
semantic-decoration-on-fileless-include-menu
|
||||
semantic-decoration-on-fileless-include-map
|
||||
"Fileless Include Menu"
|
||||
"Fileless Include Menu."
|
||||
(list
|
||||
"Fileless Include"
|
||||
["What Is This?" semantic-decoration-fileless-include-describe
|
||||
|
|
@ -234,7 +234,7 @@ Used by the decoration style: `semantic-decoration-on-unparsed-includes'."
|
|||
(easy-menu-define
|
||||
semantic-decoration-on-unparsed-include-menu
|
||||
semantic-decoration-on-unparsed-include-map
|
||||
"Unparsed Include Menu"
|
||||
"Unparsed Include Menu."
|
||||
(list
|
||||
"Unparsed Include"
|
||||
["What Is This?" semantic-decoration-unparsed-include-describe
|
||||
|
|
|
|||
|
|
@ -185,7 +185,7 @@ max-lisp-eval-depth 700)'\n"
|
|||
|
||||
(cl-defmethod ede-proj-makefile-insert-dist-dependencies ((this semantic-ede-proj-target-grammar))
|
||||
"Insert dist dependencies, or intermediate targets.
|
||||
This makes sure that all grammar lisp files are created before the dist
|
||||
This makes sure that all grammar Lisp files are created before the dist
|
||||
runs, so they are always up to date.
|
||||
Argument THIS is the target that should insert stuff."
|
||||
(cl-call-next-method)
|
||||
|
|
|
|||
|
|
@ -284,7 +284,7 @@ later installation should be done in MODE hook."
|
|||
(defvar semantic-current-input-throw-symbol nil
|
||||
"The current throw symbol for `semantic-exit-on-input'.")
|
||||
(defvar semantic--on-input-start-marker nil
|
||||
"The marker when starting a semantic-exit-on-input form.")
|
||||
"The marker when starting a `semantic-exit-on-input' form.")
|
||||
|
||||
(defmacro semantic-exit-on-input (symbol &rest forms)
|
||||
"Using SYMBOL as an argument to `throw', execute FORMS.
|
||||
|
|
|
|||
|
|
@ -840,7 +840,7 @@ If optional argument FORCE is non-nil, unconditionally re-generate the
|
|||
Lisp code."
|
||||
(interactive "P")
|
||||
(unless (semantic-active-p)
|
||||
(error "You have to activate semantic-mode to create a package."))
|
||||
(error "You have to activate semantic-mode to create a package"))
|
||||
(setq force (or force current-prefix-arg))
|
||||
(semantic-fetch-tags)
|
||||
(let* (
|
||||
|
|
|
|||
|
|
@ -1070,7 +1070,7 @@ be called."
|
|||
(easy-menu-define
|
||||
semantic-idle-breadcrumbs-popup-menu
|
||||
semantic-idle-breadcrumbs-popup-map
|
||||
"Semantic Breadcrumbs Mode Menu"
|
||||
"Semantic Breadcrumbs Mode Menu."
|
||||
(list
|
||||
"Breadcrumb Tag"
|
||||
(vector
|
||||
|
|
|
|||
|
|
@ -39,7 +39,7 @@
|
|||
)
|
||||
"A symref tool implementation using grep.
|
||||
This tool uses EDE to find the root of the project, then executes
|
||||
find-grep in the project. The output is parsed for hits and
|
||||
`find-grep' in the project. The output is parsed for hits and
|
||||
those hits returned.")
|
||||
|
||||
(defvar semantic-symref-filepattern-alist
|
||||
|
|
|
|||
|
|
@ -152,7 +152,7 @@ Display the references in `semantic-symref-results-mode'."
|
|||
|
||||
(easy-menu-define semantic-symref-list-menu
|
||||
semantic-symref-results-mode-map
|
||||
"Symref Mode Menu"
|
||||
"Symref Mode Menu."
|
||||
semantic-symref-list-menu-entries)
|
||||
|
||||
(defcustom semantic-symref-auto-expand-results nil
|
||||
|
|
|
|||
|
|
@ -119,8 +119,7 @@ Statement that represents a file from which more tags can be found.
|
|||
Statement that declares this file's package name.
|
||||
@item code
|
||||
Code that has not name or binding to any other symbol, such as in a script.
|
||||
@end table
|
||||
"
|
||||
@end table"
|
||||
(nth 1 tag))
|
||||
|
||||
(defsubst semantic-tag-attributes (tag)
|
||||
|
|
@ -703,7 +702,7 @@ It is safe for FILTER to modify the input tag and return it."
|
|||
|
||||
It is safe to modify ATTR, and return a permutation of that list.
|
||||
|
||||
FILTER takes TAG as an argument, and should returns a semantic-tag.
|
||||
FILTER takes TAG as an argument, and should return a semantic-tag.
|
||||
It is safe for FILTER to modify the input tag and return it."
|
||||
(when (car attrs)
|
||||
(when (not (symbolp (car attrs))) (error "Bad Attribute List in tag"))
|
||||
|
|
@ -716,7 +715,7 @@ It is safe for FILTER to modify the input tag and return it."
|
|||
|
||||
It is safe to modify VALUE, and return a permutation of that list.
|
||||
|
||||
FILTER takes TAG as an argument, and should returns a semantic-tag.
|
||||
FILTER takes TAG as an argument, and should return a semantic-tag.
|
||||
It is safe for FILTER to modify the input tag and return it."
|
||||
(cond
|
||||
;; Another tag.
|
||||
|
|
@ -735,7 +734,7 @@ It is safe for FILTER to modify the input tag and return it."
|
|||
|
||||
It is safe to modify the TAGS list, and return a permutation of that list.
|
||||
|
||||
FILTER takes TAG as an argument, and should returns a semantic-tag.
|
||||
FILTER takes TAG as an argument, and should return a semantic-tag.
|
||||
It is safe for FILTER to modify the input tag and return it."
|
||||
(when (car tags)
|
||||
(if (semantic-tag-p (car tags))
|
||||
|
|
@ -1309,12 +1308,12 @@ This function is overridable with the symbol `insert-foreign-tag'."
|
|||
;;; Support log modes here
|
||||
(define-mode-local-override semantic-insert-foreign-tag
|
||||
log-edit-mode (foreign-tag)
|
||||
"Insert foreign tags into log-edit mode."
|
||||
"Insert foreign tags into `log-edit' mode."
|
||||
(insert (concat "(" (semantic-format-tag-name foreign-tag) "): ")))
|
||||
|
||||
(define-mode-local-override semantic-insert-foreign-tag
|
||||
change-log-mode (foreign-tag)
|
||||
"Insert foreign tags into log-edit mode."
|
||||
"Insert foreign tags into `log-edit' mode."
|
||||
(insert (concat "(" (semantic-format-tag-name foreign-tag) "): ")))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -565,7 +565,7 @@ to indicate a parse in progress."
|
|||
(easy-menu-define
|
||||
semantic-stickyfunc-popup-menu
|
||||
semantic-stickyfunc-mode-map
|
||||
"Stickyfunc Menu"
|
||||
"Stickyfunc Menu."
|
||||
'("Stickyfunc Mode" :visible (progn nil)
|
||||
[ "Copy Headerline Tag" senator-copy-tag
|
||||
:active (semantic-current-tag)
|
||||
|
|
@ -837,7 +837,7 @@ Used by `semantic-highlight-func-mode'.")
|
|||
(easy-menu-define
|
||||
semantic-highlight-func-popup-menu
|
||||
semantic-highlight-func-mode-map
|
||||
"Highlight-Func Menu"
|
||||
"Highlight-Func Menu."
|
||||
'("Highlight-Func Mode" :visible (progn nil)
|
||||
[ "Copy Tag" senator-copy-tag
|
||||
:active (semantic-current-tag)
|
||||
|
|
|
|||
|
|
@ -60,7 +60,7 @@ Some useful context values used by the provided srecode templates are:
|
|||
\"pure\" - and those virtual items are pure virtual
|
||||
\"type\" - In or near type declarations.
|
||||
\"comment\" - In a comment in a block of code
|
||||
-- these items show up at the end of the context list. --
|
||||
-- these items show up at the end of the context list. --
|
||||
\"public\", \"protected\", \"private\" -
|
||||
In or near a section of public/protected/private entries.
|
||||
\"code\" - In a block of code.
|
||||
|
|
|
|||
|
|
@ -410,7 +410,7 @@ OTHERDICT."
|
|||
"Return information about DICT's value for NAME.
|
||||
DICT is a dictionary, and NAME is a string that is treated as the
|
||||
name of an entry in the dictionary. If such an entry exists, its
|
||||
value is returned. Otherwise, nil is returned. Normally, the
|
||||
value is returned. Otherwise, nil is returned. Normally, the
|
||||
lookup is recursive in the sense that the parent of DICT is
|
||||
searched for NAME if it is not found in DICT. This recursive
|
||||
lookup can be disabled by the optional argument NON-RECURSIVE.
|
||||
|
|
|
|||
|
|
@ -201,7 +201,7 @@ variable default values, and other things."
|
|||
(let ((tag (or srecode-semantic-selected-tag
|
||||
(srecode-semantic-tag-from-kill-ring))))
|
||||
(when (not tag)
|
||||
(error "No tag for current template. Use the semantic kill-ring."))
|
||||
(error "No tag for current template. Use the semantic kill-ring"))
|
||||
(srecode-semantic-apply-tag-to-dict
|
||||
(srecode-semantic-tag (semantic-tag-name tag)
|
||||
:prime tag)
|
||||
|
|
|
|||
|
|
@ -33,15 +33,15 @@
|
|||
;; merge them into the master source.
|
||||
;;
|
||||
;; NOTE: MIT Cscheme, when invoked with the -emacs flag, has a special user
|
||||
;; interface that communicates process state back to the superior emacs by
|
||||
;; interface that communicates process state back to the superior Emacs by
|
||||
;; outputting special control sequences. The Emacs package, xscheme.el, has
|
||||
;; lots and lots of special purpose code to read these control sequences, and
|
||||
;; so is very tightly integrated with the cscheme process. The cscheme
|
||||
;; interrupt handler and debugger read single character commands in cbreak
|
||||
;; mode; when this happens, xscheme.el switches to special keymaps that bind
|
||||
;; the single letter command keys to emacs functions that directly send the
|
||||
;; the single letter command keys to Emacs functions that directly send the
|
||||
;; character to the scheme process. Cmuscheme mode does *not* provide this
|
||||
;; functionality. If you are a cscheme user, you may prefer to use the
|
||||
;; functionality. If you are a cscheme user, you may prefer to use the
|
||||
;; xscheme.el/cscheme -emacs interaction.
|
||||
;;
|
||||
;; Here's a summary of the pros and cons, as I see them.
|
||||
|
|
@ -159,7 +159,7 @@
|
|||
The following commands are available:
|
||||
\\{inferior-scheme-mode-map}
|
||||
|
||||
A Scheme process can be fired up with M-x run-scheme.
|
||||
A Scheme process can be fired up with \\[run-scheme].
|
||||
|
||||
Customization: Entry to this mode runs the hooks on `comint-mode-hook' and
|
||||
`inferior-scheme-mode-hook' (in that order).
|
||||
|
|
|
|||
|
|
@ -191,7 +191,7 @@ wish to put something like the following in your init file:
|
|||
(define-key comint-mode-map [remap kill-whole-line]
|
||||
\\='comint-kill-whole-line)))
|
||||
|
||||
If you sometimes use comint-mode on text-only terminals or with `emacs -nw',
|
||||
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'."
|
||||
:type 'boolean
|
||||
:group 'comint
|
||||
|
|
|
|||
|
|
@ -178,7 +178,7 @@
|
|||
;; Inserts a completion at point
|
||||
;;
|
||||
;; completion-initialize
|
||||
;; Loads the completions file and sets up so that exiting emacs will
|
||||
;; Loads the completions file and sets up so that exiting Emacs will
|
||||
;; save them.
|
||||
;;
|
||||
;; save-completions-to-file &optional filename
|
||||
|
|
@ -207,7 +207,7 @@
|
|||
;; Add package prefix smarts (for Common Lisp)
|
||||
;; Add autoprompting of possible completions after every keystroke (fast
|
||||
;; terminals only !)
|
||||
;; Add doc. to texinfo
|
||||
;; Add documentation to texinfo
|
||||
;;
|
||||
;;
|
||||
;;-----------------------------------------------
|
||||
|
|
|
|||
|
|
@ -864,7 +864,7 @@ Auto Composition mode in all buffers (this is the default)."
|
|||
"Toggle Auto Composition mode in all buffers.
|
||||
|
||||
For more information on Auto Composition mode, see
|
||||
`auto-composition-mode' ."
|
||||
`auto-composition-mode'."
|
||||
:global t
|
||||
:variable (default-value 'auto-composition-mode))
|
||||
|
||||
|
|
|
|||
|
|
@ -276,7 +276,7 @@ See the `delimit-columns-str-before',
|
|||
`delimit-columns-before', `delimit-columns-after',
|
||||
`delimit-columns-separator', `delimit-columns-format' and
|
||||
`delimit-columns-extra' variables for customization of the
|
||||
look. "
|
||||
look."
|
||||
(interactive "*r")
|
||||
(if rectangle-mark-mode
|
||||
;; Delegate to delimit-columns-rectangle when called with a
|
||||
|
|
|
|||
|
|
@ -97,7 +97,7 @@ into help buttons that call `describe-text-category' or
|
|||
;;; Describe-Text Commands.
|
||||
|
||||
(defun describe-text-category (category)
|
||||
"Describe a text property category."
|
||||
"Describe a text property CATEGORY."
|
||||
(interactive "SCategory: ")
|
||||
(help-setup-xref (list #'describe-text-category category)
|
||||
(called-interactively-p 'interactive))
|
||||
|
|
|
|||
|
|
@ -2340,9 +2340,9 @@ If DIRECTORY already exists, signal an error."
|
|||
;;;###autoload
|
||||
(defun dired-create-empty-file (file)
|
||||
"Create an empty file called FILE.
|
||||
Add a new entry for the new file in the Dired buffer.
|
||||
Parent directories of FILE are created as needed.
|
||||
If FILE already exists, signal an error."
|
||||
Add a new entry for the new file in the Dired buffer.
|
||||
Parent directories of FILE are created as needed.
|
||||
If FILE already exists, signal an error."
|
||||
(interactive (list (read-file-name "Create empty file: ")))
|
||||
(let* ((expanded (expand-file-name file))
|
||||
new)
|
||||
|
|
|
|||
|
|
@ -315,12 +315,12 @@ new Dired buffers."
|
|||
|
||||
(defcustom dired-always-read-filesystem nil
|
||||
"Non-nil means revert buffers visiting files before searching them.
|
||||
By default, commands like `dired-mark-files-containing-regexp' will
|
||||
search any buffers visiting the marked files without reverting them,
|
||||
even if they were changed on disk. When this option is non-nil, such
|
||||
buffers are always reverted in a temporary buffer before searching
|
||||
them: the search is performed on the temporary buffer, the original
|
||||
buffer visiting the file is not modified."
|
||||
By default, commands like `dired-mark-files-containing-regexp' will
|
||||
search any buffers visiting the marked files without reverting them,
|
||||
even if they were changed on disk. When this option is non-nil, such
|
||||
buffers are always reverted in a temporary buffer before searching
|
||||
them: the search is performed on the temporary buffer, the original
|
||||
buffer visiting the file is not modified."
|
||||
:type 'boolean
|
||||
:version "26.1"
|
||||
:group 'dired)
|
||||
|
|
@ -1019,27 +1019,27 @@ If DIRNAME is already in a Dired buffer, that buffer is used without refresh."
|
|||
;;;###autoload (define-key ctl-x-4-map "d" 'dired-other-window)
|
||||
;;;###autoload
|
||||
(defun dired-other-window (dirname &optional switches)
|
||||
"\"Edit\" directory DIRNAME. Like `dired' but selects in another window."
|
||||
"\"Edit\" directory DIRNAME. Like `dired' but select in another window."
|
||||
(interactive (dired-read-dir-and-switches "in other window "))
|
||||
(switch-to-buffer-other-window (dired-noselect dirname switches)))
|
||||
|
||||
;;;###autoload (define-key ctl-x-5-map "d" 'dired-other-frame)
|
||||
;;;###autoload
|
||||
(defun dired-other-frame (dirname &optional switches)
|
||||
"\"Edit\" directory DIRNAME. Like `dired' but makes a new frame."
|
||||
"\"Edit\" directory DIRNAME. Like `dired' but make a new frame."
|
||||
(interactive (dired-read-dir-and-switches "in other frame "))
|
||||
(switch-to-buffer-other-frame (dired-noselect dirname switches)))
|
||||
|
||||
;;;###autoload (define-key tab-prefix-map "d" 'dired-other-tab)
|
||||
;;;###autoload
|
||||
(defun dired-other-tab (dirname &optional switches)
|
||||
"\"Edit\" directory DIRNAME. Like `dired' but makes a new tab."
|
||||
"\"Edit\" directory DIRNAME. Like `dired' but make a new tab."
|
||||
(interactive (dired-read-dir-and-switches "in other tab "))
|
||||
(switch-to-buffer-other-tab (dired-noselect dirname switches)))
|
||||
|
||||
;;;###autoload
|
||||
(defun dired-noselect (dir-or-list &optional switches)
|
||||
"Like `dired' but returns the Dired buffer as value, does not select it."
|
||||
"Like `dired' but return the Dired buffer as value, do not select it."
|
||||
(or dir-or-list (setq dir-or-list default-directory))
|
||||
;; This loses the distinction between "/foo/*/" and "/foo/*" that
|
||||
;; some shells make:
|
||||
|
|
@ -1616,7 +1616,7 @@ see `dired-use-ls-dired' for more details.")
|
|||
(dired-insert-set-properties content-point (point)))))
|
||||
|
||||
(defun dired-insert-set-properties (beg end)
|
||||
"Add various text properties to the lines in the region."
|
||||
"Add various text properties to the lines in the region, from BEG to END."
|
||||
(save-excursion
|
||||
(goto-char beg)
|
||||
(while (< (point) end)
|
||||
|
|
@ -2879,7 +2879,7 @@ If SUBDIRS is non-nil, also include the dired buffers of
|
|||
directories below DIR.
|
||||
The list is in reverse order of buffer creation, most recent last.
|
||||
As a side effect, killed dired buffers for DIR are removed from
|
||||
dired-buffers."
|
||||
`dired-buffers'."
|
||||
(setq dir (file-name-as-directory dir))
|
||||
(let (result buf)
|
||||
(dolist (elt dired-buffers)
|
||||
|
|
@ -4191,7 +4191,7 @@ The idea is to set this buffer-locally in special Dired buffers.")
|
|||
(defcustom dired-switches-in-mode-line nil
|
||||
"How to indicate `dired-actual-switches' in mode-line.
|
||||
Possible values:
|
||||
* `nil': Indicate name-or-date sort order, if possible.
|
||||
* nil: Indicate name-or-date sort order, if possible.
|
||||
Else show full switches.
|
||||
* `as-is': Show full switches.
|
||||
* Integer: Show only the first N chars of full switches.
|
||||
|
|
|
|||
|
|
@ -41,7 +41,7 @@
|
|||
;;
|
||||
;; C-x C-f ~/path/to/document RET
|
||||
;;
|
||||
;; and the document will be converted and displayed, if your emacs supports PNG
|
||||
;; and the document will be converted and displayed, if your Emacs supports PNG
|
||||
;; images. With `C-c C-c' you can toggle between the rendered images
|
||||
;; representation and the source text representation of the document.
|
||||
;;
|
||||
|
|
@ -788,7 +788,7 @@ OpenDocument format)."
|
|||
(doc-view-reconvert-doc)))))
|
||||
|
||||
(defun doc-view-shrink (factor)
|
||||
"Shrink the document."
|
||||
"Shrink the document by FACTOR."
|
||||
(interactive (list doc-view-shrink-factor))
|
||||
(doc-view-enlarge (/ 1.0 factor)))
|
||||
|
||||
|
|
@ -809,7 +809,7 @@ OpenDocument format)."
|
|||
FACTOR defaults to `doc-view-shrink-factor'.
|
||||
|
||||
The actual adjustment made depends on the final component of the
|
||||
key-binding used to invoke the command, with all modifiers removed:
|
||||
keybinding used to invoke the command, with all modifiers removed:
|
||||
|
||||
+, = Increase the image scale by FACTOR
|
||||
- Decrease the image scale by FACTOR
|
||||
|
|
@ -1197,7 +1197,7 @@ Start by converting PAGES, and then the rest."
|
|||
|
||||
(defun doc-view-current-cache-doc-pdf ()
|
||||
"Return the name of the doc.pdf in the current cache dir.
|
||||
This file exists only if the current document isn't a PDF or PS file already."
|
||||
This file exists only if the current document isn't a PDF or PS file already."
|
||||
(expand-file-name "doc.pdf" (doc-view--current-cache-dir)))
|
||||
|
||||
(defun doc-view-doc->txt (txt callback)
|
||||
|
|
|
|||
|
|
@ -290,14 +290,14 @@ and `dos-set-register-value', which see."
|
|||
;; set screen size.
|
||||
|
||||
(defun dos-mode25 ()
|
||||
"Changes the number of screen rows to 25."
|
||||
"Change the number of screen rows to 25."
|
||||
(interactive)
|
||||
(set-frame-size (selected-frame) 80 25))
|
||||
|
||||
(define-obsolete-function-alias 'mode25 'dos-mode25 "24.1")
|
||||
|
||||
(defun dos-mode4350 ()
|
||||
"Changes the number of rows to 43 or 50.
|
||||
"Change the number of rows to 43 or 50.
|
||||
Emacs always tries to set the screen height to 50 rows first.
|
||||
If this fails, it will try to set it to 43 rows, on the assumption
|
||||
that your video hardware might not support 50-line mode."
|
||||
|
|
|
|||
|
|
@ -337,7 +337,7 @@ or nil, use a compact 80-column format."
|
|||
(funcall finish-hook)))))
|
||||
|
||||
(defun edmacro-insert-key (key)
|
||||
"Insert the written name of a key in the buffer."
|
||||
"Insert the written name of a KEY in the buffer."
|
||||
(interactive "kKey to insert: ")
|
||||
(if (bolp)
|
||||
(insert (edmacro-format-keys key t) "\n")
|
||||
|
|
|
|||
|
|
@ -238,9 +238,9 @@ inside a comment or string."
|
|||
(self-insert-command 1)))
|
||||
|
||||
(cl-defmacro electric-pair--with-uncached-syntax ((table &optional start) &rest body)
|
||||
"Like `with-syntax-table', but flush the syntax-ppss cache afterwards.
|
||||
"Like `with-syntax-table', but flush the `syntax-ppss' cache afterwards.
|
||||
Use this instead of (with-syntax-table TABLE BODY) when BODY
|
||||
contains code which may update the syntax-ppss cache. This
|
||||
contains code which may update the `syntax-ppss' cache. This
|
||||
includes calling `parse-partial-sexp' and any sexp-based movement
|
||||
functions when `parse-sexp-lookup-properties' is non-nil. The
|
||||
cache is flushed from position START, defaulting to point."
|
||||
|
|
|
|||
|
|
@ -422,12 +422,12 @@ was first made obsolete, for example a date or a release number."
|
|||
&optional 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 \"28.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\")
|
||||
\(make-obsolete \\='old-fun \\='new-fun \"28.1\")
|
||||
|
||||
WHEN should be a string indicating when the function was first
|
||||
made obsolete, for example a date or a release number.
|
||||
|
|
@ -462,7 +462,7 @@ made obsolete, for example a date or a release number.
|
|||
This macro evaluates all its parameters, and both OBSOLETE-NAME
|
||||
and CURRENT-NAME should be symbols, so a typical usage would look like:
|
||||
|
||||
(define-obsolete-variable-alias 'foo-thing 'bar-thing \"27.1\")
|
||||
(define-obsolete-variable-alias 'foo-thing 'bar-thing \"28.1\")
|
||||
|
||||
This macro uses `defvaralias' and `make-obsolete-variable' (which see).
|
||||
See the Info node `(elisp)Variable Aliases' for more details.
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@
|
|||
|
||||
;; In addition to using the shifted movement keys, you can also use
|
||||
;; [C-space] to start the region and use unshifted movement keys to extend
|
||||
;; it. To cancel the region, use [C-space] or [C-g].
|
||||
;; it. To cancel the region, use [C-space] or [C-g].
|
||||
|
||||
;; If you prefer to use the standard Emacs cut, copy, paste, and undo
|
||||
;; bindings, customize cua-enable-cua-keys to nil.
|
||||
|
|
@ -116,7 +116,7 @@
|
|||
;; "register commands".
|
||||
;;
|
||||
;; CUA's register support is activated by providing a numeric
|
||||
;; prefix argument to the C-x, C-c, and C-v commands. For example,
|
||||
;; prefix argument to the C-x, C-c, and C-v commands. For example,
|
||||
;; to copy the selected region to register 2, enter [M-2 C-c].
|
||||
;; Or if you have activated the keypad prefix mode, enter [kp-2 C-c].
|
||||
;;
|
||||
|
|
@ -182,7 +182,7 @@
|
|||
;; If you type a normal (self-inserting) character when the rectangle is
|
||||
;; active, the character is inserted on the "current side" of every line
|
||||
;; of the rectangle. The "current side" is the side on which the cursor
|
||||
;; is currently located. If the rectangle is only 1 column wide,
|
||||
;; is currently located. If the rectangle is only 1 column wide,
|
||||
;; insertion will be performed to the left when the cursor is at the
|
||||
;; bottom of the rectangle. So, for example, to comment out an entire
|
||||
;; paragraph like this one, just place the cursor on the first character
|
||||
|
|
@ -360,7 +360,7 @@ managers, so try setting this to nil, if prefix override doesn't work."
|
|||
:type 'boolean)
|
||||
|
||||
(defcustom cua-paste-pop-rotate-temporarily nil
|
||||
"If non-nil, \\[cua-paste-pop] only rotates the kill-ring temporarily.
|
||||
"If non-nil, \\[cua-paste-pop] only rotates the kill ring temporarily.
|
||||
This means that both \\[yank] and the first \\[yank-pop] in a sequence always
|
||||
insert the most recently killed text. Each immediately following \\[cua-paste-pop]
|
||||
replaces the previous text with the next older element on the `kill-ring'.
|
||||
|
|
@ -1140,7 +1140,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
|
|||
def nil))
|
||||
|
||||
(defvar cua-global-keymap (make-sparse-keymap)
|
||||
"Global keymap for cua-mode; users may add to this keymap.")
|
||||
"Global keymap for `cua-mode'; users may add to this keymap.")
|
||||
|
||||
(defvar cua--cua-keys-keymap (make-sparse-keymap))
|
||||
(defvar cua--prefix-override-keymap (make-sparse-keymap))
|
||||
|
|
|
|||
|
|
@ -55,7 +55,7 @@
|
|||
|
||||
;; Usage:
|
||||
|
||||
;; Simply load this file into emacs and run the function edt-mapper,
|
||||
;; Simply load this file into Emacs and run the function edt-mapper,
|
||||
;; using the following command.
|
||||
|
||||
;; emacs -q -l edt-mapper -f edt-mapper
|
||||
|
|
@ -82,8 +82,8 @@
|
|||
|
||||
;; Sometimes, edt-mapper will ignore a key you press, and just
|
||||
;; continue to prompt for the same key. This can happen when your
|
||||
;; window manager sucks up the key and doesn't pass it on to emacs,
|
||||
;; or it could be an emacs bug. Either way, there's nothing that
|
||||
;; window manager sucks up the key and doesn't pass it on to Emacs,
|
||||
;; or it could be an Emacs bug. Either way, there's nothing that
|
||||
;; edt-mapper can do about it. You must press RETURN, to skip the
|
||||
;; current key and continue. Later, you and/or your local Emacs guru
|
||||
;; can try to figure out why the key is being ignored.
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@
|
|||
;;
|
||||
;; With the following setup, the keypad can be used for numeric data
|
||||
;; entry when NumLock is off, and to give numeric prefix arguments to
|
||||
;; emacs commands, when NumLock is on.
|
||||
;; Emacs commands, when NumLock is on.
|
||||
;;
|
||||
;; keypad-setup => Plain Numeric Keypad
|
||||
;; keypad-numlock-setup => Prefix numeric args
|
||||
|
|
@ -203,7 +203,7 @@ keys are bound.
|
|||
`S-cursor' Bind shifted keypad keys to the shifted cursor movement keys.
|
||||
`cursor' Bind keypad keys to the cursor movement keys.
|
||||
`numeric' Plain numeric keypad, i.e. 0 .. 9 and . (or DECIMAL arg)
|
||||
`none' Removes all bindings for keypad keys in function-key-map;
|
||||
`none' Removes all bindings for keypad keys in `function-key-map';
|
||||
this enables any user-defined bindings for the keypad keys
|
||||
in the global and local keymaps.
|
||||
|
||||
|
|
|
|||
|
|
@ -91,7 +91,7 @@
|
|||
space return
|
||||
delete backspace
|
||||
)
|
||||
"Movement commands")
|
||||
"Movement commands.")
|
||||
;; define viper-movement-command-p
|
||||
(viper-test-com-defun viper-movement-command)
|
||||
|
||||
|
|
@ -487,7 +487,7 @@
|
|||
(viper-change-state-to-vi))
|
||||
|
||||
(defun viper-set-mode-vars-for (state)
|
||||
"Sets Viper minor mode variables to put Viper's state STATE in effect."
|
||||
"Set Viper minor mode variables to put Viper's state STATE in effect."
|
||||
|
||||
;; Emacs state
|
||||
(setq viper-vi-minibuffer-minor-mode nil
|
||||
|
|
@ -1197,7 +1197,7 @@ as a Meta key and any number of multiple escapes are allowed."
|
|||
)
|
||||
|
||||
(defsubst viper-yank-last-insertion ()
|
||||
"Inserts the text saved by the previous viper-save-last-insertion command."
|
||||
"Insert the text saved by the previous viper-save-last-insertion command."
|
||||
(condition-case nil
|
||||
(insert viper-last-insertion)
|
||||
(error nil)))
|
||||
|
|
@ -1500,7 +1500,7 @@ Doesn't change viper-command-ring in any way, so `.' will work as before
|
|||
executing this command.
|
||||
This command is supposed to be bound to a two-character Vi macro where
|
||||
the second character is a digit 0 to 9. The digit indicates which
|
||||
history command to execute. `<char>0' is equivalent to `.', `<char>1'
|
||||
history command to execute. `<char>0' is equivalent to `.', `<char>1'
|
||||
invokes the command before that, etc."
|
||||
(interactive)
|
||||
(let* ((viper-intermediate-command 'repeating-display-destructive-command)
|
||||
|
|
@ -3838,7 +3838,7 @@ Null string will repeat previous search."
|
|||
;; yank and pop
|
||||
|
||||
(defsubst viper-yank (text)
|
||||
"Yank TEXT silently. This works correctly with Emacs's yank-pop command."
|
||||
"Yank TEXT silently. This works correctly with Emacs's `yank-pop' command."
|
||||
(insert text)
|
||||
(setq this-command 'yank))
|
||||
|
||||
|
|
@ -4510,7 +4510,7 @@ One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back."
|
|||
|
||||
|
||||
(defun viper-set-expert-level (&optional dont-change-unless)
|
||||
"Sets the expert level for a Viper user.
|
||||
"Set the expert level for a Viper user.
|
||||
Can be called interactively to change (temporarily or permanently) the
|
||||
current expert level.
|
||||
|
||||
|
|
|
|||
|
|
@ -2176,7 +2176,7 @@ Please contact your system administrator. "))))))
|
|||
(goto-char beg)))))
|
||||
|
||||
(defun ex-compile ()
|
||||
"Reads args from the command line, then runs make with the args.
|
||||
"Read args from the command line, then run make with the args.
|
||||
If no args are given, then it runs the last compile command.
|
||||
Type `mak ' (including the space) to run make with no args."
|
||||
(let (args)
|
||||
|
|
|
|||
|
|
@ -86,8 +86,8 @@ major mode in effect."
|
|||
"Keymap for user-defined local bindings.
|
||||
Useful for changing bindings such as ZZ in certain major modes.
|
||||
For instance, in letter-mode, one may want to bind ZZ to
|
||||
mh-send-letter. In a newsreader such as gnus, tin, or rn, ZZ could be bound
|
||||
to save-buffers-kill-emacs then post article, etc.")
|
||||
`mh-send-letter'. In a newsreader such as gnus, tin, or rn, ZZ could be bound
|
||||
to `save-buffers-kill-emacs' then post article, etc.")
|
||||
(put 'viper-vi-local-user-map 'permanent-local t)
|
||||
|
||||
(defvar viper-vi-global-user-map (make-sparse-keymap)
|
||||
|
|
@ -491,7 +491,7 @@ ALIST is of the form ((KEY . FUNC) (KEY . FUNC) ...)
|
|||
Normally, this would be called from a hook to a major mode or
|
||||
on a per buffer basis.
|
||||
Usage:
|
||||
(viper-add-local-keys state \\='((key-str . func) (key-str . func)...)) "
|
||||
(viper-add-local-keys state \\='((key-str . func) (key-str . func)...))"
|
||||
|
||||
(let (map)
|
||||
(cond ((eq state 'vi-state)
|
||||
|
|
@ -520,7 +520,7 @@ Usage:
|
|||
(defun viper-zap-local-keys ()
|
||||
"Unconditionally reset Viper viper-*-local-user-map's.
|
||||
Rarely useful, but if you made a mistake by switching to a mode that adds
|
||||
undesirable local keys, e.g., comint-mode, then this function can restore
|
||||
undesirable local keys, e.g., `comint-mode', then this function can restore
|
||||
sanity."
|
||||
(interactive)
|
||||
(setq viper-vi-local-user-map (make-sparse-keymap)
|
||||
|
|
|
|||
|
|
@ -116,7 +116,7 @@ considered related."
|
|||
(buffer-name (viper-mouse-click-window-buffer click)))
|
||||
|
||||
(defsubst viper-mouse-click-posn (click)
|
||||
"Returns position of a click."
|
||||
"Return position of a click."
|
||||
(declare (obsolete nil "27.1"))
|
||||
(posn-point (event-start click)))
|
||||
|
||||
|
|
|
|||
|
|
@ -15,7 +15,7 @@
|
|||
;; of the bug report be sent to the maintainer's email address.
|
||||
|
||||
(defconst viper-version "3.14.2 of July 4, 2013"
|
||||
"The current version of Viper")
|
||||
"The current version of Viper.")
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
@ -516,7 +516,7 @@ If Viper is enabled, turn it off. Otherwise, turn it on."
|
|||
|
||||
;;;###autoload
|
||||
(defun viper-mode ()
|
||||
"Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'."
|
||||
"Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'."
|
||||
(interactive)
|
||||
(if (not noninteractive)
|
||||
(progn
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
;;; Code:
|
||||
|
||||
(defgroup epa-file nil
|
||||
"The EasyPG Assistant hooks for transparent file encryption"
|
||||
"The EasyPG Assistant hooks for transparent file encryption."
|
||||
:version "23.1"
|
||||
:group 'epa)
|
||||
|
||||
|
|
|
|||
|
|
@ -30,7 +30,7 @@
|
|||
;;; Options
|
||||
|
||||
(defgroup epa nil
|
||||
"The EasyPG Assistant"
|
||||
"The EasyPG Assistant."
|
||||
:version "23.1"
|
||||
:link '(custom-manual "(epa) Top")
|
||||
:group 'epg)
|
||||
|
|
|
|||
|
|
@ -183,7 +183,7 @@ See `erc-auto-discard-away'."
|
|||
|
||||
(defcustom erc-autoaway-idle-seconds 1800
|
||||
"Number of seconds after which ERC will set you automatically away.
|
||||
If you are changing this variable using lisp instead of customizing it,
|
||||
If you are changing this variable using Lisp instead of customizing it,
|
||||
you have to run `erc-autoaway-reestablish-idletimer' afterwards."
|
||||
:set (lambda (sym val)
|
||||
(set-default sym val)
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
|
||||
;;; Commentary:
|
||||
|
||||
;; Heavily borrowed from gnus-art.el. Thanks to the original authors.
|
||||
;; Heavily borrowed from gnus-art.el. Thanks to the original authors.
|
||||
;; This buttonizes nicks and other stuff to make it all clickable.
|
||||
;; To enable, add to your init file:
|
||||
;; (require 'erc-button)
|
||||
|
|
@ -165,7 +165,7 @@ REGEXP is the string matching text around the button or a symbol
|
|||
BUTTON is the number of the regexp grouping actually matching the
|
||||
button. This is ignored if REGEXP is \\='nicknames.
|
||||
|
||||
FORM is a lisp expression which must eval to true for the button to
|
||||
FORM is a Lisp expression which must eval to true for the button to
|
||||
be added.
|
||||
|
||||
CALLBACK is the function to call when the user push this button.
|
||||
|
|
|
|||
|
|
@ -38,17 +38,16 @@
|
|||
:group 'erc)
|
||||
|
||||
(defcustom erc-ibuffer-keyword-char ?k
|
||||
"Char used to indicate a channel which had keyword traffic lately (hidden)."
|
||||
"Char indicating a channel which had keyword traffic lately (hidden)."
|
||||
:type 'character)
|
||||
(defcustom erc-ibuffer-pal-char ?p
|
||||
"Char used to indicate a channel which had pal traffic lately (hidden)."
|
||||
"Char indicating a channel which had pal traffic lately (hidden)."
|
||||
:type 'character)
|
||||
(defcustom erc-ibuffer-fool-char ?f
|
||||
"Char used to indicate a channel which had fool traffic lately (hidden)."
|
||||
"Char indicating a channel which had fool traffic lately (hidden)."
|
||||
:type 'character)
|
||||
(defcustom erc-ibuffer-dangerous-host-char ?d
|
||||
"Char used to indicate a channel which had dangerous-host traffic lately
|
||||
\(hidden)."
|
||||
"Char indicating a channel which had dangerous-host traffic lately (hidden)."
|
||||
:type 'character)
|
||||
|
||||
(define-ibuffer-filter erc-server
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
|
||||
;;; Commentary:
|
||||
|
||||
;; This file includes stuff to work with pattern matching in ERC. If
|
||||
;; This file includes stuff to work with pattern matching in ERC. If
|
||||
;; you were used to customizing erc-fools, erc-keywords, erc-pals,
|
||||
;; erc-dangerous-hosts and the like, this file contains these
|
||||
;; customizable variables.
|
||||
|
|
|
|||
|
|
@ -52,7 +52,7 @@ netsplits, so that it can filter the JOIN messages on a netjoin too."
|
|||
(remove-hook 'erc-timer-hook #'erc-netsplit-timer)))
|
||||
|
||||
(defcustom erc-netsplit-show-server-mode-changes-flag nil
|
||||
"Set to t to enable display of server mode changes."
|
||||
"Non-nil means to enable display of server mode changes."
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom erc-netsplit-debug nil
|
||||
|
|
@ -61,8 +61,7 @@ netsplits, so that it can filter the JOIN messages on a netjoin too."
|
|||
|
||||
(defcustom erc-netsplit-regexp
|
||||
"^[^ @!\"\n]+\\.[^ @!\n]+ [^ @!\n]+\\.[^ @!\"\n]+$"
|
||||
"This regular expression should match quit reasons produced
|
||||
by netsplits."
|
||||
"This regular expression should match quit reasons produced by netsplits."
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom erc-netsplit-hook nil
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@
|
|||
;; Variables
|
||||
|
||||
(defgroup erc-networks nil
|
||||
"IRC Networks"
|
||||
"IRC Networks."
|
||||
:group 'erc)
|
||||
|
||||
(defcustom erc-server-alist
|
||||
|
|
@ -720,7 +720,7 @@ NET is a symbol naming that IRC network and
|
|||
MATCHER is used to find a corresponding network to a server while
|
||||
connected to it. If it is regexp, it's used to match against
|
||||
`erc-server-announced-name'. It can also be a function (predicate).
|
||||
Then it is executed with the server buffer as current-buffer."
|
||||
Then it is executed with the server buffer as current buffer."
|
||||
:type '(repeat
|
||||
(list :tag "Network"
|
||||
(symbol :tag "Network name")
|
||||
|
|
|
|||
|
|
@ -44,7 +44,7 @@
|
|||
(require 'time-date)
|
||||
|
||||
(defgroup erc-pcomplete nil
|
||||
"Programmable completion for ERC"
|
||||
"Programmable completion for ERC."
|
||||
:group 'erc)
|
||||
|
||||
(defcustom erc-pcomplete-nick-postfix ":"
|
||||
|
|
|
|||
|
|
@ -37,7 +37,7 @@
|
|||
(require 'erc)
|
||||
|
||||
(defgroup erc-replace nil
|
||||
"Replace text from incoming messages"
|
||||
"Replace text from incoming messages."
|
||||
:group 'erc)
|
||||
|
||||
(defcustom erc-replace-alist nil
|
||||
|
|
|
|||
|
|
@ -79,7 +79,7 @@ STATE-OR-STRING should be a string or an erc-input object."
|
|||
(setq erc-input-ring-index nil))
|
||||
|
||||
(defun erc-clear-input-ring ()
|
||||
"Remove all entries from the input ring, then call garbage-collect.
|
||||
"Remove all entries from the input ring, then call `garbage-collect'.
|
||||
You might use this for security purposes if you have typed a command
|
||||
containing a password."
|
||||
(interactive)
|
||||
|
|
|
|||
|
|
@ -128,8 +128,9 @@ See also `play-sound-file'."
|
|||
(erc-log (format "Playing sound file %S" filepath))))
|
||||
|
||||
(defun erc-toggle-sound (&optional arg)
|
||||
"Toggles playing sounds on and off. With positive argument,
|
||||
turns them on. With any other argument turns sounds off."
|
||||
"Toggles playing sounds on and off.
|
||||
With positive argument, turns them on. With any other argument
|
||||
turns sounds off."
|
||||
(interactive "P")
|
||||
(cond ((and (numberp arg) (> arg 0))
|
||||
(setq erc-play-sound t))
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
|
||||
;;; Commentary:
|
||||
|
||||
;; This is an ERC module to enable flyspell mode in ERC buffers. This
|
||||
;; This is an ERC module to enable flyspell mode in ERC buffers. This
|
||||
;; ensures correct behavior of flyspell, and even sets up a
|
||||
;; channel-local dictionary if so required.
|
||||
|
||||
|
|
|
|||
|
|
@ -274,7 +274,7 @@ to the `window-configuration-change-hook'."
|
|||
(apply #'window-preserve-size (selected-window) t t nil))))
|
||||
|
||||
(define-derived-mode erc-status-sidebar-mode special-mode "ERC Sidebar"
|
||||
"Major mode for ERC status sidebar"
|
||||
"Major mode for ERC status sidebar."
|
||||
;; Don't scroll the buffer horizontally, if a channel name is
|
||||
;; obscured then the window can be resized.
|
||||
(setq-local auto-hscroll-mode nil)
|
||||
|
|
|
|||
|
|
@ -546,8 +546,7 @@ keybindings will not do anything useful."
|
|||
(erc-track-minor-mode -1)))))
|
||||
|
||||
(defcustom erc-track-when-inactive nil
|
||||
"Enable channel tracking even for visible buffers, if you are
|
||||
inactive."
|
||||
"Enable channel tracking even for visible buffers, if you are inactive."
|
||||
:type 'boolean
|
||||
:set (lambda (sym val)
|
||||
(if erc-track-mode
|
||||
|
|
@ -598,9 +597,10 @@ only consider active buffers visible.")
|
|||
(erc-modified-channels-update)))
|
||||
|
||||
(defvar erc-modified-channels-update-inside nil
|
||||
"Variable to prevent running `erc-modified-channels-update' multiple
|
||||
times. Without it, you cannot debug `erc-modified-channels-display',
|
||||
because the debugger also causes changes to the window-configuration.")
|
||||
"Variable to prevent running `erc-modified-channels-update' multiple times.
|
||||
Without it, you cannot debug `erc-modified-channels-display',
|
||||
because the debugger also causes changes to the
|
||||
window-configuration.")
|
||||
|
||||
(defun erc-modified-channels-update (&rest _args)
|
||||
"This function updates the information in `erc-modified-channels-alist'
|
||||
|
|
@ -630,7 +630,7 @@ ARGS are ignored."
|
|||
"The face to use when mouse is over channel names in the mode line.")
|
||||
|
||||
(defun erc-make-mode-line-buffer-name (string buffer &optional faces count)
|
||||
"Returns a button that switches to BUFFER when clicked.
|
||||
"Return a button that switches to BUFFER when clicked.
|
||||
STRING is the string in the button. It is possibly suffixed with
|
||||
the number of unread messages, according to variables
|
||||
`erc-track-showcount' and `erc-track-showcount-string'.
|
||||
|
|
|
|||
|
|
@ -25,8 +25,8 @@
|
|||
;;; Commentary:
|
||||
|
||||
;; This implements buffer truncation (and optional log file writing
|
||||
;; support for the Emacs IRC client. Use `erc-truncate-mode' to switch
|
||||
;; on. Use `erc-enable-logging' to enable logging of the stuff which
|
||||
;; support for the Emacs IRC client. Use `erc-truncate-mode' to switch
|
||||
;; on. Use `erc-enable-logging' to enable logging of the stuff which
|
||||
;; is getting truncated.
|
||||
|
||||
;;; Code:
|
||||
|
|
@ -34,7 +34,7 @@
|
|||
(require 'erc)
|
||||
|
||||
(defgroup erc-truncate nil
|
||||
"Truncate buffers when they reach a certain size"
|
||||
"Truncate buffers when they reach a certain size."
|
||||
:group 'erc)
|
||||
|
||||
(defcustom erc-max-buffer-size 30000
|
||||
|
|
|
|||
|
|
@ -68,7 +68,7 @@ being evaluated and should return strings."
|
|||
|
||||
;;;###autoload
|
||||
(defun erc-xdcc-add-file (file)
|
||||
"Add a file to `erc-xdcc-files'."
|
||||
"Add FILE to `erc-xdcc-files'."
|
||||
(interactive "fFilename to add to XDCC: ")
|
||||
(if (file-exists-p file)
|
||||
(add-to-list 'erc-xdcc-files file)))
|
||||
|
|
|
|||
|
|
@ -80,32 +80,32 @@
|
|||
:group 'applications)
|
||||
|
||||
(defgroup erc-buffers nil
|
||||
"Creating new ERC buffers"
|
||||
"Creating new ERC buffers."
|
||||
:group 'erc)
|
||||
|
||||
(defgroup erc-display nil
|
||||
"Settings for how various things are displayed"
|
||||
"Settings for how various things are displayed."
|
||||
:group 'erc)
|
||||
|
||||
(defgroup erc-mode-line-and-header nil
|
||||
"Displaying information in the mode-line and header"
|
||||
"Displaying information in the mode-line and header."
|
||||
:group 'erc-display)
|
||||
|
||||
(defgroup erc-ignore nil
|
||||
"Ignoring certain messages"
|
||||
"Ignoring certain messages."
|
||||
:group 'erc)
|
||||
|
||||
(defgroup erc-lurker nil
|
||||
"Hide specified message types sent by lurkers"
|
||||
"Hide specified message types sent by lurkers."
|
||||
:version "24.3"
|
||||
:group 'erc-ignore)
|
||||
|
||||
(defgroup erc-query nil
|
||||
"Using separate buffers for private discussions"
|
||||
"Using separate buffers for private discussions."
|
||||
:group 'erc)
|
||||
|
||||
(defgroup erc-quit-and-part nil
|
||||
"Quitting and parting channels"
|
||||
"Quitting and parting channels."
|
||||
:group 'erc)
|
||||
|
||||
(defgroup erc-paranoia nil
|
||||
|
|
@ -113,7 +113,7 @@
|
|||
:group 'erc)
|
||||
|
||||
(defgroup erc-scripts nil
|
||||
"Running scripts at startup and with /LOAD"
|
||||
"Running scripts at startup and with /LOAD."
|
||||
:group 'erc)
|
||||
|
||||
(require 'erc-backend)
|
||||
|
|
@ -280,9 +280,9 @@ indicate it has handled the input."
|
|||
:type 'hook)
|
||||
|
||||
(defcustom erc-join-hook nil
|
||||
"Hook run when we join a channel. Hook functions are called
|
||||
without arguments, with the current buffer set to the buffer of
|
||||
the new channel.
|
||||
"Hook run when we join a channel.
|
||||
Hook functions are called without arguments, with the current
|
||||
buffer set to the buffer of the new channel.
|
||||
|
||||
See also `erc-server-JOIN-functions', `erc-part-hook'."
|
||||
:group 'erc-hooks
|
||||
|
|
@ -533,10 +533,10 @@ Removes all users in the current channel. This is called by
|
|||
(erc-channel-user-voice (cdr cdata))))))))
|
||||
|
||||
(defun erc-get-channel-user-list ()
|
||||
"Return a list of users in the current channel. Each element
|
||||
of the list is of the form (USER . CHANNEL-DATA), where USER is
|
||||
an erc-server-user struct, and CHANNEL-DATA is either nil or an
|
||||
erc-channel-user struct.
|
||||
"Return a list of users in the current channel.
|
||||
Each element of the list is of the form (USER . CHANNEL-DATA),
|
||||
where USER is an erc-server-user struct, and CHANNEL-DATA is
|
||||
either nil or an erc-channel-user struct.
|
||||
|
||||
See also: `erc-sort-channel-users-by-activity'."
|
||||
(let (users)
|
||||
|
|
@ -816,7 +816,7 @@ set if some hacker is trying to flood you away."
|
|||
|
||||
(defcustom erc-system-name nil
|
||||
"Use this as the name of your system.
|
||||
If nil, ERC will call `system-name' to get this information."
|
||||
If nil, ERC will call function `system-name' to get this information."
|
||||
:group 'erc
|
||||
:type '(choice (const :tag "Default system name" nil)
|
||||
string))
|
||||
|
|
@ -1487,8 +1487,8 @@ Defaults to the server buffer."
|
|||
"IRC port to use if it cannot be detected otherwise.")
|
||||
|
||||
(defconst erc-default-port-tls 6697
|
||||
"IRC port to use for encrypted connections if it cannot be
|
||||
detected otherwise.")
|
||||
"IRC port to use for encrypted connections if it cannot be \
|
||||
detected otherwise.")
|
||||
|
||||
(defcustom erc-join-buffer 'buffer
|
||||
"Determines how to display a newly created IRC buffer.
|
||||
|
|
@ -3741,7 +3741,7 @@ the message given by REASON."
|
|||
(condition-case nil
|
||||
(erc :server server :nick (erc-current-nick))
|
||||
(error
|
||||
(erc-error "Cannot find host %s." server)))
|
||||
(erc-error "Cannot find host: `%s'" server)))
|
||||
t)
|
||||
(put 'erc-cmd-SERVER 'process-not-needed t)
|
||||
|
||||
|
|
@ -4490,7 +4490,7 @@ also `erc-format-nick-function'."
|
|||
(propertize prefix 'font-lock-face 'erc-default-face))))
|
||||
|
||||
(defun erc-echo-notice-in-default-buffer (s parsed buffer _sender)
|
||||
"Echos a private notice in the default buffer, namely the
|
||||
"Echo a private notice in the default buffer, namely the
|
||||
target buffer specified by BUFFER, or there is no target buffer,
|
||||
the server buffer. This function is designed to be added to
|
||||
either `erc-echo-notice-hook' or `erc-echo-notice-always-hook',
|
||||
|
|
@ -4499,30 +4499,32 @@ and always returns t."
|
|||
t)
|
||||
|
||||
(defun erc-echo-notice-in-target-buffer (s parsed buffer _sender)
|
||||
"Echos a private notice in BUFFER, if BUFFER is non-nil. This
|
||||
function is designed to be added to either `erc-echo-notice-hook'
|
||||
or `erc-echo-notice-always-hook', and returns non-nil if BUFFER
|
||||
is non-nil."
|
||||
"Echo a private notice in BUFFER, if BUFFER is non-nil.
|
||||
This function is designed to be added to either
|
||||
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
|
||||
returns non-nil if BUFFER is non-nil."
|
||||
(if buffer
|
||||
(progn (erc-display-message parsed nil buffer s) t)
|
||||
nil))
|
||||
|
||||
(defun erc-echo-notice-in-minibuffer (s _parsed _buffer _sender)
|
||||
"Echos a private notice in the minibuffer. This function is
|
||||
designed to be added to either `erc-echo-notice-hook' or
|
||||
`erc-echo-notice-always-hook', and always returns t."
|
||||
"Echo a private notice in the minibuffer.
|
||||
This function is designed to be added to either
|
||||
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
|
||||
always returns t."
|
||||
(message "%s" (concat "NOTICE: " s))
|
||||
t)
|
||||
|
||||
(defun erc-echo-notice-in-server-buffer (s parsed _buffer _sender)
|
||||
"Echos a private notice in the server buffer. This function is
|
||||
designed to be added to either `erc-echo-notice-hook' or
|
||||
`erc-echo-notice-always-hook', and always returns t."
|
||||
"Echo a private notice in the server buffer.
|
||||
This function is designed to be added to either
|
||||
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
|
||||
always returns t."
|
||||
(erc-display-message parsed nil nil s)
|
||||
t)
|
||||
|
||||
(defun erc-echo-notice-in-active-non-server-buffer (s parsed _buffer _sender)
|
||||
"Echos a private notice in the active buffer if the active
|
||||
"Echo a private notice in the active buffer if the active
|
||||
buffer is not the server buffer. This function is designed to be
|
||||
added to either `erc-echo-notice-hook' or
|
||||
`erc-echo-notice-always-hook', and returns non-nil if the active
|
||||
|
|
@ -4532,14 +4534,15 @@ buffer is not the server buffer."
|
|||
nil))
|
||||
|
||||
(defun erc-echo-notice-in-active-buffer (s parsed _buffer _sender)
|
||||
"Echos a private notice in the active buffer. This function is
|
||||
designed to be added to either `erc-echo-notice-hook' or
|
||||
`erc-echo-notice-always-hook', and always returns t."
|
||||
"Echo a private notice in the active buffer.
|
||||
This function is designed to be added to either
|
||||
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
|
||||
always returns t."
|
||||
(erc-display-message parsed nil 'active s)
|
||||
t)
|
||||
|
||||
(defun erc-echo-notice-in-user-buffers (s parsed _buffer sender)
|
||||
"Echos a private notice in all of the buffers for which SENDER
|
||||
"Echo a private notice in all of the buffers for which SENDER
|
||||
is a member. This function is designed to be added to either
|
||||
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
|
||||
returns non-nil if there is at least one buffer for which the
|
||||
|
|
@ -4553,7 +4556,7 @@ See also: `erc-echo-notice-in-first-user-buffer',
|
|||
nil)))
|
||||
|
||||
(defun erc-echo-notice-in-user-and-target-buffers (s parsed buffer sender)
|
||||
"Echos a private notice in BUFFER and in all of the buffers for
|
||||
"Echo a private notice in BUFFER and in all of the buffers for
|
||||
which SENDER is a member. This function is designed to be added
|
||||
to either `erc-echo-notice-hook' or
|
||||
`erc-echo-notice-always-hook', and returns non-nil if there is
|
||||
|
|
@ -4569,7 +4572,7 @@ See also: `erc-echo-notice-in-user-buffers',
|
|||
nil)))
|
||||
|
||||
(defun erc-echo-notice-in-first-user-buffer (s parsed _buffer sender)
|
||||
"Echos a private notice in one of the buffers for which SENDER
|
||||
"Echo a private notice in one of the buffers for which SENDER
|
||||
is a member. This function is designed to be added to either
|
||||
`erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
|
||||
returns non-nil if there is at least one buffer for which the
|
||||
|
|
@ -5030,10 +5033,11 @@ See also: `erc-update-user'."
|
|||
|
||||
(defun erc-update-user (user &optional new-nick
|
||||
host login full-name info)
|
||||
"Update user info for USER. USER must be an erc-server-user
|
||||
struct. Any of NEW-NICK, HOST, LOGIN, FULL-NAME, INFO which are
|
||||
non-nil and not equal to the existing values for USER are used to
|
||||
replace the stored values in USER.
|
||||
"Update user info for USER.
|
||||
USER must be an erc-server-user struct. Any of NEW-NICK, HOST,
|
||||
LOGIN, FULL-NAME, INFO which are non-nil and not equal to the
|
||||
existing values for USER are used to replace the stored values in
|
||||
USER.
|
||||
|
||||
If, and only if, a change is made,
|
||||
`erc-channel-members-changed-hook' is run for each channel for
|
||||
|
|
@ -5570,9 +5574,9 @@ submitted line to be intentional."
|
|||
string insertp sendp)
|
||||
|
||||
(defun erc-send-input (input)
|
||||
"Treat INPUT as typed in by the user. It is assumed that the input
|
||||
and the prompt is already deleted.
|
||||
This returns non-nil only if we actually send anything."
|
||||
"Treat INPUT as typed in by the user.
|
||||
It is assumed that the input and the prompt is already deleted.
|
||||
Return non-nil only if we actually send anything."
|
||||
;; Handle different kinds of inputs
|
||||
(cond
|
||||
;; Ignore empty input
|
||||
|
|
|
|||
|
|
@ -94,7 +94,7 @@ though they were files."
|
|||
Currently this is standard input, output and error. But even all of
|
||||
these Emacs does not currently support with asynchronous processes
|
||||
\(which is what eshell uses so that you can continue doing work in
|
||||
other buffers) ."
|
||||
other buffers)."
|
||||
:type 'integer
|
||||
:group 'eshell-io)
|
||||
|
||||
|
|
|
|||
|
|
@ -88,7 +88,7 @@
|
|||
|
||||
;;; Samples:
|
||||
|
||||
(define-skeleton expand-c-for-skeleton "For loop skeleton"
|
||||
(define-skeleton expand-c-for-skeleton "For loop skeleton."
|
||||
"Loop var: "
|
||||
"for(" str _ @ "=0; " str @ "; " str @ ") {" \n
|
||||
@ _ \n
|
||||
|
|
|
|||
|
|
@ -23,7 +23,6 @@
|
|||
|
||||
;;; Commentary:
|
||||
|
||||
;;
|
||||
;; This file defines some simple operations that can be used for
|
||||
;; maintaining the `face-remapping-alist' in a cooperative way. This is
|
||||
;; especially important for the `default' face.
|
||||
|
|
@ -52,8 +51,6 @@
|
|||
;; mode setting face remappings, e.g., of the default face.
|
||||
;;
|
||||
;; All modifications cause face-remapping-alist to be made buffer-local.
|
||||
;;
|
||||
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -218,13 +215,13 @@ Each positive or negative step scales the default face height by this amount."
|
|||
:version "23.1")
|
||||
|
||||
(defvar-local text-scale-mode-remapping nil
|
||||
"Current remapping cookie for text-scale-mode.")
|
||||
"Current remapping cookie for `text-scale-mode'.")
|
||||
|
||||
(defvar-local text-scale-mode-lighter "+0"
|
||||
"Lighter displayed for text-scale-mode in mode-line minor-mode list.")
|
||||
"Lighter displayed for `text-scale-mode' in mode-line minor-mode list.")
|
||||
|
||||
(defvar-local text-scale-mode-amount 0
|
||||
"Number of steps that text-scale-mode will increase/decrease text height.")
|
||||
"Number of steps that `text-scale-mode' will increase/decrease text height.")
|
||||
|
||||
(defvar-local text-scale-remap-header-line nil
|
||||
"If non-nil, text scaling may change font size of header lines too.")
|
||||
|
|
@ -352,7 +349,7 @@ See `text-scale-increase' for more details."
|
|||
INC may be passed as a numeric prefix argument.
|
||||
|
||||
The actual adjustment made depends on the final component of the
|
||||
key-binding used to invoke the command, with all modifiers removed:
|
||||
keybinding used to invoke the command, with all modifiers removed:
|
||||
|
||||
+, = Increase the height of the default face by one step
|
||||
- Decrease the height of the default face by one step
|
||||
|
|
|
|||
|
|
@ -1114,7 +1114,7 @@ like)."
|
|||
|
||||
(defun ffap-search-backward-file-end (&optional dir-separator end)
|
||||
"Search backward position point where file would probably end.
|
||||
Optional DIR-SEPARATOR defaults to \"/\". The search maximum is
|
||||
Optional DIR-SEPARATOR defaults to \"/\". The search maximum is
|
||||
`line-end-position' or optional END point.
|
||||
|
||||
Suppose the cursor is somewhere that might be near end of file,
|
||||
|
|
@ -1190,7 +1190,7 @@ Call `ffap-search-backward-file-end' to refine the ending point."
|
|||
|
||||
(defun ffap-dir-separator-near-point ()
|
||||
"Search backward and forward for closest slash or backlash in line.
|
||||
Return string slash or backslash. Point is moved to closest position."
|
||||
Return string slash or backslash. Point is moved to closest position."
|
||||
(let ((point (point))
|
||||
str pos)
|
||||
(when (looking-at ".*?/")
|
||||
|
|
|
|||
|
|
@ -19,7 +19,7 @@
|
|||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary
|
||||
;;; Commentary:
|
||||
|
||||
;; This package is an abstraction layer from the different low-level
|
||||
;; file notification packages `inotify', `kqueue', `gfilenotify' and
|
||||
|
|
|
|||
|
|
@ -4432,8 +4432,8 @@ variables will override modes."
|
|||
(t -2))))
|
||||
|
||||
(defun dir-locals--sort-variables (variables)
|
||||
"Sorts VARIABLES so that applying them in order has the right effect.
|
||||
The variables are compared by dir-locals--get-sort-score.
|
||||
"Sort VARIABLES so that applying them in order has the right effect.
|
||||
The variables are compared by `dir-locals--get-sort-score'.
|
||||
Directory entries are then recursively sorted using the same
|
||||
criteria."
|
||||
(setq variables (sort variables
|
||||
|
|
|
|||
|
|
@ -607,7 +607,7 @@ the filename."
|
|||
(:ignore-on-read-text t)
|
||||
;; (:constraintp ,pic-cmd)
|
||||
))))
|
||||
"Association list of file patterns and external viewers for use with
|
||||
"Alist of file patterns and external viewers for use with
|
||||
`filesets-find-or-display-file'.
|
||||
|
||||
Has the form ((FILE-PATTERN VIEWER PROPERTIES) ...), VIEWER being either a
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue