* 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> 2009-09-17 Stefan Monnier <monnier@iro.umontreal.ca>
* org-ascii.el: Require CL for the `loop' macro. * 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.el (org-time-since): Add a function to get the time since an
org timestamp. org timestamp.
(org-entry-properties): Add two new special properties: SINCE and (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. timestamp in an entry.
(org-special-properties): Add SINCE, SINCE_IA. (org-special-properties): Add SINCE, SINCE_IA.
(org-tags-sort-function): Add custom declaration for tags (org-tags-sort-function): Add custom declaration for tags
@ -3994,7 +4006,7 @@
preview. preview.
(org-time-stamp-inactive): Call `org-time-stamp'. (org-time-stamp-inactive): Call `org-time-stamp'.
(org-time-stamp): New argument `inactive'. Also edit inacive (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' (org-open-file): Interpret the `default' value for the `command'
in `org-file-apps'. in `org-file-apps'.
@ -4087,13 +4099,13 @@
* org-remember.el (org-get-x-clipboard): Use the compat * org-remember.el (org-get-x-clipboard): Use the compat
function to get clipboard values when x-selection-value is 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 set-text-properties to remove text properties from the clipboard
value. value.
* lisp/org-clock.el (org-update-mode-line): Support limiting the * lisp/org-clock.el (org-update-mode-line): Support limiting the
modeline clock string, and display the full todo value in 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. the currently clocked task.
(org-clock-string-limit): Add a custom value for the maximum (org-clock-string-limit): Add a custom value for the maximum
length of the clock string in the modeline. 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." that have been changed along."
(interactive) (interactive)
(or org-agenda-allow-remote-undo (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)) (if (not (eq this-command last-command))
(setq org-agenda-undo-has-started-in nil (setq org-agenda-undo-has-started-in nil
org-agenda-pending-undo-list org-agenda-undo-list)) 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 () (defun org-check-for-org-mode ()
"Make sure current buffer is in org-mode. Error if not." "Make sure current buffer is in org-mode. Error if not."
(or (org-mode-p) (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))) major-mode)))
(defun org-fit-agenda-window () (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)) (or (and dir (file-name-absolute-p dir))
(file-name-absolute-p org-attach-directory) (file-name-absolute-p org-attach-directory)
(buffer-file-name (buffer-base-buffer)) (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 () (defun org-attach-set-directory ()
"Set the ATTACH_DIR property of the current entry. "Set the ATTACH_DIR property of the current entry.

View file

@ -387,7 +387,7 @@ publishing directory."
(org-set-local 'buffer-file-name (org-set-local 'buffer-file-name
(with-current-buffer (buffer-base-buffer) (with-current-buffer (buffer-base-buffer)
buffer-file-name)) 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...") (message "Exporting...")
(setq-default org-todo-line-regexp org-todo-line-regexp) (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 (org-set-local 'buffer-file-name
(with-current-buffer (buffer-base-buffer) (with-current-buffer (buffer-base-buffer)
buffer-file-name)) 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...") (message "Exporting...")
(setq-default org-todo-line-regexp org-todo-line-regexp) (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." When CHECK is given, prepare detailed information about duplicate IDs."
(interactive) (interactive)
(if (not org-id-track-globally) (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 (let ((files
(or files (or files
(append (append

View file

@ -2993,7 +2993,7 @@ With prefix ARG, apply the new formulas to the table."
(call-interactively 'lisp-indent-line)) (call-interactively 'lisp-indent-line))
((looking-at "[$&@0-9a-zA-Z]+ *= *[^ \t\n']") (goto-char pos)) ((looking-at "[$&@0-9a-zA-Z]+ *= *[^ \t\n']") (goto-char pos))
((not (fboundp 'pp-buffer)) ((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]+ *= *'(") ((looking-at "[$&@0-9a-zA-Z]+ *= *'(")
(goto-char (- (match-end 0) 2)) (goto-char (- (match-end 0) 2))
(setq beg (point)) (setq beg (point))
@ -3783,7 +3783,7 @@ this table."
(org-table-end))) (org-table-end)))
(ntbl 0)) (ntbl 0))
(unless dests (if maybe (throw 'exit nil) (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) (dolist (dest dests)
(let* ((name (plist-get dest :name)) (let* ((name (plist-get dest :name))
(transform (plist-get dest :transform)) (transform (plist-get dest :transform))

View file

@ -5661,7 +5661,7 @@ frame is not changed."
(switch-to-buffer ibuf)) (switch-to-buffer ibuf))
((eq org-indirect-buffer-display 'other-window) ((eq org-indirect-buffer-display 'other-window)
(pop-to-buffer ibuf)) (pop-to-buffer ibuf))
(t (error "Invalid value."))) (t (error "Invalid value")))
(if (featurep 'xemacs) (if (featurep 'xemacs)
(save-excursion (org-mode) (turn-on-font-lock))) (save-excursion (org-mode) (turn-on-font-lock)))
(narrow-to-region beg end) (narrow-to-region beg end)
@ -6073,7 +6073,7 @@ is signaled in this case."
;; First check if there are no even levels ;; First check if there are no even levels
(when (re-search-forward "^\\(\\*\\*\\)+ " nil t) (when (re-search-forward "^\\(\\*\\*\\)+ " nil t)
(org-show-context 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? ") (when (yes-or-no-p "Are you sure you want to globally change levels to odd-even? ")
(let ((org-odd-levels-only nil) n) (let ((org-odd-levels-only nil) n)
(save-excursion (save-excursion
@ -14589,8 +14589,8 @@ See `org-ctrl-c-ctrl-c-hook' for more information.")
(defun org-shiftselect-error () (defun org-shiftselect-error ()
"Throw an error because Shift-Cursor command was applied in wrong context." "Throw an error because Shift-Cursor command was applied in wrong context."
(if (and (boundp 'shift-select-mode) shift-select-mode) (if (and (boundp 'shift-select-mode) shift-select-mode)
(error "To use shift-selection with Org-mode, customize `org-support-shift-select'.") (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 "This command works only in special context like headlines or timestamps")))
(defun org-call-for-shift-select (cmd) (defun org-call-for-shift-select (cmd)
(let ((this-command-keys-shift-translated t)) (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)) (let ((org-inhibit-startup t)) (org-mode-restart))
(message "Local setup has been refreshed")))) (message "Local setup has been refreshed"))))
((org-clock-update-time-maybe)) ((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 () (defun org-mode-restart ()
"Restart Org-mode, to scan again for special lines. "Restart Org-mode, to scan again for special lines.