mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

lisp/org/org.el: Fix typos in error messages.

Browse Source
This commit is contained in:
Juanma Barranquero 2010-01-02 02:03:48 +01:00
parent da14b7caec
commit db4a7382f0
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org/ChangeLog
View File

@ -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):

10
lisp/org/org.el
View File

@ -9019,7 +9019,7 @@ avoiding backtracing."
(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 @@ scheduling will use the corresponding date."
(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 @@ Some of the options can be changed using the variable
"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 @@ overwritten, and the table is not marked as requiring realignment."
(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 @@ Your bug report will be posted to the Org-mode mailing list.
(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)))