diff options
| author | Werner LEMBERG | 2005-03-25 09:03:24 +0000 |
|---|---|---|
| committer | Werner LEMBERG | 2005-03-25 09:03:24 +0000 |
| commit | 5181ff9f3d68ae3e1fe260430c1924fafa5b77c6 (patch) | |
| tree | 91ddc9b4328b8db85c163bdcae16138b4a9baacf /lisp/textmodes/org.el | |
| parent | eac9c0efd68cdd7a65439bb3958da1db56391bc9 (diff) | |
| download | emacs-5181ff9f3d68ae3e1fe260430c1924fafa5b77c6.tar.gz emacs-5181ff9f3d68ae3e1fe260430c1924fafa5b77c6.zip | |
* textmodes/refbib.el, textmodes/refer.el, textmodes/reftex-cite.el,
textmodes/reftex-index.el, textmodes/reftex-parse.el,
textmodes/reftex-ref.el, textmodes/reftex-vars.el,
textmodes/reftex.el, textmodes/org.el: Replace `illegal' with
`invalid'.
Diffstat (limited to 'lisp/textmodes/org.el')
| -rw-r--r-- | lisp/textmodes/org.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 1ff21ea1ce0..ab45434526a 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;; org.el --- Outline-based notes management and organizer | 1 | ;; org.el --- Outline-based notes management and organizer |
| 2 | ;; Carstens outline-mode for keeping track of everything. | 2 | ;; Carstens outline-mode for keeping track of everything. |
| 3 | ;; Copyright (c) 2003, 2004 Free Software Foundation | 3 | ;; Copyright (c) 2003, 2004, 2005 Free Software Foundation |
| 4 | 4 | ||
| 5 | ;; Author: Carsten Dominik <dominik at science dot uva dot nl> | 5 | ;; Author: Carsten Dominik <dominik at science dot uva dot nl> |
| 6 | ;; Keywords: outlines, hypermedia, calendar | 6 | ;; Keywords: outlines, hypermedia, calendar |
| @@ -2380,7 +2380,7 @@ ACTION can be set, up, or down." | |||
| 2380 | (setq new (1- current))) | 2380 | (setq new (1- current))) |
| 2381 | ((eq action 'down) | 2381 | ((eq action 'down) |
| 2382 | (setq new (1+ current))) | 2382 | (setq new (1+ current))) |
| 2383 | (t (error "Illegal ection"))) | 2383 | (t (error "Invalid action"))) |
| 2384 | (setq new (min (max ?A (upcase new)) org-lowest-priority)) | 2384 | (setq new (min (max ?A (upcase new)) org-lowest-priority)) |
| 2385 | (setq news (format "%c" new)) | 2385 | (setq news (format "%c" new)) |
| 2386 | (if have | 2386 | (if have |
| @@ -5902,13 +5902,13 @@ separator line)." | |||
| 5902 | (string-to-int (match-string 1 form)) | 5902 | (string-to-int (match-string 1 form)) |
| 5903 | n0) | 5903 | n0) |
| 5904 | x (nth n fields)) | 5904 | x (nth n fields)) |
| 5905 | (unless x (error "Illegal field specifier \"%s\"" | 5905 | (unless x (error "Invalid field specifier \"%s\"" |
| 5906 | (match-string 0 form))) | 5906 | (match-string 0 form))) |
| 5907 | (if (equal (string-to-number x) 0) (setq x "0")) | 5907 | (if (equal (string-to-number x) 0) (setq x "0")) |
| 5908 | (setq form (replace-match x t t form))) | 5908 | (setq form (replace-match x t t form))) |
| 5909 | (setq ev (calc-eval (list form) 'num)) | 5909 | (setq ev (calc-eval (list form) 'num)) |
| 5910 | (if (listp ev) | 5910 | (if (listp ev) |
| 5911 | (error "Illegal expression: %s (%s at %d)" form (nth 1 ev) (car ev))) | 5911 | (error "Invalid expression: %s (%s at %d)" form (nth 1 ev) (car ev))) |
| 5912 | (org-table-blank-field) | 5912 | (org-table-blank-field) |
| 5913 | (if fmt | 5913 | (if fmt |
| 5914 | (insert (format fmt (string-to-number ev))) | 5914 | (insert (format fmt (string-to-number ev))) |