(defun ansi-color--ensure-context (context-sym position)
"Return CONTEXT-SYM's value as a valid context.
-If it is nil, set CONTEXT-SYM's value to a new context and return
-it. Context is a list of the form as described in
-`ansi-color-context' if POSITION is nil, or
-`ansi-color-context-region' if POSITION is non-nil.
+If it is nil, set CONTEXT-SYM's value to a new context and return it.
+Context is a list of the form as described in `ansi-color-context' if
+POSITION is nil, or `ansi-color-context-region' if POSITION is non-nil.
-If CONTEXT-SYM's value is already non-nil, return it. If its
+If CONTEXT-SYM's value is already non-nil, return it. If its
marker doesn't point anywhere yet, position it before character
number POSITION, if non-nil."
(let ((context (symbol-value context-sym)))
;; subdirectory of `doc-view-cache-directory' and reused when you want to view
;; that file again. To reconvert a document hit `g' (`doc-view-reconvert-doc')
;; when displaying the document. To delete all cached files use
-;; `doc-view-clear-cache'. To open the cache with dired, so that you can tidy
+;; `doc-view-clear-cache'. To open the cache with Dired, so that you can tidy
;; it out use `doc-view-dired-cache'.
;;
;; When conversion is underway the first page will be displayed as soon as it
:version "29.1")
(defface doc-view-svg-face '((t :inherit default))
- "Face used for SVG images. Only background and foreground colors
-are used.
+ "Face used for SVG images.
+Only background and foreground colors are used.
See `doc-view-mupdf-use-svg'."
:version "30.1")
set in `completion-styles'.
LOOKUP is a function taking a string PATTERN and a number
-POINT. The function should contact the tool and return a list of
+POINT. The function should contact the tool and return a list of
strings representing the completions for PATTERN given that POINT
is the location of point within it. LOOKUP decides if PATTERN is
interpreted as a substring, a regular expression, or any other
;; bindings you would prefer.
(defun ffap-ro-mode-hook ()
- "Bind `ffap-next' and `ffap-menu' to M-l and M-m, resp."
+ "Bind `ffap-next' and `ffap-menu' to \\`M-l' and \\`M-m', resp."
(local-set-key "\M-l" 'ffap-next)
(local-set-key "\M-m" 'ffap-menu))
(defun ffap-gnus-hook ()
- "Bind `ffap-gnus-next' and `ffap-gnus-menu' to M-l and M-m, resp."
+ "Bind `ffap-gnus-next' and `ffap-gnus-menu' to \\`M-l' and \\`M-m', resp."
;; message-id's
(setq-local thing-at-point-default-mail-uri-scheme "news")
;; Note "l", "L", "m", "M" are taken:
;;
;; GIVEN AN ARGUMENT (with the ^U prefix), ff-find-other-file will get the
;; other file in another (the other?) window (see find-file-other-window and
-;; switch-to-buffer-other-window). This can be set on a more permanent basis
+;; switch-to-buffer-other-window). This can be set on a more permanent basis
;; by setting ff-always-in-other-window to t in which case the ^U prefix will
;; do the opposite of what was described above.
;;
;;; Code:
(defvar flow-control-c-s-replacement ?\034
- "Character that replaces C-s, when flow control handling is enabled.")
+ "Character that replaces \\`C-s', when flow control handling is enabled.")
(defvar flow-control-c-q-replacement ?\036
- "Character that replaces C-q, when flow control handling is enabled.")
+ "Character that replaces \\`C-q', when flow control handling is enabled.")
(put 'keyboard-translate-table 'char-table-extra-slots 0)
"Non-nil means: visit the file in view (read-only) mode.
This is set automatically if the file permissions don't let you write it.")
-(defvar forms-multi-line "\C-k" "\
-If not nil: use this character to separate multi-line fields (default C-k).")
+(defvar forms-multi-line "\C-k"
+ "If non-nil, use this character to separate multi-line fields (default \\`C-k').")
(defcustom forms-forms-scroll nil
"Non-nil means replace scroll-up/down commands in Forms mode.
(describe-function-1 defn)))))))
\f
(defun search-forward-help-for-help ()
- "Search forward in the help-for-help window.
+ "Search forward in the `help-for-help' window.
This command is meant to be used after issuing the \\[help-for-help] command."
(interactive)
(unless (get-buffer help-for-help-buffer-name)
(defvar hi-lock-use-overlays nil
"Whether to always use overlays instead of font-lock rules.
-When font-lock-mode is enabled and the buffer specifies font-lock rules,
+When `font-lock-mode' is enabled and the buffer specifies font-lock rules,
highlighting is performed by adding new font-lock rules to the existing ones,
so when new matching strings are added, they are highlighted by font-lock.
Otherwise, overlays are used, but new highlighting overlays are not added
is omitted or nil, try to determine the image type from its first few
bytes of image data. If that doesn't work, and the property `:file
FILE' provide a file name, use its file extension as indication of the
-image type. If `:type TYPE' is provided, it must match the actual type
+image type. If `:type TYPE' is provided, it must match the actual type
determined for FILE or DATA by `create-image'.
The function returns the image specification for the first specification
;; Entry points to isearch-mode.
(defun isearch-forward (&optional regexp-p no-recursive-edit)
- "\
-Do incremental search forward.
+ "Do incremental search forward.
With a prefix argument, do an incremental regular expression search instead.
\\<isearch-mode-map>
As you type characters, they add to the search string and are found.
Type \\[isearch-delete-char] to cancel last input item from end of search string.
Type \\[isearch-exit] to exit, leaving point at location found.
-Type LFD (C-j) to match end of line.
+Type LFD (\\`C-j') to match end of line.
Type \\[isearch-repeat-forward] to search again forward,\
\\[isearch-repeat-backward] to search again backward.
Type \\[isearch-beginning-of-buffer] to go to the first match,\
In incremental searches, a space or spaces normally matches any
whitespace defined by the variable `search-whitespace-regexp'.
-To search for a literal space and nothing else, enter C-q SPC.
+To search for a literal space and nothing else, enter \\`C-q SPC'.
To toggle whitespace matching, use `isearch-toggle-lax-whitespace',
usually bound to \\`M-s SPC' during isearch.
This command does not support character folding."
(defun isearch-lazy-count-format (&optional suffix-p)
"Format the current match number and the total number of matches.
When SUFFIX-P is non-nil, the returned string is intended for
-isearch-message-suffix prompt. Otherwise, for isearch-message-prefix."
+`isearch-message-suffix' prompt. Otherwise, for
+`isearch-message-prefix'."
(let ((format-string (if suffix-p
lazy-count-suffix-format
lazy-count-prefix-format)))
t))
(when e-b-s-s-supplied-p
(warn
- "`:events-buffer-scrollback-size' deprecated. Use `events-buffer-config'.")
+ "`:events-buffer-scrollback-size' deprecated. Use `events-buffer-config'.")
(with-slots ((plist -events-buffer-config)) c
(setf plist (copy-sequence plist)
plist (plist-put plist :size events-buffer-scrollback-size)))))
(cond
(anxious
(when (not (= (car head) id)) ; sanity check
- (error "internal error: please report this bug"))
+ (error "Internal error: please report this bug"))
;; If there are "anxious" `jsonrpc-request' continuations
;; that should already have been run, they should run now.
;; The main continuation -- if it exists -- should run
This command is like \\[mouse-kill-secondary] (that is, the secondary
selection is deleted and placed in the kill ring), except that it also
-leaves the secondary buffer active on exit.
-
-This command was derived from mouse-kill-secondary in emacs-19.28
-by johnh@ficus.cs.ucla.edu."
+leaves the secondary buffer active on exit."
+ ;; This command was derived from mouse-kill-secondary in emacs-19.28
+ ;; by johnh@ficus.cs.ucla.edu.
(interactive)
(let* ((keys (this-command-keys))
(click (elt keys (1- (length keys)))))
;; (delete-overlay mouse-secondary-overlay)
;; (gui-set-selection 'SECONDARY nil)
;; (setq mouse-secondary-overlay nil)
-)
+ )
(defun mouse-drag-secondary-moving (start-event)
"Sweep out a secondary selection, then move it to the current point."
(put 'pixel-scroll-down 'scroll-command t)
(defun pixel-bob-at-top-p (amt)
- "Return non-nil if window-start is at beginning of the current buffer.
+ "Return non-nil if `window-start' is at beginning of the current buffer.
Window must be vertically scrolled by not more than AMT pixels."
(and (equal (window-start) (point-min))
(< (window-vscroll nil t) amt)))
(defun pixel-scroll-down-and-set-window-vscroll (vscroll)
"Scroll down a line and set VSCROLL in pixels.
-It is important to call `set-window-start' to force the display
-engine use that particular position as the window-start point.
+It is important to call `set-window-start' to force the display engine
+to use that particular position as the `window-start' point.
Otherwise, redisplay will reset the window's vscroll."
(set-window-start nil (pixel-point-at-unseen-line) t)
(set-window-vscroll nil vscroll t))
`http://pages.cs.wisc.edu/~ghost/gv/gv_doc/gv.html'
* MacGSView (Mac OS)
- `http://pages.cs.wisc.edu/~ghost/macos/index.htm'
-"
+ `http://pages.cs.wisc.edu/~ghost/macos/index.htm'"
:type '(string :tag "Ghostview Utility"))
`https://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'
* Printer compatibility
- `https://www.cs.wisc.edu/~ghost/doc/printer.htm'
-"
+ `https://www.cs.wisc.edu/~ghost/doc/printer.htm'"
:type '(string :tag "Ghostscript Utility"))
`https://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'
* Printer compatibility
- `https://www.cs.wisc.edu/~ghost/doc/printer.htm'
-"
+ `https://www.cs.wisc.edu/~ghost/doc/printer.htm'"
:type '(repeat (string :tag "Ghostscript Switch")))
(defcustom register-use-preview 'traditional
"Whether to show register preview when modifying registers.
-When set to `t', show a preview buffer with navigation and
+When set to t, show a preview buffer with navigation and
highlighting.
-When set to \\='insist, behave as with `t', but allow exiting the
+When set to \\='insist, behave as with t, but allow exiting the
minibuffer by pressing the register name a second time. E.g.,
press \"a\" to select register \"a\", then press \"a\" again to
exit the minibuffer.
When nil, show a preview buffer without navigation and highlighting, and
exit the minibuffer immediately after inserting response in minibuffer.
When set to \\='never, behave as with nil, but with no preview buffer at
-all; the preview buffer is still accessible with `help-char' (C-h).
+all; the preview buffer is still accessible with `help-char' (\\`C-h').
When set to \\='traditional (the default), provide a more basic preview
according to `register-preview-delay'; this preserves the traditional
behavior of Emacs 29 and before."
doesn't exist in the keymap specified by the `repeat-map' property
of the command, don't activate that keymap for the next command.
Thus, when this is non-nil, only the same keys among repeatable
-keys are allowed in the repeating sequence. For example, with a
+keys are allowed in the repeating sequence. For example, with a
non-nil value, only \\`C-x u u' repeats undo, whereas \\`C-/ u' doesn't.
You can also set the property `repeat-check-key' on the command symbol.
This property can override the value of this variable.
When the variable value is non-nil, but the property value is `no',
then don't check the last key. Also when the variable value is nil,
-but the property value is `t', then check the last key."
+but the property value is t, then check the last key."
:type 'boolean
:group 'repeat
:version "28.1")
Changing this option requires rewriting `save-place-alist' with
corresponding file name format, therefore setting this option
just using `setq' may cause out-of-sync problems. You should use
-either `setopt' or M-x customize-variable to set this option."
+either `setopt' or \\[customize-variable] to set this option."
:type 'boolean
:set (lambda (sym val)
(set-default sym val)
(defun gui--clipboard-selection-unchanged-p (text)
"Check whether the clipboard selection has changed.
Compare the selection text, passed as argument, with the text
-from the last saved selection. For window systems that support
+from the last saved selection. For window systems that support
it, compare the selection timestamp too."
(and
(equal text gui--last-selected-text-clipboard)
t)
(defmacro ses-header-row (row)
- "Load the header row from the spreadsheet file and check it
-for safety. This is a macro to prevent propagate-on-load viruses."
+ "Load the header row from the spreadsheet file and check it for safety.
+This is a macro to prevent propagate-on-load viruses."
(or (and (wholenump row) (or (zerop ses--numrows) (< row ses--numrows)))
(error "Bad header-row"))
(setq ses--header-row row)
(transpose-subr 'forward-word arg))
(defun transpose-sexps-default-function (arg)
- "Default method to locate a pair of points for transpose-sexps."
+ "Default method to locate a pair of points for `transpose-sexps'."
;; Here we should try to simulate the behavior of
;; (cons (progn (forward-sexp x) (point))
;; (progn (forward-sexp (- x)) (point)))
to delete backward, and Delete can be used to delete forward.
If not running under a window system, customizing this option
-accomplishes a similar effect by mapping C-h, which is usually
-generated by the Backspace key, to DEL, and by mapping DEL to C-d
-via `keyboard-translate'. The former functionality of C-h is
-available on the F1 key. You should probably not use this
+accomplishes a similar effect by mapping \\`C-h', which is usually
+generated by the Backspace key, to \\`DEL', and by mapping \\`DEL' to
+\\`C-d' via `keyboard-translate'. The former functionality of \\`C-h'
+is available on the F1 key. You should probably not use this
setting if you don't have both Backspace, Delete and F1 keys.
Setting this variable with setq doesn't take effect. Programmatically,
(define-minor-mode normal-erase-is-backspace-mode
"Toggle the Erase and Delete mode of the Backspace and Delete keys.
-On window systems, when this mode is on, Delete is mapped to C-d
-and Backspace is mapped to DEL; when this mode is off, both
-Delete and Backspace are mapped to DEL. (The remapping goes via
+On window systems, when this mode is on, Delete is mapped to \\`C-d'
+and Backspace is mapped to \\`DEL'; when this mode is off, both
+Delete and Backspace are mapped to \\`DEL'. (The remapping goes via
`local-function-key-map', so binding Delete or Backspace in the
global or local keymap will override that.)
In addition, on window systems, the bindings of C-Delete, M-Delete,
C-M-Delete, C-Backspace, M-Backspace, and C-M-Backspace are changed in
the global keymap in accordance with the functionality of Delete and
-Backspace. For example, if Delete is remapped to C-d, which deletes
+Backspace. For example, if Delete is remapped to \\`C-d', which deletes
forward, C-Delete is bound to `kill-word', but if Delete is remapped
-to DEL, which deletes backward, C-Delete is bound to
+to \\`DEL', which deletes backward, C-Delete is bound to
`backward-kill-word'.
If not running on a window system, a similar effect is accomplished by
-remapping C-h (normally produced by the Backspace key) and DEL via
-`keyboard-translate': if this mode is on, C-h is mapped to DEL and DEL
-to C-d; if it's off, the keys are not remapped.
+remapping \\`C-h' (normally produced by the Backspace key) and \\`DEL'
+via `keyboard-translate': if this mode is on, \\`C-h' is mapped to
+\\`DEL' and \\`DEL' to \\`C-d'; if it's off, the keys are not remapped.
When not running on a window system, and this mode is turned on, the
-former functionality of C-h is available on the F1 key. You should
+former functionality of \\`C-h' is available on the F1 key. You should
probably not turn on this mode on a text-only terminal if you don't
have both Backspace, Delete and F1 keys.
"DEL" #'sqlite-mode-delete)
(define-derived-mode sqlite-mode special-mode "Sqlite"
- "This mode lists the contents of an .sqlite3 file"
+ "This mode lists the contents of an .sqlite3 file."
:interactive nil
(buffer-disable-undo)
(setq-local buffer-read-only t
:type 'boolean)
(defcustom tempo-insert-region nil
- "Automatically insert current region when there is a `r' in the template
+ "Automatically insert current region when there is a `r' in the template.
If this variable is nil, `r' elements will be treated just like `p'
elements, unless the template function is given a prefix (or a non-nil
argument). If this variable is non-nil, the behavior is reversed.
["Forward Output Group" term-next-prompt t]
["Kill Current Output Group" term-kill-output t]))
map)
- "Keymap for \"line mode\" in Term mode. For custom keybindings purposes
-please note there is also `term-raw-map'")
+ "Keymap for \"line mode\" in Term mode.
+For custom keybindings purposes please note there is also `term-raw-map'")
(defvar term-escape-char nil
"Escape character for char sub-mode of term mode.
There are two submodes: line mode and char mode. By default, you are
in char mode. In char sub-mode, each character (except
`term-escape-char') is sent immediately to the subprocess.
-The escape character is equivalent to the usual meaning of C-x.
+The escape character is equivalent to the usual meaning of \\`C-x'.
In line mode, you send a line of input at a time; use
\\[term-send-input] to send.
(defun term-char-mode ()
"Switch to char (\"raw\") sub-mode of term mode.
Each character you type is sent directly to the inferior without
-intervention from Emacs, except for the escape character (usually C-c)."
+intervention from Emacs, except for the escape character (usually \\`C-c')."
(interactive)
;; FIXME: Emit message? Cfr ilisp-raw-message
(when (term-in-line-mode)
projects / emacs.git / commitdiff