summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2009-06-08 08:00:46 +0200
committerCarsten Dominik <carsten.dominik@gmail.com>2009-06-08 08:00:46 +0200
commit379b24cc637fa3aa09e483175615d4dc158e8dde (patch)
tree753d0979cc83f85ff418931cdc7d6b5b9e54c190
parentef57d7b90cd4aaf70d6943434f180fd577822702 (diff)
downloadorg-mode-379b24cc637fa3aa09e483175615d4dc158e8dde.tar.gz
Fix whitespace issues
-rw-r--r--lisp/org-agenda.el6
-rw-r--r--lisp/org-ascii.el8
-rw-r--r--lisp/org-attach.el2
-rw-r--r--lisp/org-clock.el12
-rw-r--r--lisp/org-exp.el14
-rw-r--r--lisp/org-feed.el8
-rw-r--r--lisp/org-footnote.el8
-rw-r--r--lisp/org-html.el8
-rw-r--r--lisp/org-latex.el6
-rw-r--r--lisp/org-list.el2
-rw-r--r--lisp/org-mac-message.el8
-rw-r--r--lisp/org-protocol.el4
-rw-r--r--lisp/org-remember.el4
-rw-r--r--lisp/org.el86
14 files changed, 88 insertions, 88 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 9cd7c4e..184abb1 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -528,7 +528,7 @@ See also the variable `org-agenda-tags-todo-honor-ignore-options'."
"Non-nil means, honor todo-list ...ignore options also in tags-todo search.
The variables
`org-agenda-todo-ignore-with-date',
- `org-agenda-todo-ignore-scheduled'
+ `org-agenda-todo-ignore-scheduled'
`org-agenda-todo-ignore-deadlines'
make the global TODO list skip entries that have time stamps of certain
kinds. If this option is set, the same options will also apply for the
@@ -2820,7 +2820,7 @@ given in `org-agenda-start-on-weekday'."
'org-agenda-date))
(put-text-property s (1- (point)) 'org-date-line t)
(put-text-property s (1- (point)) 'org-day-cnt day-cnt)
- (when todayp
+ (when todayp
(put-text-property s (1- (point)) 'org-today t)
(put-text-property s (1- (point)) 'face 'org-agenda-date-today))
(if rtnall (insert
@@ -4630,7 +4630,7 @@ If ERROR is non-nil, throw an error, otherwise just return nil."
(if org-agenda-columns-active
(org-columns-quit)
(let ((buf (current-buffer)))
- (and (not (eq org-agenda-window-setup 'current-window))
+ (and (not (eq org-agenda-window-setup 'current-window))
(not (one-window-p))
(delete-window))
(kill-buffer buf)
diff --git a/lisp/org-ascii.el b/lisp/org-ascii.el
index 5870d1b..1bbe161 100644
--- a/lisp/org-ascii.el
+++ b/lisp/org-ascii.el
@@ -278,10 +278,10 @@ publishing directory."
(setq date (format-time-string date)))
(date)
(t (setq date (format-time-string "%Y-%m-%d %T %Z"))))
-
+
(if (and date org-export-time-stamp-file)
(insert (concat (nth 2 lang-words) ": " date"\n")))
-
+
(insert "\n\n"))
(if (and org-export-with-toc (not body-only))
@@ -362,7 +362,7 @@ publishing directory."
(substring link 8)
org-export-code-refs)))
t t line))
- (setq rpl (concat "["
+ (setq rpl (concat "["
(or (match-string 3 line) (match-string 1 line))
"]"))
(when (and desc0 (not (equal desc0 link)))
@@ -498,7 +498,7 @@ publishing directory."
(make-string ind ?\ )
(substring line (1+ pos)))
line)))
-
+
(defun org-export-ascii-push-links (link-buffer)
"Push out links in the buffer."
(when link-buffer
diff --git a/lisp/org-attach.el b/lisp/org-attach.el
index 836409c..4b74cd5 100644
--- a/lisp/org-attach.el
+++ b/lisp/org-attach.el
@@ -95,7 +95,7 @@ ln create a hard link. Note that this is not supported
"Non-nil means, allow attachment directories be inherited."
:group 'org-attach
:type 'boolean)
-
+
(defvar org-attach-inherited nil
"Indicates if the last access to the attachment directory was inherited.")
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 2377de7..1016c6a 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -202,7 +202,7 @@ auto Automtically, either `all', or `repeat' for repeating tasks"
(defvar org-clock-heading-for-remember "")
(defvar org-clock-start-time "")
-(defvar org-clock-effort ""
+(defvar org-clock-effort ""
"Effort estimate of the currently clocking task")
(defvar org-clock-total-time nil
@@ -309,7 +309,7 @@ pointing to it."
(looking-at "\\*+ ")
(match-string 0))
task (substring
- (org-fontify-like-in-org-mode
+ (org-fontify-like-in-org-mode
(concat prefix heading)
org-odd-levels-only)
(length prefix))))))
@@ -329,7 +329,7 @@ If not, show simply the clocked time like 01:50."
(if (and org-clock-effort)
(let* ((effort-in-minutes (org-hh:mm-string-to-minutes org-clock-effort))
(effort-h (floor effort-in-minutes 60))
- (effort-m (- effort-in-minutes (* effort-h 60)))
+ (effort-m (- effort-in-minutes (* effort-h 60)))
)
(format (concat "-[" org-time-clocksum-format "/" org-time-clocksum-format " (%s)]")
h m effort-h effort-m org-clock-heading)
@@ -435,13 +435,13 @@ the clocking selection, associated with the letter `d'."
(marker-position org-clock-marker)
(marker-buffer org-clock-marker))
(org-clock-out t))
-
+
(when (equal select '(16))
;; Mark as default clocking task
(save-excursion
(org-back-to-heading t)
(move-marker org-clock-default-task (point))))
-
+
(setq target-pos (point)) ;; we want to clock in at this location
(save-excursion
(when (and selected-task (marker-buffer selected-task))
@@ -590,7 +590,7 @@ line and position cursor in that line."
" +\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$")
end t))
(beginning-of-line 1)
- (throw 'exit t))
+ (throw 'exit t))
(when (eobp) (newline) (setq end (max (point) end)))
(when (re-search-forward (concat "^[ \t]*:" drawer ":") end t)
;; we seem to have a CLOCK drawer, so go there.
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 9c4f121..5f18193 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -1335,7 +1335,7 @@ on this string to produce the exported version."
;; HTML-specific preprocessing
(when htmlp
(org-export-html-preprocess parameters))
-
+
;; DocBook-specific preprocessing
(when docbookp
(require 'org-docbook nil)
@@ -2207,7 +2207,7 @@ INDENT was the original indentation of the block."
(setq lang nil)
(message
"htmlize.el 1.34 or later is needed for source code formatting")))
-
+
(if lang
(let* ((mode (and lang (intern (concat lang "-mode"))))
(org-inhibit-startup t)
@@ -2298,7 +2298,7 @@ INDENT was the original indentation of the block."
(substring label-format (match-end 0))
""))
(lbl-re
- (concat
+ (concat
".*?\\S-.*?\\([ \t]*\\("
(regexp-quote label-pre)
"\\([-a-zA-Z0-9_]+\\)"
@@ -2476,17 +2476,17 @@ directory."
(erase-buffer)
(insert region)
(let ((org-inhibit-startup t)) (org-mode))
-
+
;; Get rid of archived trees
(org-export-remove-archived-trees (plist-get opt-plist :archived-trees))
-
+
;; Remove comment environment and comment subtrees
(org-export-remove-comment-blocks-and-subtrees)
-
+
;; Get rid of excluded trees
(org-export-handle-export-tags (plist-get opt-plist :select-tags)
(plist-get opt-plist :exclude-tags))
-
+
(when (or (plist-get opt-plist :plain-source)
(not (or (plist-get opt-plist :plain-source)
(plist-get opt-plist :htmlized-source))))
diff --git a/lisp/org-feed.el b/lisp/org-feed.el
index 50f0745..7c21746 100644
--- a/lisp/org-feed.el
+++ b/lisp/org-feed.el
@@ -141,7 +141,7 @@ Here are the keyword-value pair allows in `org-feed-alist'.
The default action on new items in the feed is to add them as children
under the headline for the feed. The template describes how the entry
should be formatted. If not given, it defaults to
- `org-feed-default-template'.
+ `org-feed-default-template'.
:formatter formatter-function
Instead of relying on a template, you may specify a function to format
@@ -322,7 +322,7 @@ it can be a list structured like an entry in `org-feed-alist'."
;; Add the "handled" status to the appropriate entries
(setq entries (mapcar (lambda (e)
(setq e (plist-put e :handled
- (nth 1 (assoc
+ (nth 1 (assoc
(plist-get e :guid)
old-status)))))
entries))
@@ -381,7 +381,7 @@ it can be a list structured like an entry in `org-feed-alist'."
(mapcar
(lambda (e) (org-feed-format-entry e template formatter))
new)))
-
+
;; Insert the new items
(org-feed-add-items inbox-pos new-formatted))
@@ -395,7 +395,7 @@ it can be a list structured like an entry in `org-feed-alist'."
;; that would would end up with a status that does not reflect
;; which items truely have been handled
(org-feed-write-status inbox-pos drawer status)
-
+
;; Normalize the visibility of the inbox tree
(goto-char inbox-pos)
(hide-subtree)
diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el
index f6c24ea..63a6e58 100644
--- a/lisp/org-footnote.el
+++ b/lisp/org-footnote.el
@@ -57,7 +57,7 @@
"\\]")
"Regular expression for matching footnotes.")
-(defconst org-footnote-definition-re
+(defconst org-footnote-definition-re
(org-re "^\\(\\[\\([0-9]+\\|fn:[-_[:word:]]+\\)\\]\\)")
"Regular expression matching the definition of a footnote.")
@@ -363,7 +363,7 @@ referenced sequence."
org-footnote-fill-after-inline-note-extraction
(fill-paragraph)))
(if (not a) (push (list ref marker def (if idef t nil)) ref-table))))
-
+
;; First find and remove the footnote section
(goto-char (point-min))
(cond
@@ -386,7 +386,7 @@ referenced sequence."
(insert "* " org-footnote-section "\n")
(setq ins-point (point))))))
(t
- (if (re-search-forward
+ (if (re-search-forward
(concat "^"
(regexp-quote org-footnote-tag-for-non-org-mode-files)
"[ \t]*$")
@@ -397,7 +397,7 @@ referenced sequence."
(delete-region (point) (point-max))
(insert "\n\n" org-footnote-tag-for-non-org-mode-files "\n")
(setq ins-point (point))))
-
+
;; Insert the footnotes again
(goto-char (or ins-point (point-max)))
(setq ref-table (reverse ref-table))
diff --git a/lisp/org-html.el b/lisp/org-html.el
index 2fcefaa..d0a4063 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -61,7 +61,7 @@ by the footnotes themselves."
(defcustom org-export-html-xml-declaration
'(("html" . "<?xml version=\"1.0\" encoding=\"%s\"?>")
- ("php" . "<?php echo '<?xml version=\"1.0\" encoding=\"%s\" ?>'; ?>"))
+ ("php" . "<?php echo '<?xml version=\"1.0\" encoding=\"%s\" ?>'; ?>"))
"The extension for exported HTML files.
%s will be replaced with the charset of the exported file.
This may be a string, or an alist with export extensions
@@ -1136,7 +1136,7 @@ lang=\"%s\" xml:lang=\"%s\">
(org-html-level-start level txt umax
(and org-export-with-toc (<= level umax))
head-count)
-
+
;; QUOTES
(when (string-match quote-re line)
(org-close-par-maybe)
@@ -1502,7 +1502,7 @@ lang=\"%s\" xml:lang=\"%s\">
(delq nil (mapcar
(lambda (x) (string-match "^[ \t]*|-" x))
(cdr lines)))))
-
+
(nlines 0) fnum i
tbopen line fields html gr colgropen)
(if splice (setq head nil))
@@ -1562,7 +1562,7 @@ lang=\"%s\" xml:lang=\"%s\">
fnum "")
"</colgroup>")
html)
-
+
;; Since the output of HTML table formatter can also be used in
;; DocBook document, we want to always include the caption to make
;; DocBook XML file valid.
diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index 2ea6f47..bdb4479 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -207,7 +207,7 @@ formats for not-done and done states, or an association list with setup
for individual keywords. If a keyword shows up for which there is no
markup defined, the first one in the association list will be used."
:group 'org-export-latex
- :type '(choice
+ :type '(choice
(string :tag "Default")
(cons :tag "Distinguish undone and done"
(string :tag "Not-DONE states")
@@ -216,7 +216,7 @@ markup defined, the first one in the association list will be used."
(cons
(string :tag "Keyword")
(string :tag "Markup")))))
-
+
(defcustom org-export-latex-timestamp-markup "\\textit{%s}"
"A printf format string to be applied to time stamps."
:group 'org-export-latex
@@ -1476,7 +1476,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
(while (re-search-forward "^[ \t]*\\\\begin{\\([a-zA-Z]+\\*?\\)}" nil t)
(let* ((start (progn (beginning-of-line) (point)))
(end (or (and (re-search-forward
- (concat "^[ \t]*\\\\end{"
+ (concat "^[ \t]*\\\\end{"
(regexp-quote (match-string 1))
"}") nil t)
(point-at-eol))
diff --git a/lisp/org-list.el b/lisp/org-list.el
index 0f28b1e..7990fd3 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -1233,7 +1233,7 @@ with overruling parameters for `org-list-to-generic'."
LIST is as returnd by `org-list-parse-list'. PARAMS is a property list
with overruling parameters for `org-list-to-generic'."
(org-list-to-generic
- list
+ list
(org-combine-plists
'(:splicep nil :ostart "@itemize @minus" :oend "@end itemize"
:ustart "@enumerate" :uend "@end enumerate"
diff --git a/lisp/org-mac-message.el b/lisp/org-mac-message.el
index 17d142e..06e0755 100644
--- a/lisp/org-mac-message.el
+++ b/lisp/org-mac-message.el
@@ -121,7 +121,7 @@ This will use the command `open' with the message URL."
"set theSubject to subject of theMessage\n"
"set theLink to \"message://\" & theID & \"::split::\" & theSubject & \"\n\"\n"
"copy theLink to end of theLinkList\n"
-
+
;; Report progress through Growl
;; This "double tell" idiom is described in detail at
;; http://macscripter.net/viewtopic.php?id=24570 The
@@ -152,7 +152,7 @@ the subject of the message in Mail.app and make a link out
of it."
(interactive "sLink to (s)elected or (f)lagged messages: ")
(message "AppleScript: searching mailboxes...")
- (let* ((as-link-list
+ (let* ((as-link-list
(if (string= select-or-flag "s")
(as-get-selected-mail)
(if (string= select-or-flag "f")
@@ -175,7 +175,7 @@ of it."
(when (not (string= URL ""))
(setq orglink (org-make-link-string URL description))
(push orglink orglink-list)))
- (with-temp-buffer
+ (with-temp-buffer
(while orglink-list
(insert (concat (pop orglink-list)) "\n"))
(kill-region (point-min) (point-max))
@@ -209,7 +209,7 @@ list of message:// links to flagged mail after heading."
(progn
(save-excursion
(while (re-search-forward message-re (save-excursion (outline-next-heading)) t)
-
+
(delete-region (match-beginning 0) (match-end 0)))
(insert "\n")
(org-mac-message-get-links "f")
diff --git a/lisp/org-protocol.el b/lisp/org-protocol.el
index 8f4fd46..6f3b24c 100644
--- a/lisp/org-protocol.el
+++ b/lisp/org-protocol.el
@@ -371,7 +371,7 @@ returned list."
(progn
(dolist (e l ret)
(setq ret
- (append ret
+ (append ret
(list
(if (stringp e)
(if (stringp replacement)
@@ -465,7 +465,7 @@ Now template ?b will be used."
:initial region)
(raise-frame)
(org-remember nil (string-to-char template)))
-
+
(message "Org-mode not loaded."))
nil)
diff --git a/lisp/org-remember.el b/lisp/org-remember.el
index b0039fa..43d21b9 100644
--- a/lisp/org-remember.el
+++ b/lisp/org-remember.el
@@ -1028,9 +1028,9 @@ See also the variable `org-reverse-note-order'."
"^remember-.*[0-9]$"))))
(when (> n 0)
(message
- "%d backup files (unfinished remember calls) in %s"
+ "%d backup files (unfinished remember calls) in %s"
n org-remember-backup-directory))))))))))
-
+
t) ;; return t to indicate that we took care of this note.
(defun org-do-remember (&optional initial)
diff --git a/lisp/org.el b/lisp/org.el
index 80fd755..b358552 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -168,7 +168,7 @@ to add the symbol `xyz', and the package must have a call to
(const :tag " id: Global IDs for identifying entries" org-id)
(const :tag " info: Links to Info nodes" org-info)
(const :tag " jsinfo: Set up Sebastian Rose's JavaScript org-info.js" org-jsinfo)
- (const :tag " inlinetask: Tasks independent of outline hierarchy" org-inlinetask)
+ (const :tag " inlinetask: Tasks independent of outline hierarchy" org-inlinetask)
(const :tag " irc: Links to IRC/ERC chat sessions" org-irc)
(const :tag " mac-message: Links to messages in Apple Mail" org-mac-message)
(const :tag " mew Links to Mew folders/messages" org-mew)
@@ -1626,10 +1626,10 @@ taken from the (otherwise obsolete) variable `org-todo-interpretation'."
;;place of item arguments
:convert-widget
(lambda (widget)
- (widget-put widget
- :args (mapcar
+ (widget-put widget
+ :args (mapcar
#'(lambda (x)
- (widget-convert
+ (widget-convert
(cons 'const x)))
org-todo-interpretation-widgets))
widget))
@@ -2975,7 +2975,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables."
(eval-and-compile
(org-autoload "org-exp"
'(org-export org-export-visible
- org-insert-export-options-template
+ org-insert-export-options-template
org-table-clean-before-export))
(org-autoload "org-ascii"
'(org-export-as-ascii org-export-ascii-preprocess
@@ -3545,7 +3545,7 @@ means to push this value onto the list in the variable.")
(while (setq kws (pop kwds))
(let ((kws (or
(run-hook-with-args-until-success
- 'org-todo-setup-filter-hook kws)
+ 'org-todo-setup-filter-hook kws)
kws)))
(setq inter (pop kws) sep (member "|" kws)
kws0 (delete "|" (copy-sequence kws))
@@ -4245,7 +4245,7 @@ will be prompted for."
(defun org-activate-footnote-links (limit)
"Run through the buffer and add overlays to links."
- (if (re-search-forward "\\(^\\|[^][]\\)\\(\\[\\([0-9]+\\]\\|fn:[^ \t\r\n:]+?[]:]\\)\\)"
+ (if (re-search-forward "\\(^\\|[^][]\\)\\(\\[\\([0-9]+\\]\\|fn:[^ \t\r\n:]+?[]:]\\)\\)"
limit t)
(progn
(org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
@@ -4731,17 +4731,17 @@ in special contexts.
(copy-sequence org-cycle-hook))
org-cycle-hook))
(pos (point)))
-
+
(if (or bob-special (equal arg '(4)))
;; special case: use global cycling
(setq arg t))
-
+
(cond
((equal arg '(16))
(org-set-startup-visibility)
(message "Startup visibility, plus VISIBILITY properties"))
-
+
((equal arg '(64))
(show-all)
(message "Entire buffer visible, including drawers"))
@@ -4753,13 +4753,13 @@ in special contexts.
(if arg (org-table-edit-field t)
(org-table-justify-field-maybe)
(call-interactively 'org-table-next-field)))))
-
+
((run-hook-with-args-until-success
'org-tab-after-check-for-table-hook))
-
+
((eq arg t) ;; Global cycling
(org-cycle-internal-global))
-
+
((and org-drawers org-drawer-regexp
(save-excursion
(beginning-of-line 1)
@@ -4767,7 +4767,7 @@ in special contexts.
;; Toggle block visibility
(org-flag-drawer
(not (get-char-property (match-end 0) 'invisible))))
-
+
((integerp arg)
;; Show-subtree, ARG levels up from here.
(save-excursion
@@ -4775,27 +4775,27 @@ in special contexts.
(outline-up-heading (if (< arg 0) (- arg)
(- (funcall outline-level) arg)))
(org-show-subtree)))
-
+
((and (save-excursion (beginning-of-line 1) (looking-at outline-regexp))
(or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol))))
-
+
(org-cycle-internal-local))
-
+
;; TAB emulation and template completion
(buffer-read-only (org-back-to-heading))
-
+
((run-hook-with-args-until-success
'org-tab-after-check-for-cycling-hook))
-
+
((org-try-structure-completion))
-
+
((org-try-cdlatex-tab))
-
+
((and (eq org-cycle-emulate-tab 'exc-hl-bol)
(or (not (bolp))
(not (looking-at outline-regexp))))
(call-interactively (global-key-binding "\t")))
-
+
((if (and (memq org-cycle-emulate-tab '(white whitestart))
(save-excursion (beginning-of-line 1) (looking-at "[ \t]*"))
(or (and (eq org-cycle-emulate-tab 'white)
@@ -4805,7 +4805,7 @@ in special contexts.
t
(eq org-cycle-emulate-tab t))
(call-interactively (global-key-binding "\t")))
-
+
(t (save-excursion
(org-back-to-heading)
(org-cycle)))))))
@@ -4823,7 +4823,7 @@ in special contexts.
(message "CONTENTS...done")
(setq org-cycle-global-status 'contents)
(run-hook-with-args 'org-cycle-hook 'contents))
-
+
((and (eq last-command this-command)
(eq org-cycle-global-status 'contents))
;; We just showed the table of contents - now show everything
@@ -4832,7 +4832,7 @@ in special contexts.
(message "SHOW ALL")
(setq org-cycle-global-status 'all)
(run-hook-with-args 'org-cycle-hook 'all))
-
+
(t
;; Default action: go to overview
(run-hook-with-args 'org-pre-cycle-hook 'overview)
@@ -5472,7 +5472,7 @@ frame is not changed."
(or (beginning-of-line 0) t)
(save-match-data
(looking-at "[ \t]*$")))))
-
+
(defun org-insert-heading (&optional force-heading)
"Insert a new heading or item with same depth at point.
If point is in a plain list and FORCE-HEADING is nil, create a new list item.
@@ -6189,7 +6189,7 @@ the following will happen:
I this way you can spell out a number of instances of a repeating task,
and still retain the repeater to cover future instances of the task."
(interactive "nNumber of clones to produce: \nsDate shift per clone (e.g. +1w, empty to copy unchanged): ")
- (let (beg end template task
+ (let (beg end template task
shift-n shift-what doshift nmin nmax (n-no-remove -1))
(if (not (and (integerp n) (> n 0)))
(error "Invalid number of replications %s" n))
@@ -7631,7 +7631,7 @@ application the system uses for this file type."
((org-at-timestamp-p t) (org-follow-timestamp-link))
((or (org-footnote-at-reference-p) (org-footnote-at-definition-p))
(org-footnote-action))
- (t
+ (t
(let (type path link line search (pos (point)))
(catch 'match
(save-excursion
@@ -8423,7 +8423,7 @@ See also `org-refile-use-outline-path' and `org-completion-use-ido'"
(< pos (save-excursion
(org-end-of-subtree t t))))))
(error "Cannot refile to position inside the tree or region"))
-
+
(setq nbuf (or (find-buffer-visiting file)
(find-file-noselect file)))
(if goto
@@ -8955,15 +8955,15 @@ this is nil.")
(push (nth 2 e) rtn)))
rtn)))))
-(defvar org-todo-setup-filter-hook nil
+(defvar org-todo-setup-filter-hook nil
"Hook for functions that pre-filter todo specs.
Each function takes a todo spec and returns either `nil' or the spec
transformed into canonical form." )
-
+
(defvar org-todo-get-default-hook nil
"Hook for functions that get a default item for todo.
-
+
Each function takes arguments (NEW-MARK OLD-MARK) and returns either
`nil' or a string to be used for the todo mark." )
@@ -9085,9 +9085,9 @@ For calling through lisp, arg is also interpreted in the following way:
nil)))
(t
(car tail))))
- (state (or
+ (state (or
(run-hook-with-args-until-success
- 'org-todo-get-default-hook state last-state)
+ 'org-todo-get-default-hook state last-state)
state))
(next (if state (concat " " state " ") " "))
(change-plist (list :type 'todo-state-change :from this :to state
@@ -9737,7 +9737,7 @@ be removed."
;; If necessary, get the time from the user
(setq time (or time (org-read-date nil 'to-time nil nil
default-time default-input))))
-
+
(when (and org-insert-labeled-timestamps-at-point
(member what '(scheduled deadline)))
(insert
@@ -10787,7 +10787,7 @@ With prefix ARG, realign all tags in headings in the current buffer."
(if just-align
(setq tags current)
;; Get a new set of tags from the user
- (save-excursion
+ (save-excursion
(setq table (append org-tag-persistent-alist
(or org-tag-alist (org-get-buffer-tags)))
org-last-tags-completion-table table
@@ -11156,7 +11156,7 @@ Returns the new tags string, or nil to not change the current settings."
FUNC is a function or a lisp form. The function will be called without
arguments, with the cursor positioned at the beginning of the headline.
The return values of all calls to the function will be collected and
-returned as a list.
+returned as a list.
The call to FUNC will be wrapped into a save-excursion form, so FUNC
does not need to preserve point. After evaluaton, the cursor will be
@@ -13420,7 +13420,7 @@ When a buffer is unmodified, it is just killed. When modified, it is saved
(append org-todo-keyword-alist-for-agenda org-todo-key-alist))
(setq org-tag-alist-for-agenda
(append org-tag-alist-for-agenda org-tag-alist))
-
+
(save-excursion
(remove-text-properties (point-min) (point-max) pall)
(when org-agenda-skip-archived-trees
@@ -14097,7 +14097,7 @@ field motion visibility cycling will be done.")
(defvar org-tab-after-check-for-table-hook nil
"Hook for functions to attach themselves to TAB.
See `org-ctrl-c-ctrl-c-hook' for more information.
-This hook runs after it has been established that the cursor is not in a
+This hook runs after it has been established that the cursor is not in a
table, but before checking if the cursor is in a headline or if global cycling
should be done.
If any function in this hook returns t, not other actions like visibility
@@ -14330,7 +14330,7 @@ depending on context. See the individual commands for more information."
((and (not org-support-shift-select) (org-at-item-p))
(call-interactively 'org-next-item))
((org-clocktable-try-shift 'down arg))
- (org-support-shift-select
+ (org-support-shift-select
(org-call-for-shift-select 'next-line))
(t (org-shiftselect-error))))
@@ -14352,7 +14352,7 @@ Depending on context, this does one of the following:
(org-on-heading-p))
(let ((org-inhibit-logging
(not org-treat-S-cursor-todo-selection-as-state-change)))
- (org-call-with-arg 'org-todo 'right)))
+ (org-call-with-arg 'org-todo 'right)))
((or (and org-support-shift-select
(not (eq org-support-shift-select 'always))
(org-at-item-bullet-p))
@@ -14362,7 +14362,7 @@ Depending on context, this does one of the following:
(org-at-property-p))
(call-interactively 'org-property-next-allowed-value))
((org-clocktable-try-shift 'right arg))
- (org-support-shift-select
+ (org-support-shift-select
(org-call-for-shift-select 'forward-char))
(t (org-shiftselect-error))))
@@ -14394,7 +14394,7 @@ Depending on context, this does one of the following:
(org-at-property-p))
(call-interactively 'org-property-previous-allowed-value))
((org-clocktable-try-shift 'left arg))
- (org-support-shift-select
+ (org-support-shift-select
(org-call-for-shift-select 'backward-char))
(t (org-shiftselect-error))))