; Minor stylistic fixes found by checkdoc
This commit is contained in:
Stefan Kangas
parent
e2861e2d08
commit
0a7bab689c
57 changed files with 132 additions and 127 deletions
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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:
|
||||
|
|
|
|||
|
|
@ -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"))))
|
||||
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
|
|
|
|||
|
|
@ -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
|
||||
))))
|
||||
|
|
|
|||
|
|
@ -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:
|
||||
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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))))
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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)))))
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
|
|
@ -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))))
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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))))
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 ()
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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))))))
|
||||
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
||||
|
|
|
|||
|
|
@ -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:
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
||||
|
|
|
|||
|
|
@ -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))))))
|
||||
|
|
|
|||
|
|
@ -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'.
|
||||
|
|
|
|||
|
|
@ -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"
|
||||
|
|
|
|||
|
|
@ -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))))))
|
||||
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
|
|
@ -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")
|
||||
|
|
|
|||
|
|
@ -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))))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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"))))))
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue