From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 2 Jan 2010 01:03:48 +0000 (+0100)
Subject: lisp/org/org.el: Fix typos in error messages.
X-Git-Tag: emacs-pretest-23.1.92~111
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db4a7382f0ee49338f9c52adb93cd16c4b93dcd3;p=emacs.git

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

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index cc125d28238..5d612f022fa 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -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):
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 325a5248dc6..5988c07e987 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -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)))