1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-28 20:27:51 +00:00

Fix typos in org-agenda.el

This commit is contained in:
Bernt Hansen 2008-12-16 09:25:23 -05:00
parent 1eef2abe15
commit edbfe4f4fd

View File

@ -93,7 +93,7 @@ This is done by leaving out unnecessary lines."
(defcustom org-agenda-exporter-settings nil (defcustom org-agenda-exporter-settings nil
"Alist of variable/value pairs that should be active during agenda export. "Alist of variable/value pairs that should be active during agenda export.
This is a good place to set uptions for ps-print and for htmlize." This is a good place to set options for ps-print and for htmlize."
:group 'org-agenda-export :group 'org-agenda-export
:type '(repeat :type '(repeat
(list (list
@ -199,7 +199,7 @@ you can \"misuse\" it to also add other text to the header. However,
(const :format "" quote) (const :format "" quote)
(list (list
(choice (choice
:tag "Skiping range" :tag "Skipping range"
(const :tag "Skip entry" org-agenda-skip-entry-if) (const :tag "Skip entry" org-agenda-skip-entry-if)
(const :tag "Skip subtree" org-agenda-skip-subtree-if)) (const :tag "Skip subtree" org-agenda-skip-subtree-if))
(repeat :inline t :tag "Conditions for skipping" (repeat :inline t :tag "Conditions for skipping"
@ -254,7 +254,7 @@ files A list of files file to write the produced agenda buffer to
with the command `org-store-agenda-views'. with the command `org-store-agenda-views'.
If a file name ends in \".html\", an HTML version of the buffer If a file name ends in \".html\", an HTML version of the buffer
is written out. If it ends in \".ps\", a postscript version is is written out. If it ends in \".ps\", a postscript version is
produced. Otherwide, only the plain text is written to the file. produced. Otherwise, only the plain text is written to the file.
You can also define a set of commands, to create a composite agenda buffer. You can also define a set of commands, to create a composite agenda buffer.
In this case, an entry looks like this: In this case, an entry looks like this:
@ -357,7 +357,7 @@ should provide a description for the prefix, like
(defcustom org-agenda-query-register ?o (defcustom org-agenda-query-register ?o
"The register holding the current query string. "The register holding the current query string.
The prupose of this is that if you construct a query string interactively, The purpose of this is that if you construct a query string interactively,
you can then use it to define a custom command." you can then use it to define a custom command."
:group 'org-agenda-custom-commands :group 'org-agenda-custom-commands
:type 'character) :type 'character)
@ -410,7 +410,7 @@ files will be included.")
(defcustom org-agenda-skip-comment-trees t (defcustom org-agenda-skip-comment-trees t
"Non-nil means, skip trees that start with the COMMENT keyword. "Non-nil means, skip trees that start with the COMMENT keyword.
When nil, these trees are also scand by agenda commands." When nil, these trees are also scanned by agenda commands."
:group 'org-agenda-skip :group 'org-agenda-skip
:type 'boolean) :type 'boolean)
@ -461,10 +461,10 @@ is DONE."
:type 'boolean) :type 'boolean)
(defcustom org-agenda-skip-deadline-if-done nil (defcustom org-agenda-skip-deadline-if-done nil
"Non-nil means don't show deadines when the corresponding item is done. "Non-nil means don't show deadlines when the corresponding item is done.
When nil, the deadline is still shown and should give you a happy feeling. When nil, the deadline is still shown and should give you a happy feeling.
This is relevant for the daily/weekly agenda. And it applied only to the This is relevant for the daily/weekly agenda. And it applied only to the
actualy date of the deadline. Warnings about approching and past-due actually date of the deadline. Warnings about approaching and past-due
deadlines are always turned off when the item is DONE." deadlines are always turned off when the item is DONE."
:group 'org-agenda-skip :group 'org-agenda-skip
:type 'boolean) :type 'boolean)
@ -636,8 +636,8 @@ the entries for specific days."
:type 'boolean) :type 'boolean)
(defcustom org-agenda-repeating-timestamp-show-all t (defcustom org-agenda-repeating-timestamp-show-all t
"Non-nil means, show all occurences of a repeating stamp in the agenda. "Non-nil means, show all occurrences of a repeating stamp in the agenda.
When nil, only one occurence is shown, either today or the When nil, only one occurrence is shown, either today or the
nearest into the future." nearest into the future."
:group 'org-agenda-daily/weekly :group 'org-agenda-daily/weekly
:type 'boolean) :type 'boolean)
@ -1326,7 +1326,7 @@ The following commands are available:
(defvar org-agenda-undo-has-started-in nil (defvar org-agenda-undo-has-started-in nil
"Buffers that have already seen `undo-start' in the current undo sequence.") "Buffers that have already seen `undo-start' in the current undo sequence.")
(defvar org-agenda-pending-undo-list nil (defvar org-agenda-pending-undo-list nil
"In a series of undo commands, this is the list of remaning undo items.") "In a series of undo commands, this is the list of remaining undo items.")
(defun org-agenda-undo () (defun org-agenda-undo ()
@ -1997,7 +1997,7 @@ VALUE defaults to t."
(mapcar (lambda (x) (setcdr x (sort (copy-sequence (cdr x)) '<)) x) (mapcar (lambda (x) (setcdr x (sort (copy-sequence (cdr x)) '<)) x)
tbl))) tbl)))
(defvar org-agenda-marker-table nil) ; dyamically scoped parameter (defvar org-agenda-marker-table nil) ; dynamically scoped parameter
(defun org-check-agenda-marker-table () (defun org-check-agenda-marker-table ()
"Check of the current entry is on the marker list." "Check of the current entry is on the marker list."
(let ((file (buffer-file-name (or (buffer-base-buffer) (current-buffer)))) (let ((file (buffer-file-name (or (buffer-base-buffer) (current-buffer))))
@ -2025,7 +2025,7 @@ VALUE defaults to t."
;;; Agenda prepare and finalize ;;; Agenda prepare and finalize
(defvar org-agenda-multi nil) ; dynammically scoped (defvar org-agenda-multi nil) ; dynamically scoped
(defvar org-agenda-buffer-name "*Org Agenda*") (defvar org-agenda-buffer-name "*Org Agenda*")
(defvar org-pre-agenda-window-conf nil) (defvar org-pre-agenda-window-conf nil)
(defvar org-agenda-columns-active nil) (defvar org-agenda-columns-active nil)
@ -2523,7 +2523,7 @@ given in `org-agenda-start-on-weekday'."
(defvar org-search-syntax-table nil (defvar org-search-syntax-table nil
"Special syntax table for org-mode search. "Special syntax table for org-mode search.
In this table, we have single quotes not as word constituents, to In this table, we have single quotes not as word constituents, to
that when \"+Ameli\" is searchd as a work, it will also match \"Ameli's\"") that when \"+Ameli\" is searched as a work, it will also match \"Ameli's\"")
(defun org-search-syntax-table () (defun org-search-syntax-table ()
(unless org-search-syntax-table (unless org-search-syntax-table
@ -2812,7 +2812,7 @@ The prefix arg TODO-ONLY limits the search to TODO entries."
(org-get-agenda-file-buffer file) (org-get-agenda-file-buffer file)
(error "No such file %s" file))) (error "No such file %s" file)))
(if (not buffer) (if (not buffer)
;; If file does not exist, merror message to agenda ;; If file does not exist, error message to agenda
(setq rtn (list (setq rtn (list
(format "ORG-AGENDA-ERROR: No such org-file %s" file)) (format "ORG-AGENDA-ERROR: No such org-file %s" file))
rtnall (append rtnall rtn)) rtnall (append rtnall rtn))
@ -3049,7 +3049,7 @@ date. It also removes lines that contain only whitespace."
'(if (boundp 'diary-modify-entry-list-string-function) '(if (boundp 'diary-modify-entry-list-string-function)
;; We can rely on the hook, nothing to do ;; We can rely on the hook, nothing to do
nil nil
;; Hook not avaiable, must use advice to make this work ;; Hook not available, must use advice to make this work
(defadvice add-to-diary-list (before org-mark-diary-entry activate) (defadvice add-to-diary-list (before org-mark-diary-entry activate)
"Make the position visible." "Make the position visible."
(if (and org-disable-agenda-to-diary ;; called from org-agenda (if (and org-disable-agenda-to-diary ;; called from org-agenda
@ -5074,10 +5074,10 @@ the same tree node, and the headline of the tree node in the Org-mode file."
The new content of the line will be NEWHEAD (as modified by The new content of the line will be NEWHEAD (as modified by
`org-format-agenda-item'). HDMARKER is checked with `org-format-agenda-item'). HDMARKER is checked with
`equal' against all `org-hd-marker' text properties in the file. `equal' against all `org-hd-marker' text properties in the file.
If FIXFACE is non-nil, the face of each item is modified acording to If FIXFACE is non-nil, the face of each item is modified according to
the new TODO state. the new TODO state.
If JUST-THIS is non-nil, change just the current line, not all. If JUST-THIS is non-nil, change just the current line, not all.
If FORCE-TAGS is non nil, the car of it ar the new tags." If FORCE-TAGS is non nil, the car of it returns the new tags."
(let* ((inhibit-read-only t) (let* ((inhibit-read-only t)
(line (org-current-line)) (line (org-current-line))
props m pl undone-face done-face finish new dotime cat tags) props m pl undone-face done-face finish new dotime cat tags)
@ -5606,7 +5606,7 @@ This is a command that has to be installed in `calendar-mode-map'."
(defun org-agenda-to-appt (&optional refresh filter) (defun org-agenda-to-appt (&optional refresh filter)
"Activate appointments found in `org-agenda-files'. "Activate appointments found in `org-agenda-files'.
With a \\[universal-argument] prefix, refresh the list of With a \\[universal-argument] prefix, refresh the list of
appointements. appointments.
If FILTER is t, interactively prompt the user for a regular If FILTER is t, interactively prompt the user for a regular
expression, and filter out entries that don't match it. expression, and filter out entries that don't match it.