[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 0a7bab6: ; Minor stylistic fixes found by checkdoc
|
From: |
Stefan Kangas |
|
Subject: |
emacs-28 0a7bab6: ; Minor stylistic fixes found by checkdoc |
|
Date: |
Mon, 4 Oct 2021 20:07:18 -0400 (EDT) |
branch: emacs-28
commit 0a7bab689c4a113dd295c9db55d8e76a34d5f9e1
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
; Minor stylistic fixes found by checkdoc
---
lisp/allout-widgets.el | 2 +-
lisp/allout.el | 10 +++++-----
lisp/calc/calc-prog.el | 2 +-
lisp/cedet/semantic/wisent/python.el | 6 +++---
lisp/cedet/srecode/dictionary.el | 2 +-
lisp/dired-aux.el | 2 +-
lisp/emacs-lisp/autoload.el | 10 +++++-----
lisp/emacs-lisp/avl-tree.el | 3 +--
lisp/emacs-lisp/byte-run.el | 3 ++-
lisp/emacs-lisp/bytecomp.el | 6 +++---
lisp/emacs-lisp/cl-extra.el | 2 +-
lisp/emacs-lisp/ert.el | 2 +-
lisp/emacs-lisp/ewoc.el | 4 ++--
lisp/emacs-lisp/lisp-mode.el | 4 ++--
lisp/emacs-lisp/smie.el | 2 +-
lisp/emacs-lisp/tabulated-list.el | 2 +-
lisp/emacs-lisp/timer.el | 19 +++++++++++++------
lisp/emulation/viper-cmd.el | 2 +-
lisp/files.el | 6 +++---
lisp/format.el | 2 +-
lisp/gnus/gnus-srvr.el | 4 ++--
lisp/gnus/gnus-start.el | 2 +-
lisp/gnus/mml-sec.el | 6 +++---
lisp/gnus/nnrss.el | 2 +-
lisp/hilit-chg.el | 2 +-
lisp/ibuf-ext.el | 2 +-
lisp/international/ccl.el | 6 +++---
lisp/mail/feedmail.el | 2 +-
lisp/net/ange-ftp.el | 2 +-
lisp/net/soap-client.el | 4 ++--
lisp/net/soap-inspect.el | 2 +-
lisp/obsolete/cust-print.el | 10 +++++-----
lisp/obsolete/landmark.el | 12 ++++++------
lisp/obsolete/tls.el | 4 ++--
lisp/obsolete/vip.el | 14 +++++++-------
lisp/printing.el | 2 +-
lisp/progmodes/cc-cmds.el | 13 ++++++-------
lisp/progmodes/cc-mode.el | 2 +-
lisp/progmodes/cc-vars.el | 2 +-
lisp/progmodes/cperl-mode.el | 6 +++---
lisp/progmodes/ebnf-dtd.el | 2 +-
lisp/progmodes/idlw-shell.el | 5 +++--
lisp/progmodes/idlwave.el | 5 ++---
lisp/progmodes/opascal.el | 6 +++---
lisp/progmodes/prolog.el | 4 ++--
lisp/progmodes/sh-script.el | 2 +-
lisp/progmodes/sql.el | 4 ++--
lisp/progmodes/verilog-mode.el | 4 ++--
lisp/progmodes/vhdl-mode.el | 19 +++++++++----------
lisp/progmodes/xscheme.el | 2 +-
lisp/ps-print.el | 2 +-
lisp/textmodes/reftex-global.el | 2 +-
lisp/textmodes/reftex-ref.el | 2 +-
lisp/textmodes/texnfo-upd.el | 4 ++--
lisp/vc/ediff-mult.el | 2 +-
lisp/vc/ediff-util.el | 2 +-
lisp/vc/log-edit.el | 2 +-
57 files changed, 132 insertions(+), 127 deletions(-)
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index 668e7b9..f18d488 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -880,7 +880,7 @@ encompassing condition-case."
;; reraise the error, or one concerning this function if unexpected:
(if (equal mode 'error)
(apply #'signal args)
- (error "%s: unexpected mode, %s %s" this mode args))))
+ (error "%s: Unexpected mode, %s %s" this mode args))))
;;;_ > allout-widgets-changes-exceed-threshold-p ()
(defun allout-widgets-adjusting-message (message)
"Post MESSAGE when pending are likely to make a big enough delay.
diff --git a/lisp/allout.el b/lisp/allout.el
index c123e8d..5102ee7 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -823,12 +823,12 @@ such topics are encrypted.)"
:group 'allout-encryption)
(make-variable-buffer-local 'allout-encrypt-unencrypted-on-saves)
(defvar allout-auto-save-temporarily-disabled nil
- "True while topic encryption is pending and auto-saving was active.
+ "Non-nil while topic encryption is pending and auto-saving was active.
The value of `buffer-saved-size' at the time of decryption is used,
for restoring when all encryptions are established.")
(defvar-local allout-just-did-undo nil
- "True just after undo commands, until allout-post-command-business.")
+ "Non-nil just after undo commands, until allout-post-command-business.")
;;;_ + Developer
;;;_ = allout-developer group
@@ -3190,7 +3190,7 @@ Set by `allout-pre-command-business', to support allout
addons in
coordinating with allout activity.")
;;;_ = allout-this-command-hid-text
(defvar-local allout-this-command-hid-text nil
- "True if the most recent allout-mode command hid any text.")
+ "Non-nil if the most recent `allout-mode' command hid any text.")
;;;_ > allout-post-command-business ()
(defun allout-post-command-business ()
"Outline `post-command-hook' function.
@@ -4787,7 +4787,7 @@ Useful for coherently exposing to a random point in a
hidden region."
(setq bag-it (1+ bag-it))
(if (> bag-it 1)
(error "allout-show-to-offshoot: %s"
- "Stumped by aberrant nesting.")))
+ "Stumped by aberrant nesting")))
(if (> bag-it 0) (setq bag-it 0))
(allout-show-children)
(goto-char orig-pref)))
@@ -5402,7 +5402,7 @@ Defaults:
;; Specified but not a buffer -- get it:
(let ((got (get-buffer frombuf)))
(if (not got)
- (error "allout-process-exposed: source buffer %s not found."
+ (error "allout-process-exposed: Source buffer %s not found"
frombuf)
(setq frombuf got))))
;; not specified -- default it:
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index f9dd9eb..3492b6d 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -124,7 +124,7 @@
(or (memq (car-safe (car-safe place)) '(error xxxerror))
(setq place (aref (nth 2 (nth 2 (symbol-function 'calc-do))) 27)))
(or (memq (car (car place)) '(error xxxerror))
- (error "foo"))
+ (error "Foo"))
(setcar (car place) 'xxxerror))
(error (error "The calc-do function has been modified; unable to patch"))))
diff --git a/lisp/cedet/semantic/wisent/python.el
b/lisp/cedet/semantic/wisent/python.el
index fb878dd..2eeade6 100644
--- a/lisp/cedet/semantic/wisent/python.el
+++ b/lisp/cedet/semantic/wisent/python.el
@@ -118,9 +118,9 @@ curly braces."
;; look-ahead assertions.)
(when (and (= (- end start) 2)
(looking-at "\"\\{3\\}\\|'\\{3\\}"))
- (error "unterminated syntax"))
+ (error "Unterminated syntax"))
(goto-char end))
- (error "unterminated syntax")))
+ (error "Unterminated syntax")))
(defun wisent-python-forward-balanced-expression ()
"Move point to the end of the balanced expression at point.
@@ -145,7 +145,7 @@ triple-quoted string syntax."
;; delimiter (backquote) characters, line continuation, and end
;; of comment characters (AKA newline characters in Python).
((zerop (skip-syntax-forward "-w_.$\\>"))
- (error "can't figure out how to go forward from here"))))
+ (error "Can't figure out how to go forward from here"))))
;; Skip closing character. As a last resort this should raise an
;; error if we hit EOB before we find our closing character..
(forward-char 1)))
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el
index d6dfc58..e47a09f 100644
--- a/lisp/cedet/srecode/dictionary.el
+++ b/lisp/cedet/srecode/dictionary.el
@@ -364,7 +364,7 @@ values but STATE is nil."
;; Value is some other object; create a compound value.
(t
(unless state
- (error "Cannot insert compound values without state."))
+ (error "Cannot insert compound values without state"))
(srecode-dictionary-set-value
dict name
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 4b8d271..32375ac 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2736,7 +2736,7 @@ This function takes some pains to conform to `ls -lR'
output."
;; Check that it is valid to insert DIRNAME with SWITCHES.
;; Signal an error if invalid (e.g. user typed `i' on `..').
(or (file-in-directory-p dirname (expand-file-name default-directory))
- (error "%s: not in this directory tree" dirname))
+ (error "%s: Not in this directory tree" dirname))
(let ((real-switches (or switches dired-subdir-switches)))
(when real-switches
(let (case-fold-search)
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index f620cdb..aaacba2 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -462,7 +462,7 @@ if `autoload-timestamps' is non-nil, otherwise a fixed fake
time is inserted)."
(insert "\n" generate-autoload-section-continuation))))))
(defun autoload-find-file (file)
- "Fetch file and put it in a temp buffer. Return the buffer."
+ "Fetch FILE and put it in a temp buffer. Return the buffer."
;; It is faster to avoid visiting the file.
(setq file (expand-file-name file))
(with-current-buffer (get-buffer-create " *autoload-file*")
@@ -482,10 +482,10 @@ if `autoload-timestamps' is non-nil, otherwise a fixed
fake time is inserted)."
"File local variable to prevent scanning this file for autoload cookies.")
(defun autoload-file-load-name (file outfile)
- "Compute the name that will be used to load FILE."
- ;; OUTFILE should be the name of the global loaddefs.el file, which
- ;; is expected to be at the root directory of the files we're
- ;; scanning for autoloads and will be in the `load-path'.
+ "Compute the name that will be used to load FILE.
+OUTFILE should be the name of the global loaddefs.el file, which
+is expected to be at the root directory of the files we are
+scanning for autoloads and will be in the `load-path'."
(let* ((name (file-relative-name file (file-name-directory outfile)))
(names '())
(dir (file-name-directory outfile)))
diff --git a/lisp/emacs-lisp/avl-tree.el b/lisp/emacs-lisp/avl-tree.el
index 4382985..3f80310 100644
--- a/lisp/emacs-lisp/avl-tree.el
+++ b/lisp/emacs-lisp/avl-tree.el
@@ -330,8 +330,7 @@ inserted data."
data)))
(if (or (funcall cmpfun newdata data)
(funcall cmpfun data newdata))
- (error "avl-tree-enter:\
- updated data does not match existing data"))
+ (error "avl-tree-enter: Updated data does not match existing
data"))
(setf (avl-tree--node-data br) newdata)
(cons nil newdata)) ; return value
))))
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 35c80e5..da86fa5 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -422,7 +422,8 @@ 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 \"28.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:
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 0856626..3f050d1 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1082,7 +1082,7 @@ If STR is something like \"Buffer foo.el\", return
#<buffer foo.el>
(defconst emacs-lisp-compilation-parse-errors-filename-function
#'emacs-lisp-compilation-file-name-or-buffer
"The value for `compilation-parse-errors-filename-function' for when
-we go into emacs-lisp-compilation-mode.")
+we go into `emacs-lisp-compilation-mode'.")
(defcustom emacs-lisp-compilation-search-path '(nil)
"Directories to search for files named in byte-compile error messages.
@@ -2810,8 +2810,8 @@ not to take responsibility for the actual compilation of
the code."
t)))))
(defun byte-compile-output-as-comment (exp quoted)
- "Print Lisp object EXP in the output file, inside a comment,
-and return the file (byte) position it will have.
+ "Print Lisp object EXP in the output file, inside a comment.
+Return the file (byte) position it will have.
If QUOTED is non-nil, print with quoting; otherwise, print without quoting."
(with-current-buffer byte-compile--outbuffer
(let ((position (point)))
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index 0ed7547..499d26b 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -336,7 +336,7 @@ non-nil value.
;;;###autoload
(defun cl-isqrt (x)
- "Return the integer square root of the (integer) argument."
+ "Return the integer square root of the (integer) argument X."
(if (and (integerp x) (> x 0))
(let ((g (ash 2 (/ (logb x) 2)))
g2)
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 72fe194..98cb1fd 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -262,7 +262,7 @@ DATA is displayed to the user and should state the reason
for skipping."
;; See Bug#24402 for why this exists
(defun ert--should-signal-hook (error-symbol data)
"Stupid hack to stop `condition-case' from catching ert signals.
-It should only be stopped when ran from inside ert--run-test-internal."
+It should only be stopped when ran from inside `ert--run-test-internal'."
(when (and (not (symbolp debugger)) ; only run on anonymous debugger
(memq error-symbol '(ert-test-failed ert-test-skipped)))
(funcall debugger 'error (cons error-symbol data))))
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index 68f94ed..8636dc9 100644
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -49,7 +49,7 @@
;;
;; Ewoc is a package that implements a connection between an
;; dll (a doubly linked list) and the contents of a buffer.
-;; Possible uses are dired (have all files in a list, and show them),
+;; Possible uses are Dired (have all files in a list, and show them),
;; buffer-list, kom-prioritize (in the LysKOM elisp client) and
;; others. pcl-cvs.el and vc.el use ewoc.el.
;;
@@ -381,7 +381,7 @@ arguments will be passed to MAP-FUNCTION."
(defun ewoc-filter (ewoc predicate &rest args)
"Remove all elements in EWOC for which PREDICATE returns nil.
-Note that the buffer for EWOC will be current-buffer when PREDICATE
+Note that the buffer for EWOC will be the current buffer when PREDICATE
is called. PREDICATE must restore the current buffer before it returns
if it changes it.
The PREDICATE is called with the element as its first argument. If any
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index eac3c03..fc7a736 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -556,7 +556,7 @@ This will generate compile-time constants from BINDINGS."
"Gaudy highlighting from Emacs Lisp mode used in Backtrace mode.")
(defun lisp-string-in-doc-position-p (listbeg startpos)
- "Return true if a doc string may occur at STARTPOS inside a list.
+ "Return non-nil if a doc string may occur at STARTPOS inside a list.
LISTBEG is the position of the start of the innermost list
containing STARTPOS."
(let* ((firstsym (and listbeg
@@ -589,7 +589,7 @@ containing STARTPOS."
(= (point) startpos))))))
(defun lisp-string-after-doc-keyword-p (listbeg startpos)
- "Return true if `:documentation' symbol ends at STARTPOS inside a list.
+ "Return non-nil if `:documentation' symbol ends at STARTPOS inside a list.
LISTBEG is the position of the start of the innermost list
containing STARTPOS."
(and listbeg ; We are inside a Lisp form.
diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el
index d775f15..8e14fae 100644
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@@ -1302,7 +1302,7 @@ Only meaningful when called from within
`smie-rules-function'."
(let ((tok (funcall smie-forward-token-function)))
(unless tok
(with-demoted-errors
- (error "smie-rule-separator: can't skip token %s"
+ (error "smie-rule-separator: Can't skip token %s"
smie--token))))
(skip-chars-forward " ")
(unless (eolp) (point)))))
diff --git a/lisp/emacs-lisp/tabulated-list.el
b/lisp/emacs-lisp/tabulated-list.el
index 5210b2b..0ae355e 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -256,7 +256,7 @@ Populated by `tabulated-list-init-header'.")
(defvar tabulated-list--header-overlay nil)
(defun tabulated-list-line-number-width ()
- "Return the width taken by display-line-numbers in the current buffer."
+ "Return the width taken by `display-line-numbers' in the current buffer."
;; line-number-display-width returns the value for the selected
;; window, which might not be the window in which the current buffer
;; is displayed.
diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index 382f6bb..1ef4931 100644
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -125,9 +125,12 @@ of SECS seconds since the epoch. SECS may be a fraction."
(time-convert (cons (- more-ticks (% more-ticks trunc-s-ticks)) hz)))))
(defun timer-relative-time (time secs &optional usecs psecs)
- "Advance TIME by SECS seconds and optionally USECS microseconds
-and PSECS picoseconds. SECS may be either an integer or a
-floating point number."
+ "Advance TIME by SECS seconds.
+
+Optionally also advance it by USECS microseconds and PSECS
+picoseconds.
+
+SECS may be either an integer or a floating point number."
(let ((delta secs))
(if (or usecs psecs)
(setq delta (time-add delta (list 0 0 (or usecs 0) (or psecs 0)))))
@@ -138,9 +141,13 @@ floating point number."
(time-less-p (timer--time t1) (timer--time t2)))
(defun timer-inc-time (timer secs &optional usecs psecs)
- "Increment the time set in TIMER by SECS seconds, USECS microseconds,
-and PSECS picoseconds. SECS may be a fraction. If USECS or PSECS are
-omitted, they are treated as zero."
+ "Increment the time set in TIMER by SECS seconds.
+
+Optionally also increment it by USECS microseconds, and PSECS
+picoseconds. If USECS or PSECS are omitted, they are treated as
+zero.
+
+SECS may be a fraction."
(setf (timer--time timer)
(timer-relative-time (timer--time timer) secs usecs psecs)))
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 3fcc14c..9f3d515 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -3767,7 +3767,7 @@ Null string will repeat previous search."
(define-key viper-vi-basic-map
(cond ((characterp viper-buffer-search-char)
(char-to-string viper-buffer-search-char))
- (t (error "viper-buffer-search-char: wrong value type, %S"
+ (t (error "viper-buffer-search-char: Wrong value type, %S"
viper-buffer-search-char)))
#'viper-command-argument)
(aset viper-exec-array viper-buffer-search-char #'viper-exec-buffer-search)
diff --git a/lisp/files.el b/lisp/files.el
index 19b88e6..64c69e6 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5597,7 +5597,7 @@ Before and after saving the buffer, this function runs
(if (not (file-directory-p dir))
(if (file-exists-p dir)
(error "%s is not a directory" dir)
- (error "%s: no such directory" dir))
+ (error "%s: No such directory" dir))
(if (not (file-exists-p buffer-file-name))
(error "Directory %s write-protected" dir)
(if (yes-or-no-p
@@ -7948,7 +7948,7 @@ for the specified category of users."
((= char ?g) #o2070)
((= char ?o) #o1007)
((= char ?a) #o7777)
- (t (error "%c: bad `who' character" char))))
+ (t (error "%c: Bad `who' character" char))))
(defun file-modes-char-to-right (char &optional from)
"Convert CHAR to a numeric value of mode bits.
@@ -7971,7 +7971,7 @@ If CHAR is in [Xugo], the value is taken from FROM (or 0
if omitted)."
(+ gright (/ gright #o10) (* gright #o10))))
((= char ?o) (let ((oright (logand #o1007 from)))
(+ oright (* oright #o10) (* oright #o100))))
- (t (error "%c: bad right character" char))))
+ (t (error "%c: Bad right character" char))))
(defun file-modes-rights-to-number (rights who-mask &optional from)
"Convert a symbolic mode string specification to an equivalent number.
diff --git a/lisp/format.el b/lisp/format.el
index 71cf885..6c0ba11 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -519,7 +519,7 @@ the value of `foo'."
(cdr list)
(let ((p list))
(while (not (eq (cdr p) cons))
- (if (null p) (error "format-delq-cons: not an element"))
+ (if (null p) (error "format-delq-cons: Not an element"))
(setq p (cdr p)))
;; Now (cdr p) is the cons to delete
(setcdr p (cdr cons))
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 115efa9..5f2fc46 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -570,7 +570,7 @@ The following commands are available:
(when (assoc to gnus-server-alist)
(error "%s already exists" to))
(unless (gnus-server-to-method from)
- (error "%s: no such server" from))
+ (error "%s: No such server" from))
(let ((to-entry (cons from (copy-tree
(gnus-server-to-method from)))))
(setcar to-entry to)
@@ -1128,7 +1128,7 @@ Requesting compaction of %s... (this may take a long
time)"
(customize-set-variable 'gnus-cloud-method server)
;; Note we can't use `Custom-save' here.
(when (gnus-yes-or-no-p
- (format "The new cloud host server is %S now. Save it? " server))
+ (format "The new cloud host server is `%S' now. Save it?"
server))
(customize-save-variable 'gnus-cloud-method server)))
(when (gnus-yes-or-no-p (format "Upload Cloud data to %S now? " server))
(gnus-message 1 "Uploading all data to Emacs Cloud server %S" server)
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index e32cfc0..c7be958 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2934,7 +2934,7 @@ SPECIFIC-VARIABLES, or those in `gnus-variable-list'."
(nreverse olist)))
(defun gnus-gnus-to-newsrc-format (&optional foreign-ok)
- (interactive (list (gnus-y-or-n-p "write foreign groups too? ")))
+ (interactive (list (gnus-y-or-n-p "Write foreign groups too?")))
;; Generate and save the .newsrc file.
(with-current-buffer (create-file-buffer gnus-current-startup-file)
(let ((standard-output (current-buffer))
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index b497935..f72d76a 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -238,7 +238,7 @@ You can also customize or set `mml-signencrypt-style-alist'
instead."
(goto-char (match-end 0))
(apply #'mml-insert-tag 'part (cons (if sign 'sign 'encrypt)
(cons method tags))))
- (t (error "The message is corrupted. No mail header separator"))))))
+ (t (error "The message is corrupted. No mail header
separator"))))))
(defvar mml-secure-method
(if (equal mml-default-encrypt-method mml-default-sign-method)
@@ -328,7 +328,7 @@ either an error is raised or not."
(unless (yes-or-no-p "Message for encryption contains Bcc header.\
This may give away all Bcc'ed identities to all recipients.\
Are you sure that this is safe?\
- (Customize `mml-secure-safe-bcc-list' to avoid this warning.) ")
+ (Customize `mml-secure-safe-bcc-list' to avoid this warning.)")
(error "Aborted"))))))))
;; defuns that add the proper <#secure ...> tag to the top of the message body
@@ -352,7 +352,7 @@ either an error is raised or not."
(apply #'mml-insert-tag
'secure 'method method 'mode mode tags)))
(t (error
- "The message is corrupted. No mail header separator"))))
+ "The message is corrupted. No mail header separator"))))
(when (eql insert-loc (point))
(forward-line 1))))
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index 97c9f18..0ac57e9 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -715,7 +715,7 @@ Read the file and attempt to subscribe to each Feed in the
file."
(when (and xmlurl
(not (string-match "\\`[\t ]*\\'" xmlurl))
(prog1
- (y-or-n-p (format "Subscribe to %s " xmlurl))
+ (y-or-n-p (format "Subscribe to %s?" xmlurl))
(message "")))
(condition-case err
(progn
diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el
index 8919e98..d9fab6b 100644
--- a/lisp/hilit-chg.el
+++ b/lisp/hilit-chg.el
@@ -444,7 +444,7 @@ This is the opposite of `hilit-chg-hide-changes'."
;; We set the change property so we can tell this is one
;; of our overlays (so we don't delete someone else's).
(overlay-put ov 'hilit-chg t))
- (error "hilit-chg-make-ov: no face for prop: %s" prop))))
+ (error "hilit-chg-make-ov: No face for prop: %s" prop))))
(defun hilit-chg-hide-changes (&optional beg end)
"Remove face information for Highlight Changes mode.
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 7c95baf..5b69a87 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1210,7 +1210,7 @@ Interactively, prompt for NAME, and use the current
filters."
(_
(let ((type (assq (car qualifier) ibuffer-filtering-alist)))
(unless qualifier
- (error "Ibuffer: bad qualifier %s" qualifier))
+ (error "Ibuffer: Bad qualifier %s" qualifier))
(concat " [" (cadr type) ": " (format "%s]" (cdr qualifier)))))))
(defun ibuffer-list-buffer-modes (&optional include-parents)
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 9be4d1e..629cd4c 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -510,7 +510,7 @@ If READ-FLAG is non-nil, this statement has the form
(arg (nth 2 condition)))
(ccl-check-register rrr cmd)
(or (integerp op)
- (error "CCL: invalid operator: %s" (nth 1 condition)))
+ (error "CCL: Invalid operator: %s" (nth 1 condition)))
(if (integerp arg)
(progn
(ccl-embed-code (if read-flag 'read-jump-cond-expr-const
@@ -862,7 +862,7 @@ is a list of CCL-BLOCKs."
rrr RRR 0)
(ccl-embed-symbol Rrr 'translation-hash-table-id))
(t
- (error "CCL: non-constant table: %s" cmd)
+ (error "CCL: Non-constant table: %s" cmd)
;; not implemented:
(ccl-check-register Rrr cmd)
(ccl-embed-extended-command 'lookup-int rrr RRR 0))))
@@ -882,7 +882,7 @@ is a list of CCL-BLOCKs."
rrr RRR 0)
(ccl-embed-symbol Rrr 'translation-hash-table-id))
(t
- (error "CCL: non-constant table: %s" cmd)
+ (error "CCL: Non-constant table: %s" cmd)
;; not implemented:
(ccl-check-register Rrr cmd)
(ccl-embed-extended-command 'lookup-char rrr RRR 0))))
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 608062f..fe686cb 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -2020,7 +2020,7 @@ backup file names and the like)."
;; if can't find EOH, this is no message!
(unless (feedmail-find-eoh t)
(feedmail-say-chatter "Skipping %s; no
mail-header-separator" maybe-file)
- (error "FQM: you should never see this message"))
+ (error "FQM: You should never see this message"))
(feedmail-say-debug "Prepping %s" maybe-file)
;; the catch is a way out for users to voluntarily skip
sending a message
(catch 'skip-me-q (funcall
feedmail-queue-runner-message-sender arg))
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 56a1d76..2585833 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4723,7 +4723,7 @@ NEWNAME should be the name to give the new compressed or
uncompressed file.")
;; by using the ftp chmod command.
(defun ange-ftp-call-chmod (args)
(if (< (length args) 2)
- (error "ange-ftp-call-chmod: missing mode and/or filename: %s" args))
+ (error "ange-ftp-call-chmod: Missing mode and/or filename: %s" args))
(let ((mode (car args))
(rest (cdr args)))
(if (equal "--" (car rest))
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index 6e10b5c..b4aed27 100644
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -860,7 +860,7 @@ contains a reference, retrieve the type of the reference."
(if complex-type
(setq type (soap-xs-parse-complex-type (car complex-type)))
;; else
- (error "Soap-xs-parse-element: missing type or ref"))))))
+ (error "soap-xs-parse-element: Missing type or ref"))))))
(make-soap-xs-element :name name
;; Use the full namespace name for now, we will
@@ -2874,7 +2874,7 @@ decode function to perform the actual decoding."
(unless wtype
;; The node has type info encoded in it, but we don't know how to
;; decode it...
- (error "Soap-decode-array: node has unknown type: %s" type)))
+ (error "soap-decode-array: Node has unknown type: %s" type)))
(dolist (e contents)
(when (consp e)
(push (if wtype
diff --git a/lisp/net/soap-inspect.el b/lisp/net/soap-inspect.el
index 5207ca8..eca338e 100644
--- a/lisp/net/soap-inspect.el
+++ b/lisp/net/soap-inspect.el
@@ -220,7 +220,7 @@ to its sub elements. If ELEMENT is the WSDL document
itself, the
entire WSDL can be inspected."
(let ((inspect (get (soap-type-of element) 'soap-inspect)))
(unless inspect
- (error "Soap-inspect: no inspector for element"))
+ (error "soap-inspect: No inspector for element"))
(with-current-buffer (get-buffer-create "*soap-inspect*")
(setq buffer-read-only t)
diff --git a/lisp/obsolete/cust-print.el b/lisp/obsolete/cust-print.el
index 01fcd38..897b401 100644
--- a/lisp/obsolete/cust-print.el
+++ b/lisp/obsolete/cust-print.el
@@ -643,11 +643,11 @@ See `custom-format' for the details."
(let ((print-circle t))
(or (equal (prin1-to-string circ-list) "#1=(a b [1 2 #1# 4] #1# e f)")
- (error "circular object with array printing")))
+ (error "Circular object with array printing")))
(let ((print-circle t))
(or (equal (prin1-to-string dotted-circ-list) "#1=(a b c . #1#)")
- (error "circular object with array printing")))
+ (error "Circular object with array printing")))
(let* ((print-circle t)
(x (list 'p 'q))
@@ -655,16 +655,16 @@ See `custom-format' for the details."
(setcdr (cdr (cdr (cdr y))) (cdr y))
(or (equal (prin1-to-string y) "((a b) . #1=(#2=(p q) foo #2# . #1#))"
)
- (error "circular list example from CL manual")))
+ (error "Circular list example from CL manual")))
(let ((print-circle nil))
;; cl-packages.el is required to print uninterned symbols like #:FOO.
;; (require 'cl-packages)
(or (equal (prin1-to-string circ-sym) "(#:FOO #:FOO)")
- (error "uninterned symbols in list")))
+ (error "Uninterned symbols in list")))
(let ((print-circle t))
(or (equal (prin1-to-string circ-sym) "(#1=FOO #1#)")
- (error "circular uninterned symbols in list")))
+ (error "Circular uninterned symbols in list")))
(uninstall-custom-print)
)
diff --git a/lisp/obsolete/landmark.el b/lisp/obsolete/landmark.el
index 83e7649..16c41c7 100644
--- a/lisp/obsolete/landmark.el
+++ b/lisp/obsolete/landmark.el
@@ -757,9 +757,9 @@ If the game is finished, this command requests for another
game."
(let ((square (landmark-point-square))
score)
(cond ((null square)
- (error "Your point is not on a square. Retry!"))
+ (error "Your point is not on a square. Retry!"))
((not (zerop (aref landmark-board square)))
- (error "Your point is not on a free square. Retry!"))
+ (error "Your point is not on a free square. Retry!"))
(t
(setq score (aref landmark-score-table square))
(landmark-play-move square 1)
@@ -823,14 +823,14 @@ If the game is finished, this command requests for
another game."
(defun landmark-prompt-for-other-game ()
"Ask for another game, and start it."
(if (y-or-n-p "Another game? ")
- (if (y-or-n-p "Retain learned weights ")
+ (if (y-or-n-p "Retain learned weights?")
(landmark 2)
(landmark 1))
(message "Chicken!")))
(defun landmark-offer-a-draw ()
"Offer a draw and return t if Human accepted it."
- (or (y-or-n-p "I offer you a draw. Do you accept it? ")
+ (or (y-or-n-p "I offer you a draw. Do you accept it?")
(not (setq landmark-human-refused-draw t))))
@@ -1512,9 +1512,9 @@ If the game is finished, this command requests for
another game."
(t
(let ((square (landmark-point-square)))
(cond ((null square)
- (error "Your point is not on a square. Retry!"))
+ (error "Your point is not on a square. Retry!"))
((not (zerop (aref landmark-board square)))
- (error "Your point is not on a free square. Retry!"))
+ (error "Your point is not on a free square. Retry!"))
(t
(progn
(landmark-plot-square square 1)
diff --git a/lisp/obsolete/tls.el b/lisp/obsolete/tls.el
index 5cba18d..ff01008 100644
--- a/lisp/obsolete/tls.el
+++ b/lisp/obsolete/tls.el
@@ -260,14 +260,14 @@ Fourth arg PORT is an integer specifying a port to
connect to."
NOT trusted." host))
(not (yes-or-no-p
(format-message "\
-The certificate presented by `%s' is NOT trusted. Accept anyway? " host)))))
+The certificate presented by `%s' is NOT trusted. Accept anyway?" host)))))
(and tls-hostmismatch
(save-excursion
(goto-char (point-min))
(re-search-forward tls-hostmismatch nil t))
(not (yes-or-no-p
(format "Host name in certificate doesn't \
-match `%s'. Connect anyway? " host))))))
+match `%s'. Connect anyway?" host))))))
(setq done nil)
(delete-process process))
;; Delete all the informational messages that could confuse
diff --git a/lisp/obsolete/vip.el b/lisp/obsolete/vip.el
index 16906b6..2fa8c95 100644
--- a/lisp/obsolete/vip.el
+++ b/lisp/obsolete/vip.el
@@ -615,11 +615,11 @@ obtained so far, and COM is the command part obtained so
far."
(cond ((null arg) nil)
((consp arg) (car arg))
((numberp arg) arg)
- (t (error "strange arg")))
+ (t (error "Strange arg")))
(cond ((null arg) nil)
((consp arg) (cdr arg))
((numberp arg) nil)
- (t (error "strange arg"))))
+ (t (error "Strange arg"))))
(quit
(setq vip-use-register nil)
(signal 'quit nil))))
@@ -2248,7 +2248,7 @@ a token has type \(command, address, end-mark) and value."
(setq ex-token-type "end-mark")
(setq ex-token "goto"))
(t
- (error "invalid token")))))
+ (error "Invalid token")))))
(defun vip-ex (&optional string)
"ex commands within VIP."
@@ -2333,7 +2333,7 @@ a token has type \(command, address, end-mark) and value."
(cond ((looking-at "[a-z]")
(vip-get-ex-com-subr)
(if (string= ex-token-type "non-command")
- (error "%s: not an editor command" ex-token)))
+ (error "%s: Not an editor command" ex-token)))
((looking-at "[!=><&~]")
(setq ex-token (char-to-string (following-char)))
(forward-char 1))
@@ -2378,7 +2378,7 @@ a token has type \(command, address, end-mark) and value."
(progn
(setq ex-flag t)
(setq cont nil))
- (error "address expected")))
+ (error "Address expected")))
((string= ex-token-type "end-mark")
(setq cont nil))
((string= ex-token-type "whole")
@@ -2568,7 +2568,7 @@ a token has type \(command, address, end-mark) and value."
(string= ex-token "insert")
(string= ex-token "open")
)
- (error "%s: no such command from VIP" ex-token))
+ (error "%s: No such command from VIP" ex-token))
((or (string= ex-token "abbreviate")
(string= ex-token "list")
(string= ex-token "next")
@@ -2581,7 +2581,7 @@ a token has type \(command, address, end-mark) and value."
(string= ex-token "xit")
(string= ex-token "z")
)
- (error "%s: not implemented in VIP" ex-token))
+ (error "%s: Not implemented in VIP" ex-token))
(t (error "%s: Not an editor command" ex-token))))
(defun ex-goto ()
diff --git a/lisp/printing.el b/lisp/printing.el
index fb718f9..dfa5a6e 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -5133,7 +5133,7 @@ If menu binding was not done, calls `pr-menu-bind'."
(and (eq (symbol-value infile-sym) t)
(set infile-sym (pr-ps-infile-preprint prompt)))
(or (symbol-value infile-sym)
- (error "%s: input PostScript file name is missing" prompt))
+ (error "%s: Input PostScript file name is missing" prompt))
;; output file
(and (eq (symbol-value outfile-sym) t)
(set outfile-sym (and current-prefix-arg
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index d40433a..a9a5263 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -64,7 +64,6 @@ point is used to decide where the old indentation is on a
lines that
is otherwise empty (ignoring any line continuation backslash), but
that's not done if IGNORE-POINT-POS is non-nil. Returns the amount of
indentation change \(in columns)."
-
(let ((line-cont-backslash (save-excursion
(end-of-line)
(eq (char-before) ?\\)))
@@ -2058,9 +2057,9 @@ the open-parenthesis that starts a defun; see
`beginning-of-defun'."
(= arg 0))))
(defun c-defun-name-1 ()
- "Return the name of the current defun, at the current narrowing,
-or nil if there isn't one. \"Defun\" here means a function, or
-other top level construct with a brace block."
+ "Return name of current defun, at current narrowing, or nil if there isn't
one.
+\"Defun\" here means a function, or other top level construct
+with a brace block."
(c-save-buffer-state
(beginning-of-defun-function end-of-defun-function
where pos decl0 decl type-pos tag-pos case-fold-search)
@@ -3655,9 +3654,9 @@ continuation backslashes, unless
`c-auto-align-backslashes' is nil."
(set-marker here nil))))
(defun c-indent-region (start end &optional quiet)
- "Indent syntactically every line whose first char is between START
-and END inclusive. If the optional argument QUIET is non-nil then no
-syntactic errors are reported, even if `c-report-syntactic-errors' is
+ "Indent syntactically lines whose first char is between START and END
inclusive.
+If the optional argument QUIET is non-nil then no syntactic
+errors are reported, even if `c-report-syntactic-errors' is
non-nil."
(save-excursion
(goto-char end)
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index 8b30241..c9b7a95 100644
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -1402,7 +1402,7 @@ Note that the style variables are always made local to
the buffer."
(memq (char-after) c-string-delims))
(c-clear-syn-tab (point)))))
(c-clear-syn-tab (point)))
- (t (c-benign-error "c-remove-string-fences: wrong position")))))
+ (t (c-benign-error "c-remove-string-fences: Wrong position")))))
(defun c-before-change-check-unbalanced-strings (beg end)
;; If BEG or END is inside an unbalanced string, remove the syntax-table
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index 8869c56..d843c78 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -1770,7 +1770,7 @@ variables.")
; all XEmacsen.
((null c-macro-names-with-semicolon)
nil)
- (t (error "c-make-macro-with-semi-re: invalid \
+ (t (error "c-make-macro-with-semi-re: Invalid \
c-macro-names-with-semicolon: %s"
c-macro-names-with-semicolon))))))
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index c371a84..1afeb60 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -507,9 +507,9 @@ Currently used with `cperl-check-syntax' only."
:group 'cperl-help-system)
(defcustom cperl-indent-region-fix-constructs 1
- "Amount of space to insert between `}' and `else' or `elsif'
-in `cperl-indent-region'. Set to nil to leave as is. Values other
-than 1 and nil will probably not work."
+ "Amount of space to insert between `}' and `else' or `elsif'.
+Used by `cperl-indent-region'. Set to nil to leave as is.
+Values other than 1 and nil will probably not work."
:type '(choice (const nil) (const 1))
:group 'cperl-indentation-details)
diff --git a/lisp/progmodes/ebnf-dtd.el b/lisp/progmodes/ebnf-dtd.el
index 9185711..d4bfdaa 100644
--- a/lisp/progmodes/ebnf-dtd.el
+++ b/lisp/progmodes/ebnf-dtd.el
@@ -62,7 +62,7 @@
;;
;; Document authors are encouraged to avoid "compatibility characters", as
;; defined in section 6.8 of [Unicode] (see also D21 in section 3.6 of
-;; [Unicode3]). The characters defined in the following ranges are also
+;; [Unicode3]). The characters defined in the following ranges are also
;; discouraged. They are either control characters or permanently undefined
;; Unicode characters:
;;
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index fc3d603..5a31ad3 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -105,8 +105,9 @@ process buffer."
:type 'regexp)
(defcustom idlwave-shell-process-name "idl"
- "Name to be associated with the IDL process. The buffer for the
-process output is made by surrounding this name with `*'s."
+ "Name to be associated with the IDL process.
+The buffer for the process output is made by surrounding this
+name with `*'s."
:group 'idlwave-shell-general-setup
:type 'string)
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 4224e47..9aaabd8 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -245,7 +245,7 @@ would yield:
:type 'boolean)
(defcustom idlwave-indent-parens-nested nil
- "Non-nil means, indent continuation lines with parens by nesting
+ "Non-nil means indent continuation lines with parens by nesting
lines at consecutively deeper levels."
:group 'idlwave-code-formatting
:type 'boolean)
@@ -7286,8 +7286,7 @@ The list is cached in `idlwave-class-info' for faster
access."
inherits))
(if (> (cdr cl) 999)
(error
- "Class scan: inheritance depth exceeded. Circular inheritance?")
- ))
+ "Class scan: inheritance depth exceeded. Circular
inheritance?")))
(setq all-inherits (nreverse rtn))
(nconc info (list (cons 'all-inherits all-inherits)))
all-inherits))))))
diff --git a/lisp/progmodes/opascal.el b/lisp/progmodes/opascal.el
index e55b09d..495c77b 100644
--- a/lisp/progmodes/opascal.el
+++ b/lisp/progmodes/opascal.el
@@ -1540,7 +1540,7 @@ If no extension is specified, .pas is assumed. Creates a
buffer for the unit."
(defun opascal-find-current-def ()
"Find the definition of the identifier under the current point."
(interactive)
- (error "opascal-find-current-def: not implemented yet"))
+ (error "opascal-find-current-def: Not implemented yet"))
(defun opascal-find-current-xdef ()
"Find the definition of the identifier under the current point, searching
@@ -1548,13 +1548,13 @@ in external units if necessary (as listed in the
current unit's use clause).
The set of directories to search for a unit is specified by the global variable
`opascal-search-path'."
(interactive)
- (error "opascal-find-current-xdef: not implemented yet"))
+ (error "opascal-find-current-xdef: Not implemented yet"))
(defun opascal-find-current-body ()
"Find the body of the identifier under the current point, assuming
it is a routine."
(interactive)
- (error "opascal-find-current-body: not implemented yet"))
+ (error "opascal-find-current-body: Not implemented yet"))
(defun opascal-fill-comment ()
"Fill the text of the current comment, according to `fill-column'.
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 74a0237..59004e4 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -512,7 +512,7 @@ to automatically indent if-then-else constructs."
:type 'boolean)
(defcustom prolog-electric-colon-flag nil
- "Makes `:' electric (inserts `:-' on a new line).
+ "Non-nil means make `:' electric (inserts `:-' on a new line).
If non-nil, pressing `:' at the end of a line that starts in
the first column (i.e., clause heads) inserts ` :-' and newline."
:version "24.1"
@@ -520,7 +520,7 @@ the first column (i.e., clause heads) inserts ` :-' and
newline."
:type 'boolean)
(defcustom prolog-electric-dash-flag nil
- "Makes `-' electric (inserts a `-->' on a new line).
+ "Non-nil means make `-' electric (inserts a `-->' on a new line).
If non-nil, pressing `-' at the end of a line that starts in
the first column (i.e., DCG heads) inserts ` -->' and newline."
:version "24.1"
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 3b6774a..0dd9f2b 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -2522,7 +2522,7 @@ overwritten if
sh-styles-alist nil t)))
(let ((sl (assoc name sh-styles-alist)))
(if (null sl)
- (error "sh-load-style - style %s not known" name)
+ (error "sh-load-style: Style %s not known" name)
(dolist (var (cdr sl))
(set (car var) (cdr var))))))
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 02eccb3..5dfbf87 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -3976,13 +3976,13 @@ for each match."
(cond
((numberp c) (match-string c))
((stringp c) (match-substitute-replacement c))
- (t (error "sql-redirect-value: unknown REGEXP-GROUPS
value - %s" c))))
+ (t (error "sql-redirect-value: Unknown REGEXP-GROUPS
value - %s" c))))
regexp-groups))
;; String is specified; return replacement string
((stringp regexp-groups)
(match-substitute-replacement regexp-groups))
(t
- (error "sql-redirect-value: unknown REGEXP-GROUPS value - %s"
+ (error "sql-redirect-value: Unknown REGEXP-GROUPS value - %s"
regexp-groups)))
results)))
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index d98230d..52c34d9 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -87,7 +87,7 @@
;;
;; If you want to customize Verilog mode to fit your needs better,
;; you may add the below lines (the values of the variables presented
-;; here are the defaults). Note also that if you use an Emacs that
+;; here are the defaults). Note also that if you use an Emacs that
;; supports custom, it's probably better to use the custom menu to
;; edit these. If working as a member of a large team these settings
;; should be common across all users (in a site-start file), or set
@@ -4827,7 +4827,7 @@ Limit search to point LIM."
((match-end 1) ; [
(setq colon (1+ colon))
(if (>= colon 0)
- (error "%s: unbalanced [" (verilog-point-text))))
+ (error "%s: Unbalanced [" (verilog-point-text))))
((match-end 2) ; ]
(setq colon (1- colon)))
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index fc0d406..3a9185b 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -5917,16 +5917,16 @@ Skip backwards if DIRECTION is negative, skip forward
otherwise."
;; Functions to help finding the correct indentation column:
(defun vhdl-first-word (point)
- "If the keyword at POINT is at boi, then return (current-column) at
-that point, else nil."
+ "If the keyword at POINT is at boi, return (current-column) at that point.
+Otherwise return nil."
(save-excursion
(and (goto-char point)
(eq (point) (vhdl-point 'boi))
(current-column))))
(defun vhdl-last-word (point)
- "If the keyword at POINT is at eoi, then return (current-column) at
-that point, else nil."
+ "If keyword at POINT is at eoi, then return (current-column) at that point.
+Otherwise, return nil."
(save-excursion
(and (goto-char point)
(save-excursion (or (eq (progn (forward-sexp) (point))
@@ -6266,13 +6266,11 @@ of an identifier that just happens to contain an
\"end\" keyword."
(defconst vhdl-statement-fwd-re
"\\b\\(if\\|for\\|while\\|loop\\)\\b\\([^_]\\|\\'\\)"
- "A regular expression for searching forward that matches all known
-\"statement\" keywords.")
+ "Regexp for searching forward that matches all known \"statement\"
keywords.")
(defconst vhdl-statement-bwd-re
"\\b\\(if\\|for\\|while\\|loop\\)\\b[^_]"
- "A regular expression for searching backward that matches all known
-\"statement\" keywords.")
+ "Regexp for searching backward that matches all known \"statement\"
keywords.")
(defun vhdl-statement-p (&optional _lim)
"Return t if we are looking at a real \"statement\" keyword.
@@ -6723,8 +6721,9 @@ search, and an argument indicating an interactive call."
vhdl-begin-bwd-re "\\|" vhdl-statement-bwd-re))
(defun vhdl-beginning-of-statement-1 (&optional lim)
- "Move to the start of the current statement, or the previous
-statement if already at the beginning of one."
+ "Move to the start of the current statement.
+If already at the beginning of a statement, move to the start of
+the previous statement instead."
(let ((lim (or lim (point-min)))
(here (point))
(pos (point))
diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index 1874f26..26ffe33 100644
--- a/lisp/progmodes/xscheme.el
+++ b/lisp/progmodes/xscheme.el
@@ -562,7 +562,7 @@ The strings are concatenated and terminated by a newline."
(defun xscheme-yank (&optional arg)
"Insert the most recent expression at point.
-With just C-U as argument, same but put point in front (and mark at end).
+With just \\[universal-argument] as argument, same but put point in front (and
mark at end).
With argument n, reinsert the nth most recently sent expression.
See also the commands \\[xscheme-yank-pop] and \\[xscheme-yank-push]."
(interactive "*P")
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 1f4ed4e..b1d03fd 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3878,7 +3878,7 @@ Note: No major/minor-mode is activated and no local
variables are evaluated for
(with-temp-buffer
(insert-file-contents filename)
(buffer-string))
- (error "ps-print PostScript prologue `%s' file was not found"
+ (error "ps-print: PostScript prologue `%s' file was not found"
filename))))
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index cc8b324..b90c213 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -348,7 +348,7 @@ Also checks if buffers visiting the files are in read-only
mode."
(with-current-buffer buf
buffer-read-only))
(ding)
- (or (y-or-n-p (format "Buffer %s is read-only. Continue?"
+ (or (y-or-n-p (format "Buffer %s is read-only. Continue?"
(buffer-name buf)))
(error "Abort"))))))
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index a5d83c3..15d86b3 100644
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -230,7 +230,7 @@ This function is controlled by the settings of
reftex-insert-label-flags."
(symbol-value reftex-docstruct-symbol)))
(ding)
(if (y-or-n-p
- (format-message "Label `%s' exists. Use anyway? " label))
+ (format-message "Label `%s' exists. Use anyway?" label))
(setq valid t)))
;; Label is ok
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 843bbb2..6862da6 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -1508,7 +1508,7 @@ will be at some level higher in the Texinfo file. The
fourth argument
'normal
'no-pointer))
(t
- (error "texinfo-find-pointer: lack proper arguments")))))
+ (error "texinfo-find-pointer: Lack proper arguments")))))
(defun texinfo-pointer-name (kind)
"Return the node name preceding the section command.
@@ -1676,7 +1676,7 @@ or `Up' pointer."
'normal
'no-pointer))
(t
- (error "texinfo-sequential-find-pointer: lack proper arguments")))))
+ (error "texinfo-sequential-find-pointer: Lack proper arguments")))))
;;; Inserting `@node' lines
diff --git a/lisp/vc/ediff-mult.el b/lisp/vc/ediff-mult.el
index fa26b0b..bec0ec0 100644
--- a/lisp/vc/ediff-mult.el
+++ b/lisp/vc/ediff-mult.el
@@ -1677,7 +1677,7 @@ With prefix arg UNHIDE, unhide instead."
(setq custom-diff-buf ediff-custom-diff-buffer)))))
(or (ediff-buffer-live-p meta-diff-buff)
- (user-error "Ediff: something wrong--killed multiple diff's buffer"))
+ (user-error "Ediff: Something wrong--killed multiple diff's buffer"))
(cond ((ediff-buffer-live-p custom-diff-buf)
;; for live session buffers we do them first because the user may
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index 9016d1d..7c36291 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -3220,7 +3220,7 @@ Hit \\[ediff-recenter] to reset the windows afterward."
(if (buffer-modified-p)
;; If buffer is not obsolete and is modified, offer to save
(if (yes-or-no-p
- (format "Buffer %s has been modified. Save it in file %s? "
+ (format "Buffer %s has been modified. Save it in file %s?"
(buffer-name)
buffer-file-name))
(condition-case nil
diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el
index e0a87ba..4d151d5 100644
--- a/lisp/vc/log-edit.el
+++ b/lisp/vc/log-edit.el
@@ -891,7 +891,7 @@ name or time."
Actually, the narrowed region doesn't include the date line.
A \"page\" in a ChangeLog file is the area between two dates."
(or (eq major-mode 'change-log-mode)
- (error "log-edit-narrow-changelog: current buffer isn't a ChangeLog"))
+ (error "log-edit-narrow-changelog: Current buffer isn't a ChangeLog"))
(goto-char (point-min))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 0a7bab6: ; Minor stylistic fixes found by checkdoc,
Stefan Kangas <=