* 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.
This commit is contained in:
Juanma Barranquero 2009-09-23 23:55:26 +00:00
parent 99f3b856f6
commit f924a367df
8 changed files with 46 additions and 34 deletions

View file

@ -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.

View file

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

View file

@ -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.

View file

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

View file

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

View file

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

View file

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

View file

@ -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
@ -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.