[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r106772: Fix trailing whitespaces in
|
From: |
Bastien Guerry |
|
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r106772: Fix trailing whitespaces in Org files. |
|
Date: |
Wed, 04 Jan 2012 16:20:49 +0100 |
|
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 106772
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Wed 2012-01-04 16:20:49 +0100
message:
Fix trailing whitespaces in Org files.
modified:
lisp/org/ob-awk.el
lisp/org/ob-gnuplot.el
lisp/org/ob-haskell.el
lisp/org/ob-lilypond.el
lisp/org/ob-lob.el
lisp/org/ob-ocaml.el
lisp/org/ob-picolisp.el
lisp/org/ob-ref.el
lisp/org/ob-ruby.el
lisp/org/ob-sql.el
lisp/org/org-ascii.el
lisp/org/org-capture.el
lisp/org/org-clock.el
lisp/org/org-crypt.el
lisp/org/org-gnus.el
lisp/org/org-id.el
lisp/org/org-irc.el
lisp/org/org-latex.el
lisp/org/org-mks.el
lisp/org/org-mobile.el
lisp/org/org-pcomplete.el
lisp/org/org-publish.el
lisp/org/org-remember.el
lisp/org/org-special-blocks.el
lisp/org/org-src.el
lisp/org/org-table.el
lisp/org/org-taskjuggler.el
=== modified file 'lisp/org/ob-awk.el'
--- a/lisp/org/ob-awk.el 2012-01-04 15:13:14 +0000
+++ b/lisp/org/ob-awk.el 2012-01-04 15:20:49 +0000
@@ -24,9 +24,9 @@
;;; Commentary:
;; Babel's awk can use special header argument:
-;;
+;;
;; - :in-file takes a path to a file of data to be processed by awk
-;;
+;;
;; - :stdin takes an Org-mode data or code block reference, the value
;; of which will be passed to the awk process through STDIN
=== modified file 'lisp/org/ob-gnuplot.el'
--- a/lisp/org/ob-gnuplot.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/ob-gnuplot.el 2012-01-04 15:20:49 +0000
@@ -34,7 +34,7 @@
;;; Requirements:
;; - gnuplot :: http://www.gnuplot.info/
-;;
+;;
;; - gnuplot-mode ::
http://cars9.uchicago.edu/~ravel/software/gnuplot-mode.html
;;; Code:
=== modified file 'lisp/org/ob-haskell.el'
--- a/lisp/org/ob-haskell.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/ob-haskell.el 2012-01-04 15:20:49 +0000
@@ -79,7 +79,7 @@
(cdr (member org-babel-haskell-eoe
(reverse (mapcar #'org-babel-trim raw)))))))
(org-babel-reassemble-table
- (cond
+ (cond
((equal result-type 'output)
(mapconcat #'identity (reverse (cdr results)) "\n"))
((equal result-type 'value)
=== modified file 'lisp/org/ob-lilypond.el'
--- a/lisp/org/ob-lilypond.el 2012-01-04 14:49:41 +0000
+++ b/lisp/org/ob-lilypond.el 2012-01-04 15:20:49 +0000
@@ -114,7 +114,7 @@
body))))
vars)
body))
-
+
(defun org-babel-execute:lilypond (body params)
"This function is called by `org-babel-execute-src-block'.
Depending on whether we are in arrange mode either:
@@ -138,7 +138,7 @@
(defun ly-process-basic (body params)
"Execute a lilypond block in basic mode"
-
+
(let* ((result-params (cdr (assoc :result-params params)))
(out-file (cdr (assoc :file params)))
(cmdline (or (cdr (assoc :cmdline params))
@@ -147,7 +147,7 @@
(with-temp-file in-file
(insert (org-babel-expand-body:generic body params)))
-
+
(org-babel-eval
(concat
(ly-determine-ly-path)
@@ -177,7 +177,7 @@
(ly-temp-file (ly-switch-extension
(buffer-file-name) ".ly")))
(if (file-exists-p ly-tangled-file)
- (progn
+ (progn
(when (file-exists-p ly-temp-file)
(delete-file ly-temp-file))
(rename-file ly-tangled-file
@@ -243,7 +243,7 @@
"Mark the erroneous lines in the lilypond org buffer.
FILE-NAME is full path to lilypond file.
LINE is the erroneous line"
-
+
(switch-to-buffer-other-window
(concat (file-name-nondirectory
(ly-switch-extension file-name ".org"))))
@@ -256,7 +256,7 @@
(set-mark (point))
(goto-char (- (point) (length line))))
(goto-char temp))))
-
+
(defun ly-parse-line-num (&optional buffer)
"Extract error line number."
@@ -284,7 +284,7 @@
"Extract the erroneous line from the tangled .ly file
FILE-NAME is full path to lilypond file.
LINENO is the number of the erroneous line"
-
+
(with-temp-buffer
(insert-file-contents (ly-switch-extension file-name ".ly")
nil nil nil t)
@@ -294,12 +294,12 @@
(forward-line (- lineNo 1))
(buffer-substring (point) (point-at-eol)))
nil)))
-
+
(defun ly-attempt-to-open-pdf (file-name &optional test)
"Attempt to display the generated pdf file
FILE-NAME is full path to lilypond file
If TEST is non-nil, the shell command is returned and is not run"
-
+
(when ly-display-pdf-post-tangle
(let ((pdf-file (ly-switch-extension file-name ".pdf")))
(if (file-exists-p pdf-file)
@@ -340,7 +340,7 @@
(defun ly-determine-pdf-path (&optional test)
"Return correct path to pdf viewer depending on OS
If TEST is non-nil, it contains a simulation of the OS for test purposes"
-
+
(let ((sys-type
(or test system-type)))
(cond ((string= sys-type "darwin")
@@ -352,7 +352,7 @@
(defun ly-determine-midi-path (&optional test)
"Return correct path to midi player depending on OS
If TEST is non-nil, it contains a simulation of the OS for test purposes"
-
+
(let ((sys-type
(or test test system-type)))
(cond ((string= sys-type "darwin")
@@ -360,10 +360,10 @@
((string= sys-type "win32")
ly-win32-midi-path)
(t ly-nix-midi-path))))
-
+
(defun ly-toggle-midi-play ()
"Toggle whether midi will be played following a successful compilation"
-
+
(interactive)
(setq ly-play-midi-post-tangle
(not ly-play-midi-post-tangle))
@@ -373,7 +373,7 @@
(defun ly-toggle-pdf-display ()
"Toggle whether pdf will be displayed following a successful compilation"
-
+
(interactive)
(setq ly-display-pdf-post-tangle
(not ly-display-pdf-post-tangle))
=== modified file 'lisp/org/ob-lob.el'
--- a/lisp/org/ob-lob.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/ob-lob.el 2012-01-04 15:20:49 +0000
@@ -104,7 +104,7 @@
(beginning-of-line 1)
(when (looking-at org-babel-lob-one-liner-regexp)
(append
- (mapcar #'org-babel-clean-text-properties
+ (mapcar #'org-babel-clean-text-properties
(list
(format "%s%s(%s)%s"
(nonempty 3 12)
@@ -115,7 +115,7 @@
(nonempty 9 18)))
(list (length (if (= (length (match-string 12)) 0)
(match-string 2) (match-string 11))))))))))
-
+
(defun org-babel-lob-execute (info)
"Execute the lob call specified by INFO."
(let ((params (org-babel-process-params
=== modified file 'lisp/org/ob-ocaml.el'
--- a/lisp/org/ob-ocaml.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/ob-ocaml.el 2012-01-04 15:20:49 +0000
@@ -98,7 +98,7 @@
(lambda (pair) (format "let %s = %s;;" (car pair)
(org-babel-ocaml-elisp-to-ocaml (cdr pair))))
(mapcar #'cdr (org-babel-get-header params :var))))
-
+
(defun org-babel-ocaml-elisp-to-ocaml (val)
"Return a string of ocaml code which evaluates to VAL."
(if (listp val)
=== modified file 'lisp/org/ob-picolisp.el'
--- a/lisp/org/ob-picolisp.el 2012-01-04 14:49:41 +0000
+++ b/lisp/org/ob-picolisp.el 2012-01-04 15:20:49 +0000
@@ -44,10 +44,10 @@
;; PicoLisp _is_ an object-oriented database with a Prolog-based query
;; language implemented in PicoLisp (Pilog). Database objects are
-;; first-class members of the language.
+;; first-class members of the language.
;; PicoLisp is an extremely productive framework for the development
-;; of interactive web-applications (on top of a database).
+;; of interactive web-applications (on top of a database).
;;; Requirements:
@@ -95,7 +95,7 @@
(defun org-babel-execute:picolisp (body params)
"Execute a block of Picolisp code with org-babel. This function is
- called by `org-babel-execute-src-block'"
+ called by `org-babel-execute-src-block'"
(message "executing Picolisp source code block")
(let* (
;; name of the session or "none"
@@ -118,7 +118,7 @@
((member "value" result-params)
(format "(out \"/dev/null\" %s)" full-body))
(t full-body))))
-
+
((lambda (result)
(if (or (member "verbatim" result-params)
(member "scalar" result-params)
=== modified file 'lisp/org/ob-ref.el'
--- a/lisp/org/ob-ref.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/ob-ref.el 2012-01-04 15:20:49 +0000
@@ -60,7 +60,7 @@
(declare-function org-narrow-to-subtree "org" ())
(declare-function org-id-find-id-in-file "org-id" (id file &optional markerp))
(declare-function org-show-context "org" (&optional key))
-(declare-function org-pop-to-buffer-same-window
+(declare-function org-pop-to-buffer-same-window
"org-compat" (&optional buffer-or-name norecord label))
(defvar org-babel-ref-split-regexp
=== modified file 'lisp/org/ob-ruby.el'
--- a/lisp/org/ob-ruby.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/ob-ruby.el 2012-01-04 15:20:49 +0000
@@ -28,10 +28,10 @@
;;; Requirements:
;; - ruby and irb executables :: http://www.ruby-lang.org/
-;;
+;;
;; - ruby-mode :: Can be installed through ELPA, or from
;; http://github.com/eschulte/rinari/raw/master/util/ruby-mode.el
-;;
+;;
;; - inf-ruby mode :: Can be installed through ELPA, or from
;; http://github.com/eschulte/rinari/raw/master/util/inf-ruby.el
=== modified file 'lisp/org/ob-sql.el'
--- a/lisp/org/ob-sql.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/ob-sql.el 2012-01-04 15:20:49 +0000
@@ -39,7 +39,7 @@
;; - add more useful header arguments (user, passwd, database, etc...)
;; - support for more engines (currently only supports mysql)
;; - what's a reasonable way to drop table data into SQL?
-;;
+;;
;;; Code:
(require 'ob)
=== modified file 'lisp/org/org-ascii.el'
--- a/lisp/org/org-ascii.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-ascii.el 2012-01-04 15:20:49 +0000
@@ -108,7 +108,7 @@
(defun org-export-as-utf8 (&rest args)
"Like `org-export-as-ascii', use encoding for special symbols."
(interactive)
- (org-export-as-encoding 'org-export-as-ascii
+ (org-export-as-encoding 'org-export-as-ascii
(org-called-interactively-p 'any)
'utf8 args))
=== modified file 'lisp/org/org-capture.el'
--- a/lisp/org/org-capture.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-capture.el 2012-01-04 15:20:49 +0000
@@ -56,7 +56,7 @@
(date &optional keep-restriction))
(declare-function org-table-get-specials "org-table" ())
(declare-function org-table-goto-line "org-table" (N))
-(declare-function org-pop-to-buffer-same-window "org-compat"
+(declare-function org-pop-to-buffer-same-window "org-compat"
(&optional buffer-or-name norecord label))
(defvar org-remember-default-headline)
=== modified file 'lisp/org/org-clock.el'
--- a/lisp/org/org-clock.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-clock.el 2012-01-04 15:20:49 +0000
@@ -2000,7 +2000,7 @@
(encode-time 0 0 0 (+ d n) m y))))
((and wp (string-match "w\\|W" wp) mw (> (length wp) 0))
(require 'cal-iso)
- (setq date (calendar-gregorian-from-absolute
+ (setq date (calendar-gregorian-from-absolute
(calendar-absolute-from-iso (list (+ mw n) 1 y))))
(setq ins (format-time-string
"%G-W%V"
@@ -2017,7 +2017,7 @@
(setq mw 5
y (- y 1))
())
- (setq date (calendar-gregorian-from-absolute
+ (setq date (calendar-gregorian-from-absolute
(calendar-absolute-from-iso (org-quarter-to-date (+ mw
n) y))))
(setq ins (format-time-string
(concatenate 'string (number-to-string y) "-Q"
(number-to-string (+ mw n)))
@@ -2642,4 +2642,3 @@
(provide 'org-clock)
;;; org-clock.el ends here
-
=== modified file 'lisp/org/org-crypt.el'
--- a/lisp/org/org-crypt.el 2012-01-04 14:49:41 +0000
+++ b/lisp/org/org-crypt.el 2012-01-04 15:20:49 +0000
@@ -76,21 +76,21 @@
(defgroup org-crypt nil
"Org Crypt"
- :tag "Org Crypt"
+ :tag "Org Crypt"
:group 'org)
(defcustom org-crypt-tag-matcher "crypt"
"The tag matcher used to find headings whose contents should be encrypted.
See the \"Match syntax\" section of the org manual for more details."
- :type 'string
+ :type 'string
:group 'org-crypt)
(defcustom org-crypt-key ""
"The default key to use when encrypting the contents of a heading.
This setting can also be overridden in the CRYPTKEY property."
- :type 'string
+ :type 'string
:group 'org-crypt)
(defcustom org-crypt-disable-auto-save 'ask
=== modified file 'lisp/org/org-gnus.el'
--- a/lisp/org/org-gnus.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-gnus.el 2012-01-04 15:20:49 +0000
@@ -175,7 +175,7 @@
(setq to (or to (gnus-fetch-original-field "To"))
newsgroups (gnus-fetch-original-field "Newsgroups")
x-no-archive (gnus-fetch-original-field "x-no-archive")))
- (org-store-link-props :type "gnus" :from from :subject subject
+ (org-store-link-props :type "gnus" :from from :subject subject
:message-id message-id :group group :to to)
(when date
(org-add-link-props :date date :date-timestamp date-ts
=== modified file 'lisp/org/org-id.el'
--- a/lisp/org/org-id.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-id.el 2012-01-04 15:20:49 +0000
@@ -73,7 +73,7 @@
(require 'org)
(declare-function message-make-fqdn "message" ())
-(declare-function org-pop-to-buffer-same-window
+(declare-function org-pop-to-buffer-same-window
"org-compat" (&optional buffer-or-name norecord label))
;;; Customization
@@ -641,7 +641,3 @@
(provide 'org-id)
;;; org-id.el ends here
-
-
-
-
=== modified file 'lisp/org/org-irc.el'
--- a/lisp/org/org-irc.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-irc.el 2012-01-04 15:20:49 +0000
@@ -59,7 +59,7 @@
(declare-function erc-server-buffer "erc" ())
(declare-function erc-get-server-nickname-list "erc" ())
(declare-function erc-cmd-JOIN "erc" (channel &optional key))
-(declare-function org-pop-to-buffer-same-window
+(declare-function org-pop-to-buffer-same-window
"org-compat" (&optional buffer-or-name norecord label))
(defvar org-irc-client 'erc
=== modified file 'lisp/org/org-latex.el'
--- a/lisp/org/org-latex.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-latex.el 2012-01-04 15:20:49 +0000
@@ -302,8 +302,8 @@
(defcustom org-export-latex-href-format "\\href{%s}{%s}"
"A printf format string to be applied to href links.
-The format must contain either two %s instances or just one.
-If it contains two %s instances, the first will be filled with
+The format must contain either two %s instances or just one.
+If it contains two %s instances, the first will be filled with
the link, the second with the link description. If it contains
only one, the %s will be filled with the link."
:group 'org-export-latex
@@ -2226,7 +2226,7 @@
;; a LaTeX issue, but we here implement a work-around anyway.
(setq path (org-export-latex-protect-amp path)
desc (org-export-latex-protect-amp desc)))
- (insert
+ (insert
(if (string-match "%s.*%s" org-export-latex-href-format)
(format org-export-latex-href-format path desc)
(format org-export-latex-href-format path))))
=== modified file 'lisp/org/org-mks.el'
--- a/lisp/org/org-mks.el 2012-01-04 14:49:41 +0000
+++ b/lisp/org/org-mks.el 2012-01-04 15:20:49 +0000
@@ -24,7 +24,7 @@
;;; Commentary:
-;;
+;;
;;; Code:
=== modified file 'lisp/org/org-mobile.el'
--- a/lisp/org/org-mobile.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-mobile.el 2012-01-04 15:20:49 +0000
@@ -37,7 +37,7 @@
(eval-when-compile (require 'cl))
-(declare-function org-pop-to-buffer-same-window
+(declare-function org-pop-to-buffer-same-window
"org-compat" (&optional buffer-or-name norecord label))
(defgroup org-mobile nil
@@ -272,7 +272,7 @@
(t nil)))
org-mobile-files)))
(files (delete
- nil
+ nil
(mapcar (lambda (f)
(unless (and (not (string=
org-mobile-files-exclude-regexp ""))
(string-match
org-mobile-files-exclude-regexp f))
@@ -499,7 +499,7 @@
org-mobile-directory))
(save-excursion
(setq buf (find-file file))
- (when (and (= (point-min) (point-max)))
+ (when (and (= (point-min) (point-max)))
(insert "\n")
(save-buffer)
(when org-mobile-use-encryption
@@ -1099,4 +1099,3 @@
(provide 'org-mobile)
;;; org-mobile.el ends here
-
=== modified file 'lisp/org/org-pcomplete.el'
--- a/lisp/org/org-pcomplete.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-pcomplete.el 2012-01-04 15:20:49 +0000
@@ -146,7 +146,7 @@
(org-split-string (org-get-current-options) "\n"))
org-additional-option-like-keywords)))))
(substring pcomplete-stub 2)))
-
+
(defvar org-startup-options)
(defun pcomplete/org-mode/file-option/startup ()
"Complete arguments for the #+STARTUP file option."
=== modified file 'lisp/org/org-publish.el'
--- a/lisp/org/org-publish.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-publish.el 2012-01-04 15:20:49 +0000
@@ -368,7 +368,7 @@
(declare-function org-publish-delete-dups "org-publish" (list))
(declare-function find-lisp-find-files "find-lisp" (directory regexp))
-(declare-function org-pop-to-buffer-same-window
+(declare-function org-pop-to-buffer-same-window
"org-compat" (&optional buffer-or-name norecord label))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1127,7 +1127,7 @@
(let ((ctime (org-publish-cache-ctime-of-src filename)))
(or (< pstamp ctime)
(when included-files-ctime
- (not (null (delq nil (mapcar (lambda(ct) (< ctime ct))
+ (not (null (delq nil (mapcar (lambda(ct) (< ctime ct))
included-files-ctime))))))))))
(defun org-publish-cache-set-file-property (filename property value &optional
project-name)
=== modified file 'lisp/org/org-remember.el'
--- a/lisp/org/org-remember.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-remember.el 2012-01-04 15:20:49 +0000
@@ -39,7 +39,7 @@
(declare-function remember "remember" (&optional initial))
(declare-function remember-buffer-desc "remember" ())
(declare-function remember-finalize "remember" ())
-(declare-function org-pop-to-buffer-same-window
+(declare-function org-pop-to-buffer-same-window
"org-compat" (&optional buffer-or-name norecord label))
(defvar remember-save-after-remembering)
@@ -1152,4 +1152,3 @@
(provide 'org-remember)
;;; org-remember.el ends here
-
=== modified file 'lisp/org/org-special-blocks.el'
--- a/lisp/org/org-special-blocks.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-special-blocks.el 2012-01-04 15:20:49 +0000
@@ -51,7 +51,7 @@
(defun org-special-blocks-make-special-cookies ()
"Adds special cookies when #+begin_foo and #+end_foo tokens are
seen. This is run after a few special cases are taken care of."
- (when (or (eq org-export-current-backend 'html)
+ (when (or (eq org-export-current-backend 'html)
(eq org-export-current-backend 'latex))
(goto-char (point-min))
(while (re-search-forward "^[ \t]*#\\+\\(begin\\|end\\)_\\(.*\\)$" nil t)
=== modified file 'lisp/org/org-src.el'
--- a/lisp/org/org-src.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-src.el 2012-01-04 15:20:49 +0000
@@ -41,7 +41,7 @@
(declare-function org-at-table.el-p "org" ())
(declare-function org-get-indentation "org" (&optional line))
(declare-function org-switch-to-buffer-other-window "org" (&rest args))
-(declare-function org-pop-to-buffer-same-window
+(declare-function org-pop-to-buffer-same-window
"org-compat" (&optional buffer-or-name norecord label))
(defcustom org-edit-src-region-extra nil
=== modified file 'lisp/org/org-table.el'
--- a/lisp/org/org-table.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-table.el 2012-01-04 15:20:49 +0000
@@ -2436,7 +2436,7 @@
(modes (copy-sequence org-calc-default-modes))
(numbers nil) ; was a variable, now fixed default
(keep-empty nil)
- n form form0 formrpl formrg bw fmt x ev orig c lispp literal
+ n form form0 formrpl formrg bw fmt x ev orig c lispp literal
duration duration-output-format)
;; Parse the format string. Since we have a lot of modes, this is
;; a lot of work. However, I think calc still uses most of the time.
@@ -2461,7 +2461,7 @@
duration-output-format nil
fmt (replace-match "" t t fmt)))
(if (string-match "t" fmt)
- (setq duration t
+ (setq duration t
duration-output-format org-table-duration-custom-format
numbers t
fmt (replace-match "" t t fmt)))
@@ -2529,7 +2529,7 @@
;; Insert complex ranges
(while (and (string-match org-table-range-regexp form)
(> (length (match-string 0 form)) 1))
- (setq formrg (save-match-data
+ (setq formrg (save-match-data
(org-table-get-range (match-string 0 form) nil n0)))
(setq formrpl
(save-match-data
@@ -4759,4 +4759,3 @@
(provide 'org-table)
;;; org-table.el ends here
-
=== modified file 'lisp/org/org-taskjuggler.el'
--- a/lisp/org/org-taskjuggler.el 2012-01-04 14:14:29 +0000
+++ b/lisp/org/org-taskjuggler.el 2012-01-04 15:20:49 +0000
@@ -355,8 +355,8 @@
(let* ((props (org-entry-properties))
(components (org-heading-components))
(level (nth 1 components))
- (headline
- (replace-regexp-in-string
+ (headline
+ (replace-regexp-in-string
"\"" "\\\"" (nth 4 components) t t)) ; quote double quotes in
headlines
(parent-ordered (org-taskjuggler-parent-is-ordered-p)))
(push (cons "level" level) props)
@@ -406,10 +406,10 @@
(successor (car (cdr tasks))))
(cond
;; if a task has no successors it is a leaf
- ((null successor)
+ ((null successor)
(push (cons (cons "leaf-node" t) task) new-list))
;; if the successor has a lower level than task it is a leaf
- ((<= (cdr (assoc "level" successor)) (cdr (assoc "level" task)))
+ ((<= (cdr (assoc "level" successor)) (cdr (assoc "level" task)))
(push (cons (cons "leaf-node" t) task) new-list))
;; otherwise examine the rest of the tasks
(t (push task new-list))))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r106772: Fix trailing whitespaces in Org files.,
Bastien Guerry <=