summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-01-04 16:21:56 +0100
committerBastien Guerry <bzg@altern.org>2012-01-04 16:21:56 +0100
commit346ee30e42e0cc038e0693bb32b70db18e7137ea (patch)
tree889f65a6a56606437cde75a7292548538fbf4c6a
parentf6d7b32bf285dd6821c6a0c6650bc85954e77951 (diff)
downloadorg-mode-346ee30e42e0cc038e0693bb32b70db18e7137ea.tar.gz
Fix trailing whitespaces for *.el files in contrib/.
-rw-r--r--contrib/lisp/htmlize.el8
-rw-r--r--contrib/lisp/org-bookmark.el4
-rw-r--r--contrib/lisp/org-checklist.el3
-rw-r--r--contrib/lisp/org-choose.el76
-rw-r--r--contrib/lisp/org-collector.el4
-rw-r--r--contrib/lisp/org-drill.el1
-rw-r--r--contrib/lisp/org-eval-light.el4
-rw-r--r--contrib/lisp/org-eval.el7
-rw-r--r--contrib/lisp/org-expiry.el26
-rw-r--r--contrib/lisp/org-export-generic.el60
-rw-r--r--contrib/lisp/org-interactive-query.el8
-rw-r--r--contrib/lisp/org-invoice.el18
-rw-r--r--contrib/lisp/org-mac-iCal.el6
-rw-r--r--contrib/lisp/org-mac-link-grabber.el10
-rw-r--r--contrib/lisp/org-mairix.el6
-rw-r--r--contrib/lisp/org-mime.el4
-rw-r--r--contrib/lisp/org-mtags.el1
-rw-r--r--contrib/lisp/org-notmuch.el10
-rw-r--r--contrib/lisp/org-panel.el2
-rw-r--r--contrib/lisp/org-registry.el8
-rw-r--r--contrib/lisp/org-screen.el8
-rw-r--r--contrib/lisp/org-static-mathjax.el12
-rw-r--r--contrib/lisp/org-sudoku.el4
-rw-r--r--contrib/lisp/org-toc.el8
-rw-r--r--contrib/lisp/org-wikinodes.el6
-rw-r--r--contrib/lisp/org2rem.el6
-rw-r--r--contrib/lisp/test-org-export-preproc.el1
27 files changed, 151 insertions, 160 deletions
diff --git a/contrib/lisp/htmlize.el b/contrib/lisp/htmlize.el
index 8952e99..516fb1d 100644
--- a/contrib/lisp/htmlize.el
+++ b/contrib/lisp/htmlize.el
@@ -633,7 +633,7 @@ without modifying their meaning."
(goto-char (point-min))
(while (search-forward "Local Variables:" nil t)
(replace-match "Local Variables&#58;" nil t)))
-
+
;;; Color handling.
@@ -796,7 +796,7 @@ If no rgb.txt file is found, return nil."
(t
;; We're getting the RGB components from Emacs.
(let ((rgb
- ;; Here I cannot conditionalize on (fboundp ...)
+ ;; Here I cannot conditionalize on (fboundp ...)
;; because ps-print under some versions of GNU Emacs
;; defines its own dummy version of
;; `color-instance-rgb-components'.
@@ -1211,7 +1211,7 @@ property and by buffer overlays that specify `face'."
;; used methods are `doctype', `insert-head', `body-tag', and
;; `insert-text'. Not all output types define all methods.
;;
-;; Methods are called either with (htmlize-method METHOD ARGS...)
+;; Methods are called either with (htmlize-method METHOD ARGS...)
;; special form, or by accessing the function with
;; (htmlize-method-function 'METHOD) and calling (funcall FUNCTION).
;; The latter form is useful in tight loops because `htmlize-method'
@@ -1389,7 +1389,7 @@ it's called with the same value of KEY. All other times, the cached
(format "<body text=\"%s\" bgcolor=\"%s\">"
(htmlize-fstruct-foreground fstruct)
(htmlize-fstruct-background fstruct))))
-
+
(defun htmlize-font-insert-text (text fstruct-list buffer)
;; In `font' mode, we use the traditional HTML means of altering
;; presentation: <font> tag for colors, <b> for bold, <u> for
diff --git a/contrib/lisp/org-bookmark.el b/contrib/lisp/org-bookmark.el
index e57b2e6..586597a 100644
--- a/contrib/lisp/org-bookmark.el
+++ b/contrib/lisp/org-bookmark.el
@@ -67,7 +67,7 @@ Otherwise prompt the user for the right bookmark to use."
(if (not file)
(when (eq major-mode 'bookmark-bmenu-mode)
(setq bookmark (bookmark-bmenu-bookmark)))
- (when (and (setq bmks
+ (when (and (setq bmks
(mapcar (lambda (name)
(if (equal file
(abbreviate-file-name
@@ -75,7 +75,7 @@ Otherwise prompt the user for the right bookmark to use."
name))
(bookmark-all-names)))
(setq bmks (delete nil bmks)))
- (setq bookmark
+ (setq bookmark
(if (or (eq 1 (length bmks)) org-bookmark-use-first-bookmark)
(car bmks)
(completing-read "Bookmark: " bmks nil t nil nil (car bmks))))))
diff --git a/contrib/lisp/org-checklist.el b/contrib/lisp/org-checklist.el
index 05ad99d..a974874 100644
--- a/contrib/lisp/org-checklist.el
+++ b/contrib/lisp/org-checklist.el
@@ -138,6 +138,3 @@ of checkbox items"
(provide 'org-checklist)
;;; org-checklist.el ends here
-
-
-
diff --git a/contrib/lisp/org-choose.el b/contrib/lisp/org-choose.el
index 77478c5..3513fe9 100644
--- a/contrib/lisp/org-choose.el
+++ b/contrib/lisp/org-choose.el
@@ -46,13 +46,13 @@
;; * Use C-S-right to change the keyword set. Use this to change to
;; the "choose" keyword set that you just defined.
-;; * Use S-right to advance the TODO mark to the next setting.
+;; * Use S-right to advance the TODO mark to the next setting.
;; For "choose", that means you like this alternative more than
;; before. Other alternatives will be automatically demoted to
;; keep your settings consistent.
-;; * Use S-left to demote TODO to the previous setting.
+;; * Use S-left to demote TODO to the previous setting.
;; For "choose", that means you don't like this alternative as much
;; as before. Other alternatives will be automatically promoted,
@@ -83,7 +83,7 @@ Indexes are 0-based or `nil'.
static-default
all-keywords)
-(defvar org-choose-mark-data
+(defvar org-choose-mark-data
()
"Alist of information for choose marks.
@@ -101,7 +101,7 @@ Each entry is an `org-choose-mark-data.'" )
(not
(string-match "(.*)" i))
(list i i)
- (let*
+ (let*
(
(end-text (match-beginning 0))
(vanilla-text (substring i 0 end-text))
@@ -116,7 +116,7 @@ Each entry is an `org-choose-mark-data.'" )
;;When string starts with "," `split-string' doesn't
;;make a first arg, so in that case make one
;;manually.
- (if
+ (if
(string-match "^," args)
(cons nil arglist-x)
arglist-x)))
@@ -157,11 +157,11 @@ Each entry is an `org-choose-mark-data.'" )
;;item.
(top-upper-range
(or top-upper-range (1- num-items)))
- (lower-range-length
+ (lower-range-length
(1+ (- static-default bot-lower-range)))
- (upper-range-length
+ (upper-range-length
(- top-upper-range static-default))
- (range-length
+ (range-length
(min upper-range-length lower-range-length)))
@@ -194,7 +194,7 @@ Each entry is an `org-choose-mark-data.'" )
;;;_ . org-choose-filter-tail
(defun org-choose-filter-tail (raw)
"Return a translation of RAW to vanilla and set appropriate
-buffer-local variables.
+buffer-local variables.
RAW is a list of strings representing the input text of a choose
interpretation."
@@ -219,7 +219,7 @@ interpretation."
(push vanilla-mark vanilla-list)))
(org-choose-setup-vars bot-lower-range top-upper-range
- static-default index (reverse all-mark-texts))
+ static-default index (reverse all-mark-texts))
(nreverse vanilla-list)))
;;;_ . org-choose-setup-filter
@@ -234,35 +234,35 @@ interpretation."
;;;_ . org-choose-conform-after-promotion
(defun org-choose-conform-after-promotion (entry-pos keywords highest-ok-ix)
"Conform the current item after another item was promoted"
-
+
(unless
;;Skip the entry that triggered this by skipping any entry with
;;the same starting position. plist uses the start of the
;;header line as the position, but map no longer does, so we
;;have to go back to the heading.
- (=
+ (=
(save-excursion
(org-back-to-heading)
- (point))
+ (point))
entry-pos)
(let
((ix
(org-choose-get-entry-index keywords)))
;;If the index of the entry exceeds the highest allowable
;;index, change it to that.
- (when (and ix
+ (when (and ix
(> ix highest-ok-ix))
- (org-todo
+ (org-todo
(nth highest-ok-ix keywords))))))
;;;_ . org-choose-conform-after-demotion
(defun org-choose-conform-after-demotion (entry-pos keywords
raise-to-ix
- old-highest-ok-ix)
+ old-highest-ok-ix)
"Conform the current item after another item was demoted."
(unless
;;Skip the entry that triggered this.
- (=
+ (=
(save-excursion
(org-back-to-heading)
(point))
@@ -273,11 +273,11 @@ interpretation."
;;If the index of the entry was at or above the old allowable
;;position, change it to the new mirror position if there is
;;one.
- (when (and
- ix
+ (when (and
+ ix
raise-to-ix
(>= ix old-highest-ok-ix))
- (org-todo
+ (org-todo
(nth raise-to-ix keywords))))))
;;;_ , org-choose-keep-sensible (the org-trigger-hook function)
@@ -287,7 +287,7 @@ setting was changed."
(let*
( (from (plist-get change-plist :from))
(to (plist-get change-plist :to))
- (entry-pos
+ (entry-pos
(set-marker
(make-marker)
(plist-get change-plist :position)))
@@ -303,11 +303,11 @@ setting was changed."
(org-choose-mark-data.-all-keywords data))
(old-index
(org-choose-get-index-in-keywords
- from
+ from
keywords))
(new-index
(org-choose-get-index-in-keywords
- to
+ to
keywords))
(highest-ok-ix
(org-choose-highest-other-ok
@@ -324,7 +324,7 @@ setting was changed."
(> new-index old-index))
(list
#'org-choose-conform-after-promotion
- entry-pos keywords
+ entry-pos keywords
highest-ok-ix))
(t ;;Otherwise the entry was demoted.
(let
@@ -338,14 +338,14 @@ setting was changed."
(org-choose-highest-other-ok
old-index
data)))
-
+
(list
- #'org-choose-conform-after-demotion
- entry-pos
+ #'org-choose-conform-after-demotion
+ entry-pos
keywords
raise-to-ix
old-highest-ok-ix))))))
-
+
(if funcdata
;;The funny-looking names are to make variable capture
;;unlikely. (Poor-man's lexical bindings).
@@ -356,8 +356,8 @@ setting was changed."
;;We may call `org-todo', so let various hooks
;;`nil' so we don't cause loops.
org-after-todo-state-change-hook
- org-trigger-hook
- org-blocker-hook
+ org-trigger-hook
+ org-blocker-hook
org-todo-get-default-hook
;;Also let this alist `nil' so we don't log
;;secondary transitions.
@@ -366,7 +366,7 @@ setting was changed."
(funcall map-over-entries
#'(lambda ()
(apply func-d473 args-46k))))))))
-
+
;;Remove the marker
(set-marker entry-pos nil)))
@@ -393,7 +393,7 @@ setting was changed."
(defun org-choose-get-fn-map-group ()
"Return a function to map over the group"
-
+
#'(lambda (fn)
(require 'org-agenda) ;; `org-map-entries' seems to need it.
(save-excursion
@@ -402,7 +402,7 @@ setting was changed."
(let
((level (org-reduced-level (org-outline-level))))
(save-restriction
- (org-map-entries
+ (org-map-entries
fn
(format "LEVEL=%d" level)
'tree))))))
@@ -418,10 +418,10 @@ If there is none, return 0"
;;Func maps over applicable entries.
(map-over-entries
(org-choose-get-fn-map-group))
-
+
(indexes-list
(remove nil
- (funcall map-over-entries
+ (funcall map-over-entries
#'(lambda ()
(org-choose-get-entry-index keywords))))))
(if
@@ -438,7 +438,7 @@ given that another mark has index IX.
DATA must be a `org-choose-mark-data.'."
(let
- (
+ (
(bot-lower-range
(org-choose-mark-data.-bot-lower-range data))
(top-upper-range
@@ -455,7 +455,7 @@ DATA must be a `org-choose-mark-data.'."
;;;_ . org-choose-get-default-mark-index
-(defun org-choose-get-default-mark-index (data)
+(defun org-choose-get-default-mark-index (data)
"Return the index of the default mark in a choose interpretation.
DATA must be a `org-choose-mark-data.'."
@@ -475,7 +475,7 @@ DATA must be a `org-choose-mark-data.'."
;;;_ . org-choose-get-mark-N
(defun org-choose-get-mark-N (n data)
"Get the text of the nth mark in a choose interpretation."
-
+
(let*
((l (org-choose-mark-data.-all-keywords data)))
(nth n l)))
diff --git a/contrib/lisp/org-collector.el b/contrib/lisp/org-collector.el
index da612e9..ad198ed 100644
--- a/contrib/lisp/org-collector.el
+++ b/contrib/lisp/org-collector.el
@@ -87,7 +87,7 @@
;; | run (50) | 0.116446 |
;; | run (100) | 0.118863 |
;; #+END:
-;;
+;;
;;; Code:
(require 'org)
@@ -134,7 +134,7 @@ preceeding the dblock, then update the contents of the dblock."
(org-narrow-to-subtree)
(setq stringformat (if noquote "%s" "%S"))
(setq table (org-propview-to-table
- (org-propview-collect cols stringformat conds match scope inherit
+ (org-propview-collect cols stringformat conds match scope inherit
(if colnames colnames cols)) stringformat))
(widen))
(setq pos (point))
diff --git a/contrib/lisp/org-drill.el b/contrib/lisp/org-drill.el
index b022359..4adaf58 100644
--- a/contrib/lisp/org-drill.el
+++ b/contrib/lisp/org-drill.el
@@ -2915,4 +2915,3 @@ returns its return value."
(provide 'org-drill)
-
diff --git a/contrib/lisp/org-eval-light.el b/contrib/lisp/org-eval-light.el
index 5cae699..36f3c6d 100644
--- a/contrib/lisp/org-eval-light.el
+++ b/contrib/lisp/org-eval-light.el
@@ -67,7 +67,7 @@ large example block")
(defcustom org-eval-light-interpreters '("lisp" "emacs-lisp" "ruby" "shell")
"Interpreters allows for evaluation tags.
This is a list of program names (as strings) that can evaluate code and
-insert the output into an Org-mode buffer. Valid choices are
+insert the output into an Org-mode buffer. Valid choices are
lisp Interpret Emacs Lisp code and display the result
shell Pass command to the shell and display the result
@@ -189,7 +189,7 @@ commented by `org-eval-light-make-region-example'."
(with-temp-buffer
(insert code)
(shell-command-on-region (point-min) (point-max) cmd nil 'replace)
- (buffer-string)))
+ (buffer-string)))
(defadvice org-ctrl-c-ctrl-c (around org-cc-eval-source activate)
(if (org-eval-light-inside-snippet)
diff --git a/contrib/lisp/org-eval.el b/contrib/lisp/org-eval.el
index 31b91c1..9968669 100644
--- a/contrib/lisp/org-eval.el
+++ b/contrib/lisp/org-eval.el
@@ -105,7 +105,7 @@
(defcustom org-eval-interpreters '("lisp")
"Interpreters allows for evaluation tags.
This is a list of program names (as strings) that can evaluate code and
-insert the output into an Org-mode buffer. Valid choices are
+insert the output into an Org-mode buffer. Valid choices are
lisp Interpret Emacs Lisp code and display the result
shell Pass command to the shell and display the result
@@ -120,7 +120,7 @@ ruby The ruby interpreter"
(const "python")
(const "ruby")
(const "shell")))
-
+
(defun org-eval-handle-snippets (limit &optional replace)
"Evaluate code snippets and display the results as display property.
When REPLACE is non-nil, replace the code region with the result (used
@@ -212,9 +212,8 @@ This should go into the `org-export-preprocess-hook'."
(with-temp-buffer
(insert code)
(shell-command-on-region (point-min) (point-max) cmd nil 'replace)
- (buffer-string)))
+ (buffer-string)))
(provide 'org-eval)
;;; org-eval.el ends here
-
diff --git a/contrib/lisp/org-expiry.el b/contrib/lisp/org-expiry.el
index 88a1ab2..9f4517d 100644
--- a/contrib/lisp/org-expiry.el
+++ b/contrib/lisp/org-expiry.el
@@ -25,7 +25,7 @@
;;; Commentary:
;;
;; This gives you a chance to get rid of old entries in your Org files
-;; by expiring them.
+;; by expiring them.
;;
;; By default, entries that have no EXPIRY property are considered to be
;; new (i.e. 0 day old) and only entries older than one year go to the
@@ -33,7 +33,7 @@
;; your tasks will be deleted with the default settings.
;;
;; When does an entry expires?
-;;
+;;
;; Consider this entry:
;;
;; * Stop watching TV
@@ -41,8 +41,8 @@
;; :CREATED: <2008-01-07 lun 08:01>
;; :EXPIRY: <2008-01-09 08:01>
;; :END:
-;;
-;; This entry will expire on the 9th, january 2008.
+;;
+;; This entry will expire on the 9th, january 2008.
;; * Stop watching TV
;; :PROPERTIES:
@@ -56,19 +56,19 @@
;; What happen when an entry is expired? Nothing until you explicitely
;; M-x org-expiry-process-entries When doing this, org-expiry will check
;; for expired entries and request permission to process them.
-;;
+;;
;; Processing an expired entries means calling the function associated
;; with `org-expiry-handler-function'; the default is to add the tag
-;; :ARCHIVE:, but you can also add a EXPIRED keyword or even archive
-;; the subtree.
+;; :ARCHIVE:, but you can also add a EXPIRED keyword or even archive
+;; the subtree.
;;
;; Is this useful? Well, when you're in a brainstorming session, it
;; might be useful to know about the creation date of an entry, and be
;; able to archive those entries that are more than xxx days/weeks old.
-;;
+;;
;; When you're in such a session, you can insinuate org-expiry like
-;; this: M-x org-expiry-insinuate
-;;
+;; this: M-x org-expiry-insinuate
+;;
;; Then, each time you're pressing M-RET to insert an item, the CREATION
;; property will be automatically added. Same when you're scheduling or
;; deadlining items. You can deinsinuate: M-x org-expiry-deinsinuate
@@ -218,7 +218,7 @@ and restart `org-mode' if necessary."
Return nil if the entry is not expired. Otherwise return the
amount of time between today and the expiry date.
-If there is no creation date, use `org-expiry-created-date'.
+If there is no creation date, use `org-expiry-created-date'.
If there is no expiry date, use `org-expiry-expiry-date'."
(let* ((ex-prop org-expiry-expiry-property-name)
(cr-prop org-expiry-created-property-name)
@@ -292,7 +292,7 @@ update the date."
d-time d-hour timestr)
(when (or (null d) arg)
;; update if no date or non-nil prefix argument
- ;; FIXME Use `org-time-string-to-time'
+ ;; FIXME Use `org-time-string-to-time'
(setq d-time (if d (org-time-string-to-time d)
(current-time)))
(setq d-hour (format-time-string "%H:%M" d-time))
@@ -326,7 +326,7 @@ and insert today's date."
;; maybe transform to inactive timestamp
(if org-expiry-inactive-timestamps
(setq timestr (concat "[" (substring timestr 1 -1) "]")))
-
+
(save-excursion
(org-entry-put
(point) org-expiry-expiry-property-name timestr))))
diff --git a/contrib/lisp/org-export-generic.el b/contrib/lisp/org-export-generic.el
index 24794d2..436badc 100644
--- a/contrib/lisp/org-export-generic.el
+++ b/contrib/lisp/org-export-generic.el
@@ -35,7 +35,7 @@
;; org-set-generic-type function:
;;
;; (org-set-generic-type
-;; "really-basic-text"
+;; "really-basic-text"
;; '(:file-suffix ".txt"
;; :key-binding ?R
;;
@@ -155,10 +155,10 @@ in this way, it will be wrapped."
:toc-section-numbers t
:toc-section-number-format "\#(%s) "
- :toc-format "--%s--"
+ :toc-format "--%s--"
:toc-format-with-todo "!!%s!!\n"
- :toc-indent-char ?\
- :toc-indent-depth 4
+ :toc-indent-char ?\
+ :toc-indent-depth 4
:toc-tags-export t
:toc-tags-prefix " <tags>"
@@ -217,7 +217,7 @@ in this way, it will be wrapped."
:body-list-checkbox-half-end "</checkbox (half)>"
-
+
; other body lines
:body-line-format "%s"
@@ -257,10 +257,10 @@ in this way, it will be wrapped."
:toc-export t
:toc-section-numbers t
:toc-section-number-format "%s "
- :toc-format "%s\n"
+ :toc-format "%s\n"
:toc-format-with-todo "%s (*)\n"
- :toc-indent-char ?\
- :toc-indent-depth 4
+ :toc-indent-char ?\
+ :toc-indent-depth 4
:body-header-section-numbers 3
:body-section-prefix "\n"
@@ -310,7 +310,7 @@ in this way, it will be wrapped."
:body-section-header-prefix ("= " "== " "=== "
"==== " "===== " "====== ")
- :body-section-header-suffix (" =\n\n" " ==\n\n" " ===\n\n"
+ :body-section-header-suffix (" =\n\n" " ==\n\n" " ===\n\n"
" ====\n\n" " =====\n\n" " ======\n\n")
:body-line-export-preformated t ;; yes/no/maybe???
@@ -390,7 +390,7 @@ in this way, it will be wrapped."
:body-list-format "<t>%s</t>\n"
)
- ("trac-wiki"
+ ("trac-wiki"
:file-suffix ".txt"
:key-binding ?T
@@ -409,7 +409,7 @@ in this way, it will be wrapped."
:body-section-header-prefix (" == " " === " " ==== "
" ===== " )
- :body-section-header-suffix (" ==\n\n" " ===\n\n" " ====\n\n"
+ :body-section-header-suffix (" ==\n\n" " ===\n\n" " ====\n\n"
" =====\n\n" " ======\n\n" " =======\n\n")
:body-line-export-preformated t ;; yes/no/maybe???
@@ -426,7 +426,7 @@ in this way, it will be wrapped."
;; this is ignored! [2010/02/02:rpg]
:body-bullet-list-prefix ("* " "** " "*** " "**** " "***** ")
)
- ("tikiwiki"
+ ("tikiwiki"
:file-suffix ".txt"
:key-binding ?U
@@ -445,7 +445,7 @@ in this way, it will be wrapped."
:body-section-header-prefix ("! " "!! " "!!! " "!!!! "
"!!!!! " "!!!!!! " "!!!!!!! ")
- :body-section-header-suffix (" \n" " \n" " \n"
+ :body-section-header-suffix (" \n" " \n" " \n"
" \n" " \n" " \n")
@@ -498,12 +498,12 @@ the body of an org-set-generic-type definition."
))
(def-org-export-generic-keyword :body-newline-paragraph
- :documentation "Bound either to NIL or to a pattern to be
+ :documentation "Bound either to NIL or to a pattern to be
inserted in the output for every blank line in the input.
The intention is to handle formats where text is flowed, and
newlines are interpreted as significant \(e.g., as indicating
preformatted text\). A common non-nil value for this keyword
-is \"\\n\". Should typically be combined with a value for
+is \"\\n\". Should typically be combined with a value for
:body-line-format that does NOT end with a newline."
:type string)
@@ -515,8 +515,8 @@ is \"\\n\". Should typically be combined with a value for
(def-org-export-generic-keyword :code-format)
(def-org-export-generic-keyword :verbatim-format)
-
-
+
+
(defun org-export-generic-remember-section (type suffix &optional prefix)
(setq org-export-generic-section-type type)
@@ -569,7 +569,7 @@ underlined headlines. The default is 3."
(org-export-add-subtree-options opt-plist rbeg)
opt-plist)))
- helpstart
+ helpstart
(bogus (mapc (lambda (x)
(setq helpstart
(concat helpstart "\["
@@ -611,7 +611,7 @@ underlined headlines. The default is 3."
(unless (setq ass (cadr (assq r2 cmds)))
(error "No command associated with key %c" r1))
- (cdr (assoc
+ (cdr (assoc
(if (equal ass "default") org-generic-export-type ass)
org-generic-alist))))
@@ -732,11 +732,11 @@ underlined headlines. The default is 3."
(format-code (plist-get export-plist :code-format))
(format-verbatim (plist-get export-plist :verbatim-format))
-
+
thetoc toctags have-headings first-heading-pos
table-open table-buffer link-buffer link desc desc0 rpl wrap)
-
+
(let ((inhibit-read-only t))
(org-unmodified
(remove-text-properties (point-min) (point-max)
@@ -841,7 +841,7 @@ underlined headlines. The default is 3."
(org-re "[ \t]+:\\([[:alnum:]_@:]+\\):[ \t]*$")
txt)
(progn
- (setq
+ (setq
toctags
(org-export-generic-header
(match-string 1 txt)
@@ -852,7 +852,7 @@ underlined headlines. The default is 3."
txt)
(setq txt (replace-match "" t t txt)))
(setq toctags tocnotagsstr)))
-
+
(if (string-match quote-re0 txt)
(setq txt (replace-match "" t t txt)))
@@ -871,7 +871,7 @@ underlined headlines. The default is 3."
"")
(format
- (if todo tocformtodo tocformat)
+ (if todo tocformtodo tocformat)
txt)
toctags)
@@ -908,7 +908,7 @@ underlined headlines. The default is 3."
(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)))
@@ -1043,7 +1043,7 @@ underlined headlines. The default is 3."
;;
(org-export-generic-check-section "body" bodytextpre bodytextsuf)
- (setq line
+ (setq line
(org-export-generic-fontify line))
;; XXX: properties? list?
@@ -1208,7 +1208,7 @@ REVERSE means to reverse the list if the plist match is a list
(setq result (concat result line))
(setq len 0)))
(concat result indstr line)))
-
+
(defun org-export-generic-push-links (link-buffer)
"Push out links in the buffer."
(when link-buffer
@@ -1258,13 +1258,13 @@ REVERSE means to reverse the list if the plist match is a list
))
;; same level
((= level old-level)
- (insert
+ (insert
(org-export-generic-format export-plist :body-section-suffix 0 level))
)
)
(insert
(org-export-generic-format export-plist :body-section-prefix 0 level))
-
+
(if (and org-export-with-section-numbers
secnums
(or (not (numberp secnums))
@@ -1365,7 +1365,7 @@ REVERSE means to reverse the list if the plist match is a list
Each element of the list is a list of three elements.
The first element is the character used as a marker for fontification.
The second element is a variable name, set in org-export-generic. That
-variable will be dereferenced to obtain a formatting string to wrap
+variable will be dereferenced to obtain a formatting string to wrap
fontified text with.
The third element decides whether to protect converted text from other
conversions.")
diff --git a/contrib/lisp/org-interactive-query.el b/contrib/lisp/org-interactive-query.el
index 6bf40f8..ab6669b 100644
--- a/contrib/lisp/org-interactive-query.el
+++ b/contrib/lisp/org-interactive-query.el
@@ -6,7 +6,7 @@
;; Version: 1.0
;; Keywords: org, wp
;;
-;; This file is not part of GNU Emacs.
+;; This file is not part of GNU Emacs.
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -31,7 +31,7 @@
;; / add a keyword as a positive selection criterion
;; \ add a keyword as a newgative selection criterion
;; = clear a keyword from the selection string
-;; ;
+;; ;
(require 'org)
@@ -39,7 +39,7 @@
(org-defkey org-agenda-mode-map "/" 'org-agenda-query-and-cmd)
(org-defkey org-agenda-mode-map ";" 'org-agenda-query-or-cmd)
(org-defkey org-agenda-mode-map "\\" 'org-agenda-query-not-cmd)
-
+
;;; Agenda interactive query manipulation
(defcustom org-agenda-query-selection-single-key t
@@ -283,7 +283,7 @@ keyword string."
(defun org-agenda-query-generic-cmd (op)
"Activate query manipulation with OP as initial operator."
(let ((q (org-agenda-query-selection org-agenda-query-string op
- org-tag-alist
+ org-tag-alist
(org-agenda-query-global-todo-keys))))
(when q
(setq org-agenda-query-string q)
diff --git a/contrib/lisp/org-invoice.el b/contrib/lisp/org-invoice.el
index ca25711..c951d4e 100644
--- a/contrib/lisp/org-invoice.el
+++ b/contrib/lisp/org-invoice.el
@@ -181,7 +181,7 @@ looks like tree2, where the level is 2."
(when (or (not min) (< level min)) (setq min level))
(when (> level max) (setq max level))))
(cons (or min 0) max)))
-
+
(defun org-invoice-collapse-list (ls)
"Reorganize the given list by dates."
(let ((min-max (org-invoice-level-min-max ls)) new)
@@ -214,7 +214,7 @@ looks like tree2, where the level is 2."
(+ price (cdr (assoc 'price (car bucket)))))
(nconc bucket (list info))))))
(nreverse new)))
-
+
(defun org-invoice-info-to-table (info)
"Create a single org table row from the given info alist."
(let ((title (cdr (assoc 'title info)))
@@ -223,19 +223,19 @@ looks like tree2, where the level is 2."
(price (cdr (assoc 'price info)))
(with-price (plist-get org-invoice-table-params :price)))
(unless total
- (setq
+ (setq
org-invoice-total-time (+ org-invoice-total-time work)
org-invoice-total-price (+ org-invoice-total-price price)))
(setq total (and total (org-minutes-to-hh:mm-string total)))
(setq work (and work (org-minutes-to-hh:mm-string work)))
- (insert-before-markers
+ (insert-before-markers
(concat "|" title
(cond
(total (concat "|" total))
(work (concat "|" work)))
(and with-price price (concat "|" (format "%.2f" price)))
"|" "\n"))))
-
+
(defun org-invoice-list-to-table (ls)
"Convert a list of heading info to an org table"
(let ((with-price (plist-get org-invoice-table-params :price))
@@ -243,7 +243,7 @@ looks like tree2, where the level is 2."
(with-header (plist-get org-invoice-table-params :headers))
(org-invoice-total-time 0)
(org-invoice-total-price 0))
- (insert-before-markers
+ (insert-before-markers
(concat "| Task / Date | Time" (and with-price "| Price") "|\n"))
(dolist (info ls)
(insert-before-markers "|-\n")
@@ -268,9 +268,9 @@ heading that begins the invoice data, usually using the
(org-clock-sum)
(run-hook-with-args 'org-invoice-start-hook)
(cons org-invoice-current-invoice
- (org-invoice-collapse-list
+ (org-invoice-collapse-list
(org-map-entries 'org-invoice-heading-info t 'tree 'archive))))))
-
+
(defun org-dblock-write:invoice (params)
"Function called by OrgMode to write the invoice dblock. To
create an invoice dblock you can use the `org-invoice-report'
@@ -397,5 +397,5 @@ I place mine under a third-level heading like so:
(if report (goto-char report)
(org-create-dblock (list :name "invoice")))
(org-update-dblock)))
-
+
(provide 'org-invoice)
diff --git a/contrib/lisp/org-mac-iCal.el b/contrib/lisp/org-mac-iCal.el
index 5d29d4b..0fdc95f 100644
--- a/contrib/lisp/org-mac-iCal.el
+++ b/contrib/lisp/org-mac-iCal.el
@@ -101,7 +101,7 @@ the the Emacs diary"
(shell-command "sw_vers" (current-buffer))
(when (re-search-backward "10\\.[567]" nil t)
(omi-concat-leopard-ics all-calendars)))
-
+
;; move all caldav ics files to the same place as local ics files
(mapc
(lambda (x)
@@ -111,7 +111,7 @@ the the Emacs diary"
(concat "~/Library/Calendars/" y)))
(directory-files x nil ".*ics$")))
caldav-folders)
-
+
;; check calendar has contents and import
(setq import-calendars (directory-files "~/Library/Calendars" 1 ".*ics$"))
(mapc
@@ -181,7 +181,7 @@ date range so that Emacs calendar view doesn't grind to a halt"
(* (/ org-mac-iCal-range 2) 30))
(delete-region startEntry endEntry)))
(goto-char (point-max))))
- (while
+ (while
(re-search-forward "^END:VEVENT$" nil t)
(delete-blank-lines))
(goto-line 1)
diff --git a/contrib/lisp/org-mac-link-grabber.el b/contrib/lisp/org-mac-link-grabber.el
index 1644fc4..b422bfb 100644
--- a/contrib/lisp/org-mac-link-grabber.el
+++ b/contrib/lisp/org-mac-link-grabber.el
@@ -2,7 +2,7 @@
;;; application and insert them as links into org-mode documents
;;
;; Copyright (c) 2010-2012 Free Software Foundation, Inc.
-;;
+;;
;; Author: Anthony Lander <anthony.lander@gmail.com>
;; Version: 1.0.1
;; Keywords: org, mac, hyperlink
@@ -52,7 +52,7 @@
;; add (require 'org-mac-link-grabber) to your .emacs, and optionally
;; bind a key to activate the link grabber menu, like this:
;;
-;; (add-hook 'org-mode-hook (lambda ()
+;; (add-hook 'org-mode-hook (lambda ()
;; (define-key org-mode-map (kbd "C-c g") 'omlg-grab-link)))
;;
;;
@@ -161,7 +161,7 @@ applications and inserting them in org documents"
(when (and active (eq input key))
(call-interactively grab-function))))
descriptors)))
-
+
(defalias 'omgl-grab-link 'omlg-grab-link
"Renamed, and this alias will be obsolete next revision.")
@@ -344,7 +344,7 @@ applications and inserting them in org documents"
" return theUrl & \"::split::\" & theName & \"\n\"\n"
"end tell\n"))))
(car (split-string result "[\r\n]+" t))))
-
+
(defun org-mac-safari-get-frontmost-url ()
(interactive)
(message "Applescript: Getting Safari url...")
@@ -361,7 +361,7 @@ applications and inserting them in org documents"
(defun org-mac-safari-insert-frontmost-url ()
(interactive)
(insert (org-mac-safari-get-frontmost-url)))
-
+
;;
;;
diff --git a/contrib/lisp/org-mairix.el b/contrib/lisp/org-mairix.el
index 11e4e70..367a866 100644
--- a/contrib/lisp/org-mairix.el
+++ b/contrib/lisp/org-mairix.el
@@ -207,7 +207,7 @@ applications in order to mimic `org-store-link'. Used by
:group 'org-mairix)
(defcustom org-mairix-mutt-display-command
- "xterm -title 'mairix search: %search%' -e 'unset COLUMNS; mutt -f
+ "xterm -title 'mairix search: %search%' -e 'unset COLUMNS; mutt -f
~/mail/mairix -e \"push <display-message>\"' &"
"Command to execute to display mairix search results via mutt within
an xterm.
@@ -244,7 +244,7 @@ along with general mairix configuration."
:group 'org-mairix-gnus
:type 'string)
-(defcustom org-mairix-gnus-select-display-group-function
+(defcustom org-mairix-gnus-select-display-group-function
'org-mairix-gnus-select-display-group-function-gg
"Hook to call to select the group that contains the matching articles.
We should not need this, it is owed to a problem of gnus that people were
@@ -285,7 +285,7 @@ to do that -- so you're likely to see zombies floating around.
If you can improve this, please do!"
(if (not (equal (substring search 0 2) "m:" ))
- (error "org-mairix-gnus-display-results: display of search other than
+ (error "org-mairix-gnus-display-results: display of search other than
message-id not implemented yet"))
(setq message-id (substring search 2 nil))
(require 'gnus)
diff --git a/contrib/lisp/org-mime.el b/contrib/lisp/org-mime.el
index 72bdd68..b9d9f37 100644
--- a/contrib/lisp/org-mime.el
+++ b/contrib/lisp/org-mime.el
@@ -43,13 +43,13 @@
;;
;; you might want to bind this to a key with something like the
;; following message-mode binding
-;;
+;;
;; (add-hook 'message-mode-hook
;; (lambda ()
;; (local-set-key "\C-c\M-o" 'org-mime-htmlize)))
;;
;; and the following org-mode binding
-;;
+;;
;; (add-hook 'org-mode-hook
;; (lambda ()
;; (local-set-key "\C-c\M-o" 'org-mime-org-buffer-htmlize)))
diff --git a/contrib/lisp/org-mtags.el b/contrib/lisp/org-mtags.el
index ad8d7ef..8ea5fa9 100644
--- a/contrib/lisp/org-mtags.el
+++ b/contrib/lisp/org-mtags.el
@@ -255,4 +255,3 @@ with string values. In addition, it reutnrs the following properties:
(provide 'org-mtags)
;;; org-mtags.el ends here
-
diff --git a/contrib/lisp/org-notmuch.el b/contrib/lisp/org-notmuch.el
index 11e06b8..25f6ab6 100644
--- a/contrib/lisp/org-notmuch.el
+++ b/contrib/lisp/org-notmuch.el
@@ -32,7 +32,7 @@
;; Links have one the following form
;; notmuch:<search terms>
-;; notmuch-search:<search terms>.
+;; notmuch-search:<search terms>.
;; The first form open the queries in notmuch-show mode, whereas the
;; second link open it in notmuch-search mode. Note that queries are
@@ -61,13 +61,13 @@
(setq link (org-make-link "notmuch:" "id:" message-id))
(org-add-link-props :link link :description desc)
link)))
-
+
(defun org-notmuch-open (path)
"Follow a notmuch message link specified by PATH."
(org-notmuch-follow-link path))
(defun org-notmuch-follow-link (search)
- "Follow a notmuch link to SEARCH.
+ "Follow a notmuch link to SEARCH.
Can link to more than one message, if so all matching messages are shown."
(require 'notmuch)
@@ -82,10 +82,10 @@ Can link to more than one message, if so all matching messages are shown."
(defun org-notmuch-search-store-link ()
"Store a link to a notmuch search or message."
(when (eq major-mode 'notmuch-search-mode)
- (let ((link (org-make-link "notmuch-search:"
+ (let ((link (org-make-link "notmuch-search:"
(org-link-escape notmuch-search-query-string)))
(desc (concat "Notmuch search: " notmuch-search-query-string)))
- (org-store-link-props :type "notmuch-search"
+ (org-store-link-props :type "notmuch-search"
:link link
:description desc)
link)))
diff --git a/contrib/lisp/org-panel.el b/contrib/lisp/org-panel.el
index a6117ce..3ffdfaf 100644
--- a/contrib/lisp/org-panel.el
+++ b/contrib/lisp/org-panel.el
@@ -639,5 +639,3 @@ button changes the binding of the arrow keys."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; org-panel.el ends here
-
-
diff --git a/contrib/lisp/org-registry.el b/contrib/lisp/org-registry.el
index 3b43ce2..c1a1c6c 100644
--- a/contrib/lisp/org-registry.el
+++ b/contrib/lisp/org-registry.el
@@ -145,15 +145,15 @@ buffer."
(defun org-registry-assoc-all (link &optional registry)
"Return all associated entries of LINK in the registry."
- (org-registry-find-all
+ (org-registry-find-all
(lambda (entry) (string= link (car entry)))
registry))
(defun org-registry-find-all (test &optional registry)
"Return all entries satisfying `test' in the registry."
- (delq nil
- (mapcar
- (lambda (x) (and (funcall test x) x))
+ (delq nil
+ (mapcar
+ (lambda (x) (and (funcall test x) x))
(or registry org-registry-alist))))
;;;###autoload
diff --git a/contrib/lisp/org-screen.el b/contrib/lisp/org-screen.el
index ba74267..a517b4b 100644
--- a/contrib/lisp/org-screen.el
+++ b/contrib/lisp/org-screen.el
@@ -40,7 +40,7 @@
;; associated with that task, go to the end of your item and type:
;;
;; M-x org-screen
-;;
+;;
;; This will prompt you for a name of a screen session. Type in a
;; name and it will insert a link into your org file at your current
;; location.
@@ -79,10 +79,10 @@ is copied from ansi-term method."
;; Pick the name of the new buffer.
(let ((term-ansi-buffer-name
- (generate-new-buffer-name
+ (generate-new-buffer-name
(org-screen-buffer-name name))))
(setq term-ansi-buffer-name
- (term-ansi-make-term
+ (term-ansi-make-term
term-ansi-buffer-name org-screen-program-name nil arg name))
(set-buffer term-ansi-buffer-name)
(term-mode)
@@ -104,5 +104,5 @@ is copied from ansi-term method."
'("screen" . "elisp:(org-screen-goto \"%s\")"))
(setq org-link-abbrev-alist
'(("screen" . "elisp:(org-screen-goto \"%s\")"))))
-
+
(provide 'org-screen)
diff --git a/contrib/lisp/org-static-mathjax.el b/contrib/lisp/org-static-mathjax.el
index 6a9f0ec..29f2cfe 100644
--- a/contrib/lisp/org-static-mathjax.el
+++ b/contrib/lisp/org-static-mathjax.el
@@ -86,7 +86,7 @@ org-static-mathjax-options: The string given with #+STATICMATHJAX: in the f
(set 'org-static-mathjax-mathjax-path
(car (read-from-string
(substring mathjax-options (match-end 0))))))))
- (add-hook 'after-save-hook
+ (add-hook 'after-save-hook
'org-static-mathjax-process
nil t)))))
@@ -117,20 +117,20 @@ org-static-mathjax-options: The string given with #+STATICMATHJAX: in the f
(set symbol (eval (car (read-from-string
(substring options (match-end 0))))))))
'(embed-fonts output-file-name))
-
+
; debug
(when org-static-mathjax-debug
(message "output file name, embed-fonts")
(print output-file-name)
(print embed-fonts))
-
+
; open (temporary) input file, copy contents there, replace MathJax path with local installation
(with-temp-buffer
(insert html-code)
(goto-char 1)
(replace-regexp mathjax-oldpath mathjax-newpath)
(write-file input-file-name))
-
+
; prepare argument list for call-process
(let ((call-process-args (list org-static-mathjax-xulrunner-path
nil nil nil
@@ -146,10 +146,10 @@ org-static-mathjax-options: The string given with #+STATICMATHJAX: in the f
(if (not embed-fonts)
(progn
(add-to-list 'call-process-args "--final-mathjax-url" t)
- (add-to-list 'call-process-args
+ (add-to-list 'call-process-args
(file-name-directory org-static-mathjax-mathjax-path)
t)))
-
+
; debug
(when org-static-mathjax-debug
(print call-process-args))
diff --git a/contrib/lisp/org-sudoku.el b/contrib/lisp/org-sudoku.el
index 71bcb76..6977f1f 100644
--- a/contrib/lisp/org-sudoku.el
+++ b/contrib/lisp/org-sudoku.el
@@ -127,7 +127,7 @@ This works by solving the whole game, then inserting only the single field."
(setq game (org-sudoku-solve-game game))
(if game
(progn
- (org-table-put i j (number-to-string
+ (org-table-put i j (number-to-string
(nth 1 (assoc (cons i j) game)))
'align)
(org-table-goto-line i)
@@ -140,7 +140,7 @@ This works by solving the whole game, then inserting only the single field."
"Interpret table at point as sudoku game and read it.
A game structure is returned."
(let (b e g i j game)
-
+
(org-table-goto-line 1)
(org-table-goto-column 1)
(setq b (point))
diff --git a/contrib/lisp/org-toc.el b/contrib/lisp/org-toc.el
index 1c9752b..3f37cb8 100644
--- a/contrib/lisp/org-toc.el
+++ b/contrib/lisp/org-toc.el
@@ -278,7 +278,7 @@ specified, then make `org-toc-recenter' use this value."
;;; Navigation functions:
(defun org-toc-goto (&optional jump cycle)
"From Org TOC buffer, follow the targeted subtree in the Org window.
-If JUMP is non-nil, go to the base buffer.
+If JUMP is non-nil, go to the base buffer.
If JUMP is 'delete, go to the base buffer and delete other windows.
If CYCLE is non-nil, cycle the targeted subtree in the Org window."
(interactive)
@@ -459,15 +459,15 @@ status."
(defun org-toc-help ()
"Display a quick help message in the echo-area for `org-toc-mode'."
(interactive)
- (let ((st-start 0)
+ (let ((st-start 0)
(help-message
"\[space\] show heading \[1-4\] hide headlines below this level
\[TAB\] jump to heading \[f\] toggle follow mode (currently %s)
\[return\] jump and delete others windows \[i\] toggle info mode (currently %s)
\[S-TAB\] cycle subtree (in Org) \[S\] toggle show subtree mode (currently %s)
-\[C-S-TAB\] global cycle (in Org) \[r\] toggle recenter mode (currently %s)
+\[C-S-TAB\] global cycle (in Org) \[r\] toggle recenter mode (currently %s)
\[:\] cycle subtree (in TOC) \[c\] toggle column view (currently %s)
-\[n/p\] next/previous heading \[s\] save TOC configuration
+\[n/p\] next/previous heading \[s\] save TOC configuration
\[q\] quit the TOC \[g\] restore last TOC configuration"))
(while (string-match "\\[[^]]+\\]" help-message st-start)
(add-text-properties (match-beginning 0)
diff --git a/contrib/lisp/org-wikinodes.el b/contrib/lisp/org-wikinodes.el
index a5a5b19..87cc174 100644
--- a/contrib/lisp/org-wikinodes.el
+++ b/contrib/lisp/org-wikinodes.el
@@ -174,7 +174,7 @@ setting of `org-wikinodes-create-targets'."
(message "New Wiki target `%s' created in current buffer"
target))))))
-;;; The target cache
+;;; The target cache
(defvar org-wikinodes-directory-targets-cache nil)
@@ -206,7 +206,7 @@ setting of `org-wikinodes-create-targets'."
(while (re-search-forward re nil t)
(push (org-match-string-no-properties 4) targets))))
(nreverse targets)))
-
+
(defun org-wikinodes-get-links-for-directory (dir)
"Return an alist that connects wiki links to files in directory DIR."
(let ((files (directory-files dir nil "\\`[^.#].*\\.org\\'"))
@@ -328,7 +328,7 @@ with working links."
(setcdr m (cons '(org-wikinodes-activate-links) (cdr m)))
(message
"Failed to add wikinodes to `org-font-lock-extra-keywords'."))))
-
+
(add-hook 'org-font-lock-set-keywords-hook
'org-wikinodes-add-to-font-lock-keywords)
diff --git a/contrib/lisp/org2rem.el b/contrib/lisp/org2rem.el
index 7fa9dd9..d54eff3 100644
--- a/contrib/lisp/org2rem.el
+++ b/contrib/lisp/org2rem.el
@@ -402,7 +402,7 @@ REM %s %s MSG EVENT:%s%s %s%s%%
(insert sexp "\n"))))
;; (princ (org-diary-to-rem-string sexp-buffer))
(kill-buffer sexp-buffer))
-
+
(when org-remind-include-todo
(setq prefix "TODO-")
(goto-char (point-min))
@@ -450,7 +450,7 @@ REM %s %s MSG EVENT:%s%s %s%s%%
(if dos diff-days 0)
(if dos 0 diff-days))
1000)))
-
+
(if (and (numberp org-rem-aw) (> org-rem-aw 0))
(setq remind-aw (+ (or remind-aw 0) org-rem-aw)))
@@ -470,7 +470,7 @@ REM %s %s MSG EVENT:%s%s %s%s%%
(and due (setq due (org-rem-ts-to-remind-date-type due)))
(and start (setq start (org-rem-ts-to-remind-date-type start)))
(and remind-ew (setq remind-ew (org-rem-ts-to-remind-date-type remind-ew)))
-
+
(if (string-match org-bracket-link-regexp hd)
(setq hd (replace-match (if (match-end 3) (match-string 3 hd)
(match-string 1 hd))
diff --git a/contrib/lisp/test-org-export-preproc.el b/contrib/lisp/test-org-export-preproc.el
index b03da70..66c342f 100644
--- a/contrib/lisp/test-org-export-preproc.el
+++ b/contrib/lisp/test-org-export-preproc.el
@@ -36,4 +36,3 @@
(org-pop-to-buffer-same-window "*preproc-temp*")
(point-max)
(insert string))))
-