Mercurial > emacs
changeset 87144:5db60f420c85
Fix buggy `error' calls in textmode/
| author | Deepak Goel <deego@gnufans.org> |
|---|---|
| date | Thu, 06 Dec 2007 18:43:43 +0000 |
| parents | e1c8546ca1d5 |
| children | f19c915a241f |
| files | lisp/ChangeLog lisp/textmodes/ispell.el lisp/textmodes/org.el lisp/textmodes/reftex.el |
| diffstat | 4 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Dec 06 18:36:46 2007 +0000 +++ b/lisp/ChangeLog Thu Dec 06 18:43:43 2007 +0000 @@ -1,5 +1,11 @@ 2007-12-06 D. Goel <deego3@gmail.com> + * textmodes/reftex.el (reftex-TeX-master-file): Ditto. + + * textmodes/org.el (org-paste-subtree): Ditto. + + * textmodes/ispell.el (ispell-process-line): Ditto. + * progmodes/vhdl-mode.el (vhdl-template-modify): Ditto. * progmodes/idlw-shell.el (idlwave-shell-send-command): Ditto.
--- a/lisp/textmodes/ispell.el Thu Dec 06 18:36:46 2007 +0000 +++ b/lisp/textmodes/ispell.el Thu Dec 06 18:43:43 2007 +0000 @@ -3063,7 +3063,7 @@ ;; `query-replace' makes multiple corrections on the starting line. (or (ispell-looking-at (car poss)) ;; This occurs due to filter pipe problems - (error (concat "Ispell misalignment: word " + (error "%s" (concat "Ispell misalignment: word " "`%s' point %d; probably incompatible versions") (car poss) (marker-position word-start))) ;; ispell-cmd-loop can go recursive & change buffer
--- a/lisp/textmodes/org.el Thu Dec 06 18:36:46 2007 +0000 +++ b/lisp/textmodes/org.el Thu Dec 06 18:43:43 2007 +0000 @@ -6076,7 +6076,7 @@ If optional TREE is given, use this text instead of the kill ring." (interactive "P") (unless (org-kill-is-subtree-p tree) - (error + (error "%s" (substitute-command-keys "The kill is not a (set of) tree(s) - please use \\[yank] to yank anyway"))) (let* ((txt (or tree (and kill-ring (current-kill 0))))
--- a/lisp/textmodes/reftex.el Thu Dec 06 18:36:46 2007 +0000 +++ b/lisp/textmodes/reftex.el Thu Dec 06 18:43:43 2007 +0000 @@ -705,7 +705,7 @@ ((fboundp 'TeX-master-file) ; AUCTeX is loaded. Use its mechanism. (condition-case nil (TeX-master-file t) - (error (buffer-file-name)))) + (error "%s" (buffer-file-name)))) ((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode ((boundp 'TeX-master) ; The variable is defined - lets use it. (cond