`(and (boundp (quote ,var)) ,var))
(defmacro org-unmodified (&rest body)
- "Execute body without changing buffer-modified-p."
+ "Execute body without changing `buffer-modified-p'."
`(set-buffer-modified-p
(prog1 (buffer-modified-p) ,@body)))
"Where should `org-cycle' emulate TAB.
nil Never
white Only in completely white lines
-whitestart Only at the beginning of lines, before the first non-white char.
+whitestart Only at the beginning of lines, before the first non-white char
t Everywhere except in headlines
exc-hl-bol Everywhere except at the start of a headline
If TAB is used in a place where it does not emulate TAB, the current subtree
(defcustom org-descriptive-links t
"Non-nil means, hide link part and only show description of bracket links.
-Bracket links are like [[link][descritpion]]. This variable sets the initial
+Bracket links are like [[link][descritpion]]. This variable sets the initial
state in new org-mode buffers. The setting can then be toggled on a
per-buffer basis from the Org->Hyperlinks menu."
:group 'org-link
"How the path name in file links should be stored.
Valid values are:
-relative relative to the current directory, i.e. the directory of the file
+relative Relative to the current directory, i.e. the directory of the file
into which the link is being inserted.
-absolute absolute path, if possible with ~ for home directory.
-noabbrev absolute path, no abbreviation of home directory.
+absolute Absolute path, if possible with ~ for home directory.
+noabbrev Absolute path, no abbreviation of home directory.
adaptive Use relative path for files in the current directory and sub-
directories of it. For other files, use an absolute path."
:group 'org-link
(defcustom org-remember-use-refile-when-interactive t
"Non-nil means, use refile to file a remember note.
-This is only used when the the interactive mode for selecting a filing
+This is only used when the interactive mode for selecting a filing
location is used (see the variable `org-remember-store-without-prompt').
When nil, the `org-goto' interface is used."
:group 'org-remember
:type 'boolean)
(defcustom org-agenda-skip-timestamp-if-done nil
- "Non-nil means don't don't select item by timestamp or -range if it is DONE."
+ "Non-nil means don't select item by timestamp or -range if it is DONE."
:group 'org-agenda-skip
:type 'boolean)
(defcustom org-agenda-scheduled-leaders '("Scheduled: " "Sched.%2dx: ")
"Text preceeding scheduled items in the agenda view.
-THis is a list with two strings. The first applies when the item is
+This is a list with two strings. The first applies when the item is
scheduled on the current day. The second applies when it has been scheduled
previously, it may contain a %d to capture how many days ago the item was
scheduled."
(defcustom org-export-ascii-bullets '(?* ?+ ?-)
"Bullet characters for headlines converted to lists in ASCII export.
-The first character is is used for the first lest level generated in this
+The first character is used for the first lest level generated in this
way, and so on. If there are more levels than characters given here,
the list will be repeated.
Note that plain lists will keep the same bullets as the have in the
(0.5 . org-upcoming-deadline)
(0.0 . default))
"Faces for showing deadlines in the agenda.
-This is a list of cons cells. The cdr of each cess is a face to be used,
-and it can also just be a like like '(:foreground \"yellow\").
+This is a list of cons cells. The cdr of each cell is a face to be used,
+and it can also just be like '(:foreground \"yellow\").
Each car is a fraction of the head-warning time that must have passed for
this the face in the cdr to be used for display. The numbers must be
given in descending order. The head-warning time is normally taken
(let ((kill-whole-line t))
(kill-line (- ne-ins ne-beg)) (point)))
(insert (make-string (- ne-ins ne-beg) ?\n)))
-
+
(org-maybe-renumber-ordered-list))
(goto-char pos)
(error "Cannot move this item further up"))))
"Unconditionally turn on `orgstruct-mode', and force org-mode indentations.
In addition to setting orgstruct-mode, this also exports all indentation and
autofilling variables from org-mode into the buffer. Note that turning
-off orgstruct-mode will *not* remove these additonal settings."
+off orgstruct-mode will *not* remove these additional settings."
(orgstruct-mode 1)
(let (var val)
(mapc
%s for the original field value. For example, to wrap
everything in @kbd{}, you could use :fmt \"@kbd{%s}\".
This may also be a property list with column numbers and
- formats. for example :fmt (2 \"@kbd{%s}\" 4 \"@code{%s}\").
+ formats. For example :fmt (2 \"@kbd{%s}\" 4 \"@code{%s}\").
-:cf \"f1 f2..\" The column fractions for the table. Bye default these
+:cf \"f1 f2..\" The column fractions for the table. By default these
are computed automatically from the width of the columns
under org-mode.
(mh-show-buffer-message-number))))
(defun org-mhe-get-header (header)
- "Return a header of the message in folder mode. This will create a
-show buffer for the corresponding message. If you have a more clever
+ "Return a header of the message in folder mode. This will create a
+show buffer for the corresponding message. If you have a more clever
idea..."
(let* ((folder (org-mhe-get-message-folder))
(num (org-mhe-get-message-num))
(when remember-save-after-remembering
(save-buffer)
(if (not visiting) (kill-buffer (current-buffer)))))))))
-
+
t) ;; return t to indicate that we took care of this note.
(defun org-get-org-file ()
(goto-char (point-at-eol))))))))
(org-release-buffers org-agenda-new-buffers)
(nreverse targets))))
-
+
(defun org-get-outline-path ()
(let (rtn)
(save-excursion
(unless (member key excluded)
(push (cons key (or value "")) props)))))
(if clocksum
- (push (cons "CLOCKSUM"
+ (push (cons "CLOCKSUM"
(org-column-number-to-string (/ (float clocksum) 60.)
'add_times))
props))
"Check string S for special relative date string.
TODAY and DEFAULT are internal times, for today and for a default.
Return shift list (N what def-flag)
-WHAT is \"d\", \"w\", \"m\", or \"y\" for day. week, month, year.
-N is the number if WHATs to shift
+WHAT is \"d\", \"w\", \"m\", or \"y\" for day, week, month, year.
+N is the number of WHATs to shift.
DEF-FLAG is t when a double ++ or -- indicates shift relative to
the DEFAULT date rather than TODAY."
(when (string-match
((and (> (length selstring) 0) (eq c ?\d))
(delete-window)
(org-agenda-get-restriction-and-command prefix-descriptions))
-
+
((equal c ?q) (error "Abort"))
(t (error "Invalid key %c" c))))))))
"Run an agenda command in batch mode and send the result to STDOUT.
If CMD-KEY is a string of length 1, it is used as a key in
`org-agenda-custom-commands' and triggers this command. If it is a
-longer string is is used as a tags/todo match string.
+longer string it is used as a tags/todo match string.
Paramters are alternating variable names and values that will be bound
before running the agenda command."
(let (pars)
"Run an agenda command in batch mode and send the result to STDOUT.
If CMD-KEY is a string of length 1, it is used as a key in
`org-agenda-custom-commands' and triggers this command. If it is a
-longer string is is used as a tags/todo match string.
+longer string it is used as a tags/todo match string.
Paramters are alternating variable names and values that will be bound
before running the agenda command.
(defun org-fix-agenda-info (props)
"Make sure all properties on an agenda item have a canonical form,
-so the the export commands caneasily use it."
+so the export commands can easily use it."
(let (tmp re)
(when (setq tmp (plist-get props 'tags))
(setq props (plist-put props 'tags (mapconcat 'identity tmp ":"))))
(message "Org-mode restarted to refresh keyword and special line setup"))
(defun org-kill-note-or-show-branches ()
- "If this is a Note buffer, abort storing the note. Else call `show-branches'."
+ "If this is a Note buffer, abort storing the note. Else call `show-branches'."
(interactive)
(if (not org-finish-function)
(call-interactively 'show-branches)
projects / emacs.git / commitdiff