:group 'cperl-autoinsert-details)
(defcustom cperl-file-style nil
- "Indentation style to use in cperl-mode.
+ "Indentation style to use in `cperl-mode'.
Setting this option will override options as given in
`cperl-style-alist' for the keyword provided here. If nil, then
the individual options as customized are used.
\"PBP\" is the style recommended in the Book \"Perl Best
Practices\" by Damian Conway. \"CPerl\" is the traditional style
-of cperl-mode, and \"PerlStyle\" follows the Perl documentation
+of `cperl-mode', and \"PerlStyle\" follows the Perl documentation
in perlstyle. The other styles have been developed for other
programming languages, mostly C."
:type '(choice (const "PBP")
:group 'cperl-indentation-details)
(defcustom cperl-continued-brace-offset 0
"Extra indent for substatements that start with open-braces.
-This is in addition to cperl-continued-statement-offset."
+This is in addition to `cperl-continued-statement-offset'."
:type 'integer
:group 'cperl-indentation-details)
(defcustom cperl-close-paren-offset -1
of, say, long POD sections.")
(defvar cperl-tips-faces 'please-ignore-this-line
- "CPerl mode uses following faces for highlighting:
+ "CPerl mode uses the following faces for highlighting:
`cperl-array-face' Array names
`cperl-hash-face' Hash names
...) where COMMAND is a symbol designating a command, such as
`eglot-rename', `eglot-code-actions',
`eglot-code-action-quickfix', etc. ACTION is one of the symbols
-described above. The value `t' for COMMAND is accepted and its
+described above. The value t for COMMAND is accepted and its
ACTION is the default value for commands not in the alist."
:type (let ((basic-choices
'((const :tag "Use diff" diff)
(unless (or (null current-server)
(y-or-n-p "\
[eglot] Shut down current connection before attempting new one?"))
- (user-error "[eglot] Connection attempt aborted by user."))
+ (user-error "[eglot] Connection attempt aborted by user"))
(prog1 (append (eglot--guess-contact t) '(t))
(when current-server (ignore-errors (eglot-shutdown current-server))))))
(eglot--connect (eglot--ensure-list managed-major-modes)
;;; List connections mode
(define-derived-mode eglot-list-connections-mode tabulated-list-mode
- "" "Eglot mode for listing server connections
+ "" "Eglot mode for listing server connections.
\\{eglot-list-connections-mode-map}"
:interactive nil
(setq-local tabulated-list-format
"Face used for parameter inlay hint overlays.")
(defvar-local eglot--outstanding-inlay-hints-region (cons nil nil)
- "Jit-lock-calculated (FROM . TO) region with potentially outdated hints")
+ "Jit-lock-calculated (FROM . TO) region with potentially outdated hints.")
(defvar-local eglot--outstanding-inlay-hints-last-region nil)
(defvar-local eglot--outstanding-inlay-regions-timer nil
- "Helper timer for `eglot--update-hints'")
+ "Helper timer for `eglot--update-hints'.")
(defun eglot--update-hints (from to)
"Jit-lock function for Eglot inlay hints."
(cond (line (progn (goto-char (point-min))
(forward-line (1- line))))
(startpos (goto-char startpos))
- (t (error "etags.el BUG: bogus direct file tag")))
+ (t (error "etags.el: BUG: bogus direct file tag")))
;; This constant is 1/2 the initial search window.
;; There is no sense in making it too small,
;; since just going around the loop once probably
(when (symbolp symbs)
(if (boundp symbs)
(setq symbs (symbol-value symbs))
- (warn "symbol `%s' has no value" symbs)
+ (warn "Symbol `%s' has no value" symbs)
(setq symbs nil))
(if (obarrayp symbs)
(mapatoms add-xref symbs)
(face :tag "Face"))))
(defcustom flymake-autoresize-margins t
- "If non-nil, automatically resize margin-width calling flymake--resize-margins.
+ "If non-nil, automatically resize margin-width calling `flymake--resize-margins'.
Only relevant if `flymake-indicator-type' is set to margins."
:version "30.1"
(defun gdb-mouse-until (event)
"Continue running until a source line past the current line.
The destination source line can be selected either by clicking
-with mouse-3 on the fringe/margin or dragging the arrow
-with mouse-1 (default bindings)."
+with \\`mouse-3' on the fringe/margin or dragging the arrow
+with \\`mouse-1' (default bindings)."
(interactive "e")
(let ((start (event-start event))
(end (event-end event)))
(defun gdb-mouse-jump (event)
"Set execution address/line.
-The destination source line can be selected either by clicking with C-mouse-3
-on the fringe/margin or dragging the arrow with C-mouse-1 (default bindings).
+The destination source line can be selected either by clicking with \\`C-mouse-3'
+on the fringe/margin or dragging the arrow with \\`C-mouse-1' (default bindings).
Unlike `gdb-mouse-until' the destination address can be before the current
line, and no execution takes place."
(interactive "e")
'c99 t)))
((eq token 'hif-comma)
(if etc
- (error "Syntax error: no comma allowed after `...'.")))
+ (error "Syntax error: no comma allowed after `...'")))
(t
(push token result))))
(setq result (nreverse result))
(if (memq system-type '(ms-dos windows-nt))
nil
"/usr/local/etc/")
- "The directory where the idl_html_help/ dir lives. Obsolete for IDL
-6.2 or later (see `idlwave-html-system-help-location')."
+ "The directory where the idl_html_help/ dir lives.
+Obsolete for IDL 6.2 or later (see `idlwave-html-system-help-location')."
:type 'directory)
(defcustom idlwave-help-use-assistant t
(defcustom idlwave-reserved-word-upcase nil
"Non-nil means, reserved words will be made upper case via abbrev expansion.
If nil case of reserved words is controlled by `idlwave-abbrev-change-case'.
-Has effect only if in abbrev-mode."
+Has effect only if in `abbrev-mode'."
:group 'idlwave-abbrev-and-indent-action
:type 'boolean)
"Java operators for tree-sitter font-locking.")
(defun java-ts-mode--string-highlight-helper ()
-"Returns, for strings, a query based on what is supported by
-the available version of Tree-sitter for java."
+ "Return, for strings, a query based on what is supported by
+the available version of Tree-sitter for Java."
(condition-case nil
(progn (treesit-query-capture 'java '((text_block) @font-lock-string-face))
`((string_literal) @font-lock-string-face
t)))
(defun js--chained-expression-p ()
- "A helper for js--proper-indentation that handles chained expressions.
+ "Helper for `js--proper-indentation' that handles chained expressions.
A chained expression is when the current line starts with '.' and the
previous line also has a '.' expression.
This function returns the indentation for the current line if it is
;;;###autoload
(define-derived-mode pascal-mode prog-mode "Pascal"
- "Major mode for editing Pascal code.\\<pascal-mode-map>
+ "Major mode for editing Pascal code.
+\\<pascal-mode-map>
TAB indents for Pascal code. Delete converts tabs to spaces as it moves back.
\\[completion-at-point] completes the word around current point with respect \
regardless of where in the line point is when the TAB command is used.
`pascal-auto-endcomments' (default t)
Non-nil means a comment { ... } is set after the ends which ends cases and
- functions. The name of the function or case will be set between the braces.
+ functions. The name of the function or case will be set between the braces.
`pascal-auto-lineup' (default t)
List of contexts where auto lineup of :'s or ='s should be done.
(pascal-beg-of-defun))
(defun pascal-comment-area (start end)
- "Put the region into a Pascal comment.\\<pascal-mode-map>
+ "Put the region into a Pascal comment.
+\\<pascal-mode-map>
The comments that are in this area are \"deformed\":
`*)' becomes `!(*' and `}' becomes `!{'.
These deformed comments are returned to normal if you use
For example, Lvl1 | Lvl2[Lvl3[Lvl4[Lvl5 | None]], Lvl2]. This
structure is represented via nesting binary_operator and
subscript nodes. This function iterates over all levels and
-highlight identifier nodes. If TYPE-REGEX is not nil fontify type
-identifier only if it matches against TYPE-REGEX. NODE is the
+highlight identifier nodes. If TYPE-REGEX is not nil fontify type
+identifier only if it matches against TYPE-REGEX. NODE is the
binary_operator node. OVERRIDE is the override flag described in
`treesit-font-lock-rules'. START and END mark the region to be
fontified."
"If non-nil, align chained method calls.
Each method call on a separate line will be aligned to the column
-of its parent. Example:
+of its parent. Example:
my_array.select { |str| str.size > 5 }
.map { |str| str.downcase }
"Non-nil to align the body of a block to the statement's start.
The body and the closer will be aligned to the column where the
-statement containing the block starts. Example:
+statement containing the block starts. Example:
foo.bar
.each do
"Non-nil with allow `ruby-flymake-rubocop' to use `bundle exec'.
When the value is `check', it will first see whether Gemfile exists in
the same directory as the configuration file, and whether it mentions
-the gem \"rubocop\". When t, it's used unconditionally. "
+the gem \"rubocop\". When t, it is used unconditionally."
:type '(choice (const :tag "Always" t)
(const :tag "No" nil)
(const :tag "If rubocop is in Gemfile" check))
(?> '(5 . ?<))))))))
(defun rust-ts-mode--prettify-symbols-compose-p (start end match)
- "Return true iff the symbol MATCH should be composed.
+ "Return non-nil if the symbol MATCH should be composed.
See `prettify-symbols-compose-predicate'."
(and (fboundp 'prettify-symbols-default-compose-p)
(prettify-symbols-default-compose-p start end match)
(setq sig-list (cons (list (match-string-no-properties 1) nil nil) sig-list))))
sig-list)))
-(defvar verilog-cache-has-lisp nil "True if any AUTO_LISP in buffer.")
+(defvar verilog-cache-has-lisp nil "Non-nil if any AUTO_LISP in buffer.")
(make-variable-buffer-local 'verilog-cache-has-lisp)
(defun verilog-read-auto-lisp-present ()
expand the above into:
/*AUTOINSERTLISP(my-verilog-insert-hello \"world\")*/
- // Beginning of automatic insert lisp
+ // Beginning of automatic insert Lisp
initial $write(\"hello world\");
// End of automatics
(defun verilog-highlight-region (beg end _old-len)
"Colorize included files and modules in the (changed?) region.
-Clicking on the middle-mouse button loads them in a buffer (as in dired)."
+Clicking on the middle-mouse button loads them in a buffer (as in Dired)."
(when (or verilog-highlight-includes
verilog-highlight-modules)
(save-excursion
(set-window-parameter w 'xref--history (xref--make-xref-history))))))
(defun xref--get-history ()
- "Return xref history using xref-history-storage."
+ "Return xref history using `xref-history-storage'."
(funcall xref-history-storage))
(defun xref--push-backward (m)
projects / emacs.git / commitdiff