Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a867ead0
Commit
a867ead0
authored
Dec 08, 2007
by
Deepak Goel
Browse files
Improves calls to `error', per mail from RMS.
parent
3d587afd
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
22 additions
and
13 deletions
+22
-13
lisp/ChangeLog
lisp/ChangeLog
+10
-0
lisp/mail/feedmail.el
lisp/mail/feedmail.el
+1
-1
lisp/mail/uce.el
lisp/mail/uce.el
+1
-1
lisp/progmodes/ada-xref.el
lisp/progmodes/ada-xref.el
+6
-8
lisp/progmodes/idlw-shell.el
lisp/progmodes/idlw-shell.el
+1
-1
lisp/progmodes/vhdl-mode.el
lisp/progmodes/vhdl-mode.el
+3
-2
No files found.
lisp/ChangeLog
View file @
a867ead0
2007-12-07 D. Goel <deego3@gmail.com>
* progmodes/idlw-shell.el (idlwave-shell-display-line)
* progmodes/ada-xref.el (ada-find-file, ada-get-all-references)
(ada-xref-find-in-modified-ali, ada-find-in-src-path)
* mail/uce.el (uce-reply-to-uce)
* progmodes/vhdl-mode.el (vhdl-template-modify)
* mail/feedmail.el (feedmail-dump-message-to-queue): Improve calls
to `error' (as suggested by RMS.)
2007-12-07 Glenn Morris <rgm@gnu.org>
* allout.el (allout-write-file-hook-handler):
...
...
lisp/mail/feedmail.el
View file @
a867ead0
...
...
@@ -1922,7 +1922,7 @@ mapped to mostly alphanumerics for safety."
;; progn to get nil result no matter what
(
progn
(
make-directory
queue-directory
t
)
nil
)
(
file-accessible-directory-p
queue-directory
)
(
error
"%s"
(
concat
"FQM: Message not queued; trouble with directory "
queue-directory
))
)
(
error
"FQM: Message not queued; trouble with directory
%s
"
queue-directory
))
(
let
((
filename
)
(
is-fqm
)
(
is-in-this-dir
)
...
...
lisp/mail/uce.el
View file @
a867ead0
...
...
@@ -239,7 +239,7 @@ address, and postmaster of the mail relay used."
(
full-header-p
(
and
(
eq
uce-mail-reader
'rmail
)
(
not
(
rmail-msg-is-pruned
)))))
(
or
(
get-buffer
message-buffer
)
(
error
"
%s"
(
concat
"No buffer "
message-buffer
"
, cannot find UCE"
)
))
(
error
"
No buffer %s
, cannot find UCE"
message-buffer
))
(
switch-to-buffer
message-buffer
)
;; We need the message with headers pruned.
(
if
full-header-p
...
...
lisp/progmodes/ada-xref.el
View file @
a867ead0
...
...
@@ -564,7 +564,7 @@ Completion is available."
(let ((file (ada-find-src-file-in-dir filename)))
(if file
(find-file file)
(
error
"%s
"
(
concat
filename
"
not found in src_dir"
)
))))
(error "%s not found in src_dir"
filename
))))
;; ----- Utilities -------------------------------------------------
...
...
@@ -1722,8 +1722,8 @@ Information is extracted from the ali file."
;; No more idea to find the declaration. Give up
(progn
(kill-buffer ali-buffer)
(
error
"%s"
(
concat
"No declaration of "
(
ada-name-of
identlist
)
" found."
))
(error "No declaration of %s found." (ada-name-of identlist
))
)))
)
...
...
@@ -1808,10 +1808,8 @@ This function is disabled for operators, and only works for identifiers."
;; none => error
((= len 0)
(kill-buffer (current-buffer))
(
error
"%s"
(
concat
"No declaration of "
(
ada-name-of
identlist
)
" recorded in .ali file"
)))
(error "No declaration of %s recorded in .ali file"
(ada-name-of identlist)))
;; one => should be the right one
((= len 1)
(goto-line (caar declist)))
...
...
@@ -2011,7 +2009,7 @@ the declaration and documentation of the subprograms one is using."
(string-to-number (nth 2 (car list)))
identlist
other-frame)
(
error
"%s
"
(
concat
(
caar
list
)
"
not found in src_dir"
)))
(error "%s not found in src_dir"
(caar list
)))
(message "This is only a (good) guess at the cross-reference.")
)
...
...
lisp/progmodes/idlw-shell.el
View file @
a867ead0
...
...
@@ -2375,7 +2375,7 @@ matter what the settings of that variable."
(
if
(
not
(
idlwave-shell-valid-frame
frame
))
;; fixme: errors are dangerous in shell filters. but i think i
;; have never encountered this one.
(
error
"%s"
(
concat
"invalid frame - unable to access file: "
(
car
frame
))
)
(
error
"invalid frame - unable to access file:
%s
"
(
car
frame
))
;;;
;;; buffer : the buffer to display a line in.
;;; select-shell: current buffer is the shell.
...
...
lisp/progmodes/vhdl-mode.el
View file @
a867ead0
...
...
@@ -9095,8 +9095,9 @@ otherwise."
(progn (delete-region (point) (progn (end-of-line) (point)))
(vhdl-template-insert-date))
(unless noerror
(error "%s" (concat "ERROR: Modification date prefix string \""
vhdl-modify-date-prefix-string "\" not found")))))))
(error "ERROR: Modification date prefix string \"%s\" not found"
vhdl-modify-date-prefix-string))))))
(defun vhdl-template-modify-noerror ()
"Call `vhdl-template-modify' with NOERROR non-nil."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment