Fix whitespace issues

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)

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

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.")

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.

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))))

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)

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))

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.

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))

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"

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")

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)
 

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)

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))))