* 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:
parent
99f3b856f6
commit
f924a367df
8 changed files with 46 additions and 34 deletions
|
@ -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.
|
||||
|
|
|
@ -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 ()
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Add table
Reference in a new issue