* org.el (org-tree-to-indirect-buffer, org-convert-to-oddeven-levels)

  (org-shiftselect-error, org-ctrl-c-ctrl-c):
* org-agenda.el (org-agenda-undo, org-check-for-org-mode):
* org-attach.el (org-attach-check-absolute-path):
* org-docbook.el (org-export-as-docbook):
* org-html.el (org-export-as-html):
* org-id.el (org-id-update-id-locations):
* org-table.el (org-table-fedit-lisp-indent, orgtbl-send-table):
Fix typos in error messages.

8 files changed, 46 insertions, 34 deletions

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 4e74d614a5a..95826a602dd 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,15 @@
+2009-09-23  Juanma Barranquero  <lekktu@gmail.com>
+
+	* org.el (org-tree-to-indirect-buffer, org-convert-to-oddeven-levels)
+	(org-shiftselect-error, org-ctrl-c-ctrl-c):
+	* org-agenda.el (org-agenda-undo, org-check-for-org-mode):
+	* org-attach.el (org-attach-check-absolute-path):
+	* org-docbook.el (org-export-as-docbook):
+	* org-html.el (org-export-as-html):
+	* org-id.el (org-id-update-id-locations):
+	* org-table.el (org-table-fedit-lisp-indent, orgtbl-send-table):
+	Fix typos in error messages.
+
 2009-09-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* org-ascii.el: Require CL for the `loop' macro.
@@ -768,7 +780,7 @@
 	* org.el (org-time-since): Add a function to get the time since an
 	org timestamp.
 	(org-entry-properties): Add two new special properties: SINCE and
-	SINCE_IA. These give the time since any active or inactive
+	SINCE_IA.  These give the time since any active or inactive
 	timestamp in an entry.
 	(org-special-properties): Add SINCE, SINCE_IA.
 	(org-tags-sort-function): Add custom declaration for tags
@@ -3994,7 +4006,7 @@
 	preview.
 	(org-time-stamp-inactive): Call `org-time-stamp'.
 	(org-time-stamp): New argument `inactive'.  Also edit inacive
-	stamps. Convert time stamp type.
+	stamps.  Convert time stamp type.
 	(org-open-file): Interpret the `default' value for the `command'
 	in `org-file-apps'.
 
@@ -4087,13 +4099,13 @@
 
 	* org-remember.el (org-get-x-clipboard): Use the compat
 	function to get clipboard values when x-selection-value is
-	unavailable. Use substring-no-properties instead of
+	unavailable.  Use substring-no-properties instead of
 	set-text-properties to remove text properties from the clipboard
 	value.
 
 	* lisp/org-clock.el (org-update-mode-line): Support limiting the
 	modeline clock string, and display the full todo value in the
-	tooltip. Set a local keymap so mouse-3 on the clock string goes to
+	tooltip.  Set a local keymap so mouse-3 on the clock string goes to
 	the currently clocked task.
 	(org-clock-string-limit): Add a custom value for the maximum
 	length of the clock string in the modeline.
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index feea27dfb1e..9e711433c78 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -1592,7 +1592,7 @@ This undoes changes both in the agenda buffer and in the remote buffer
 that have been changed along."
   (interactive)
   (or org-agenda-allow-remote-undo
-      (error "Check the variable `org-agenda-allow-remote-undo' to activate remote undo."))
+      (error "Check the variable `org-agenda-allow-remote-undo' to activate remote undo"))
   (if (not (eq this-command last-command))
       (setq org-agenda-undo-has-started-in nil
 	    org-agenda-pending-undo-list org-agenda-undo-list))
@@ -2387,7 +2387,7 @@ This will ignore drawers etc, just get the text."
 (defun org-check-for-org-mode ()
   "Make sure current buffer is in org-mode.  Error if not."
   (or (org-mode-p)
-      (error "Cannot execute org-mode agenda command on buffer in %s."
+      (error "Cannot execute org-mode agenda command on buffer in %s"
 	     major-mode)))
 
 (defun org-fit-agenda-window ()
@@ -2487,7 +2487,7 @@ bind it in the options section.")
       (org-agenda-mark-clocking-task)
       (when org-agenda-entry-text-mode
 	(org-agenda-entry-text-hide)
-	(org-agenda-entry-text-show))	
+	(org-agenda-entry-text-show))
       (run-hooks 'org-finalize-agenda-hook)
       (setq org-agenda-type (get-text-property (point) 'org-agenda-type))
       (when (get 'org-agenda-filter :preset-filter)
diff --git a/lisp/org/org-attach.el b/lisp/org/org-attach.el
index a9c80cfe4d8..33a740b227a 100644
--- a/lisp/org/org-attach.el
+++ b/lisp/org/org-attach.el
@@ -217,7 +217,7 @@ Throw an error if we cannot root the directory."
   (or (and dir (file-name-absolute-p dir))
       (file-name-absolute-p org-attach-directory)
       (buffer-file-name (buffer-base-buffer))
-      (error "Need absolute `org-attach-directory' to attach in buffers without filename.")))
+      (error "Need absolute `org-attach-directory' to attach in buffers without filename")))
 
 (defun org-attach-set-directory ()
   "Set the ATTACH_DIR property of the current entry.
diff --git a/lisp/org/org-docbook.el b/lisp/org/org-docbook.el
index 34d5a90b0e8..6d6e67528a0 100644
--- a/lisp/org/org-docbook.el
+++ b/lisp/org/org-docbook.el
@@ -387,7 +387,7 @@ publishing directory."
 	(org-set-local 'buffer-file-name
 		       (with-current-buffer (buffer-base-buffer)
 			 buffer-file-name))
-      (error "Need a file name to be able to export.")))
+      (error "Need a file name to be able to export")))
 
   (message "Exporting...")
   (setq-default org-todo-line-regexp org-todo-line-regexp)
diff --git a/lisp/org/org-html.el b/lisp/org/org-html.el
index a92fa998adb..5b0e7cb5bfb 100644
--- a/lisp/org/org-html.el
+++ b/lisp/org/org-html.el
@@ -544,7 +544,7 @@ PUB-DIR is set, use this as the publishing directory."
 	(org-set-local 'buffer-file-name
 		       (with-current-buffer (buffer-base-buffer)
 			 buffer-file-name))
-      (error "Need a file name to be able to export.")))
+      (error "Need a file name to be able to export")))
 
   (message "Exporting...")
   (setq-default org-todo-line-regexp org-todo-line-regexp)
diff --git a/lisp/org/org-id.el b/lisp/org/org-id.el
index 41da48f2272..295125f9ec7 100644
--- a/lisp/org/org-id.el
+++ b/lisp/org/org-id.el
@@ -390,7 +390,7 @@ When FILES is given, scan these files instead.
 When CHECK is given, prepare detailed information about duplicate IDs."
   (interactive)
   (if (not org-id-track-globally)
-      (error "Please turn on `org-id-track-globally' if you want to track IDs.")
+      (error "Please turn on `org-id-track-globally' if you want to track IDs")
     (let ((files
 	   (or files
 	       (append
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index cbee75c1f1e..bf7d960a56a 100644
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -2993,7 +2993,7 @@ With prefix ARG, apply the new formulas to the table."
       (call-interactively 'lisp-indent-line))
      ((looking-at "[$&@0-9a-zA-Z]+ *= *[^ \t\n']") (goto-char pos))
      ((not (fboundp 'pp-buffer))
-      (error "Cannot pretty-print.  Command `pp-buffer' is not available."))
+      (error "Cannot pretty-print.  Command `pp-buffer' is not available"))
      ((looking-at "[$&@0-9a-zA-Z]+ *= *'(")
       (goto-char (- (match-end 0) 2))
       (setq beg (point))
@@ -3783,7 +3783,7 @@ this table."
 					       (org-table-end)))
 	  (ntbl 0))
       (unless dests (if maybe (throw 'exit nil)
-		      (error "Don't know how to transform this table.")))
+		      (error "Don't know how to transform this table")))
       (dolist (dest dests)
 	(let* ((name (plist-get dest :name))
 	       (transform (plist-get dest :transform))
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 82838bbb570..588faa21ac2 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -5661,7 +5661,7 @@ frame is not changed."
       (switch-to-buffer ibuf))
      ((eq org-indirect-buffer-display 'other-window)
       (pop-to-buffer ibuf))
-     (t (error "Invalid value.")))
+     (t (error "Invalid value")))
     (if (featurep 'xemacs)
         (save-excursion (org-mode) (turn-on-font-lock)))
     (narrow-to-region beg end)
@@ -6073,7 +6073,7 @@ is signaled in this case."
   ;; First check if there are no even levels
   (when (re-search-forward "^\\(\\*\\*\\)+ " nil t)
     (org-show-context t)
-    (error "Not all levels are odd in this file.  Conversion not possible."))
+    (error "Not all levels are odd in this file.  Conversion not possible"))
   (when (yes-or-no-p "Are you sure you want to globally change levels to odd-even? ")
     (let ((org-odd-levels-only nil) n)
       (save-excursion
@@ -7889,7 +7889,7 @@ application the system uses for this file type."
   (cond
    ((and (org-on-heading-p)
 	 (not (org-in-regexp
-	       (concat org-plain-link-re "\\|" 
+	       (concat org-plain-link-re "\\|"
 		       org-bracket-link-regexp "\\|"
 		       org-angle-link-re "\\|"
 		       "[ \t]:[^ \t\n]+:[ \t]*$"))))
@@ -7958,12 +7958,12 @@ application the system uses for this file type."
 	    ;; Check if we need to translate the link
 	    (let ((tmp (funcall org-link-translation-function type path)))
 	      (setq type (car tmp) path (cdr tmp))))
-	
+
 	(cond
-	 
+
 	 ((assoc type org-link-protocols)
 	  (funcall (nth 1 (assoc type org-link-protocols)) path))
-	 
+
 	 ((equal type "mailto")
 	  (let ((cmd (car org-link-mailto-program))
 		(args (cdr org-link-mailto-program)) args1
@@ -7981,14 +7981,14 @@ application the system uses for this file type."
 		      (setq a (replace-match subject t t a)))
 		  (push a args1))))
 	    (apply cmd (nreverse args1))))
-	 
+
 	 ((member type '("http" "https" "ftp" "news"))
 	  (browse-url (concat type ":" (org-link-escape
 					path org-link-escape-chars-browser))))
-	 
+
 	 ((member type '("message"))
 	  (browse-url (concat type ":" path)))
-	 
+
 	 ((string= type "tags")
 	  (org-tags-view in-emacs path))
 	 ((string= type "thisfile")
@@ -8004,10 +8004,10 @@ application the system uses for this file type."
 		       ,pos)))
 	    (condition-case nil (eval cmd)
 	      (error (progn (widen) (eval cmd))))))
-	 
+
 	 ((string= type "tree-match")
 	  (org-occur (concat "\\[" (regexp-quote path) "\\]")))
-	 
+
 	 ((string= type "file")
 	  (if (string-match "::\\([0-9]+\\)\\'" path)
 	      (setq line (string-to-number (match-string 1 path))
@@ -8018,11 +8018,11 @@ application the system uses for this file type."
 	  (if (string-match "[*?{]" (file-name-nondirectory path))
 	      (dired path)
 	    (org-open-file path in-emacs line search)))
-	 
+
 	 ((string= type "news")
 	  (require 'org-gnus)
 	  (org-gnus-follow-link path))
-	 
+
 	 ((string= type "shell")
 	  (let ((cmd path))
 	    (if (or (not org-confirm-shell-link-function)
@@ -8034,7 +8034,7 @@ application the system uses for this file type."
 		  (message "Executing %s" cmd)
 		  (shell-command cmd))
 	      (error "Abort"))))
-	 
+
 	 ((string= type "elisp")
 	  (let ((cmd path))
 	    (if (or (not org-confirm-elisp-link-function)
@@ -8047,7 +8047,7 @@ application the system uses for this file type."
 			     (eval (read cmd))
 			   (call-interactively (read cmd))))
 	      (error "Abort"))))
-	 
+
 	 (t
 	  (browse-url-at-point))))))
    (move-marker org-open-link-marker nil)
@@ -8837,7 +8837,7 @@ See also `org-refile-use-outline-path' and `org-completion-use-ido'"
     (setq answ (funcall cfunc prompt tbl nil (not new-nodes)
 			nil 'org-refile-history))
     (setq pa (or (assoc answ tbl) (assoc (concat answ "/") tbl)))
-    (if pa 
+    (if pa
 	(progn
 	  (when (or (not org-refile-history)
 		    (not (eq old-hist org-refile-history))
@@ -8889,7 +8889,7 @@ See also `org-refile-use-outline-path' and `org-completion-use-ido'"
   "Read an outline path like a file name."
   (let ((thetable collection)
 	(org-completion-use-ido nil)	   ; does not work with ido.
-	(org-completion-use-iswitchb nil)) ; or iswitchb 
+	(org-completion-use-iswitchb nil)) ; or iswitchb
     (apply
      'org-icompleting-read prompt
      (lambda (string predicate &optional flag)
@@ -9687,7 +9687,7 @@ This should be called with the cursor in a line with a statistics cookie."
 	      (error "No data for statistics cookie"))))
 	(goto-char pos)
 	(move-marker pos nil)))))
-  
+
 (defvar org-entry-property-inherited-from) ;; defined below
 (defun org-update-parent-todo-statistics ()
   "Update any statistics cookie in the parent of the current headline.
@@ -14589,8 +14589,8 @@ See `org-ctrl-c-ctrl-c-hook' for more information.")
 (defun org-shiftselect-error ()
   "Throw an error because Shift-Cursor command was applied in wrong context."
   (if (and (boundp 'shift-select-mode) shift-select-mode)
-      (error "To use shift-selection with Org-mode, customize `org-support-shift-select'.")
-    (error "This command works only in special context like headlines or timestamps.")))
+      (error "To use shift-selection with Org-mode, customize `org-support-shift-select'")
+    (error "This command works only in special context like headlines or timestamps")))
 
 (defun org-call-for-shift-select (cmd)
   (let ((this-command-keys-shift-translated t))
@@ -15029,7 +15029,7 @@ This command does many different things, depending on context:
 	(let ((org-inhibit-startup t)) (org-mode-restart))
 	(message "Local setup has been refreshed"))))
      ((org-clock-update-time-maybe))
-     (t (error "C-c C-c can do nothing useful at this location.")))))
+     (t (error "C-c C-c can do nothing useful at this location")))))
 
 (defun org-mode-restart ()
   "Restart Org-mode, to scan again for special lines.