Mercurial > emacs
changeset 106696:9084997e41f6
lisp/org/org.el: Fix typos in error messages.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sat, 02 Jan 2010 02:03:48 +0100 |
| parents | a05636ead18a |
| children | ac408704629c |
| files | lisp/org/ChangeLog lisp/org/org.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/org/ChangeLog Sat Jan 02 02:03:11 2010 +0100 +++ b/lisp/org/ChangeLog Sat Jan 02 02:03:48 2010 +0100 @@ -1,3 +1,8 @@ +2010-01-01 Juanma Barranquero <lekktu@gmail.com> + + * org.el (org-get-outline-path, org-speed-command-help): + Fix typos in error messages. + 2009-12-14 Juri Linkov <juri@jurta.org> * org-html.el (org-export-html-style-include-default):
--- a/lisp/org/org.el Sat Jan 02 02:03:11 2010 +0100 +++ b/lisp/org/org.el Sat Jan 02 02:03:48 2010 +0100 @@ -9019,7 +9019,7 @@ (if fastp (progn (if (> level 19) - (error "Outline path failure, more than 19 levels.")) + (error "Outline path failure, more than 19 levels")) (loop for i from level upto 19 do (aset org-olpa i nil)) (prog1 @@ -10502,7 +10502,7 @@ (org-add-log-setup 'redeadline nil old-date 'findpos org-log-redeadline)) (message "Deadline on %s" org-last-inserted-timestamp))))) - + (defun org-schedule (&optional remove time) "Insert the SCHEDULED: string with a timestamp to schedule a TODO item. With argument REMOVE, remove any scheduling date from the item. @@ -14985,7 +14985,7 @@ "Show the available speed commands." (interactive) (if (not org-use-speed-commands) - (error "Speed commands are not activated, customize `org-use-speed-commands'.") + (error "Speed commands are not activated, customize `org-use-speed-commands'") (with-output-to-temp-buffer "*Help*" (princ "User-defined Speed commands\n===========================\n") (mapc 'org-print-speed-command org-speed-commands-user) @@ -15028,7 +15028,7 @@ (setq this-command org-speed-command) (call-interactively org-speed-command)) ((functionp org-speed-command) - (funcall org-speed-command)) + (funcall org-speed-command)) ((and org-speed-command (listp org-speed-command)) (eval org-speed-command)) (t (let (org-use-speed-commands) @@ -16188,7 +16188,7 @@ (save-excursion (if (re-search-backward "^\\(Subject: \\)Org-mode version \\(.*?\\);[ \t]*\\(.*\\)" nil t) (replace-match "\\1Bug: \\3 [\\2]"))))) - + (defun org-install-agenda-files-menu () (let ((bl (buffer-list)))