Commit 14e1337f authored by Bastien Guerry's avatar Bastien Guerry

Fix trailing whitespaces in Org files.

parent 0b41d90b
...@@ -24,9 +24,9 @@ ...@@ -24,9 +24,9 @@
;;; Commentary: ;;; Commentary:
;; Babel's awk can use special header argument: ;; Babel's awk can use special header argument:
;; ;;
;; - :in-file takes a path to a file of data to be processed by awk ;; - :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 ;; - :stdin takes an Org-mode data or code block reference, the value
;; of which will be passed to the awk process through STDIN ;; of which will be passed to the awk process through STDIN
......
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
;;; Requirements: ;;; Requirements:
;; - gnuplot :: http://www.gnuplot.info/ ;; - gnuplot :: http://www.gnuplot.info/
;; ;;
;; - gnuplot-mode :: http://cars9.uchicago.edu/~ravel/software/gnuplot-mode.html ;; - gnuplot-mode :: http://cars9.uchicago.edu/~ravel/software/gnuplot-mode.html
;;; Code: ;;; Code:
......
...@@ -79,7 +79,7 @@ ...@@ -79,7 +79,7 @@
(cdr (member org-babel-haskell-eoe (cdr (member org-babel-haskell-eoe
(reverse (mapcar #'org-babel-trim raw))))))) (reverse (mapcar #'org-babel-trim raw)))))))
(org-babel-reassemble-table (org-babel-reassemble-table
(cond (cond
((equal result-type 'output) ((equal result-type 'output)
(mapconcat #'identity (reverse (cdr results)) "\n")) (mapconcat #'identity (reverse (cdr results)) "\n"))
((equal result-type 'value) ((equal result-type 'value)
......
...@@ -114,7 +114,7 @@ blocks") ...@@ -114,7 +114,7 @@ blocks")
body)))) body))))
vars) vars)
body)) body))
(defun org-babel-execute:lilypond (body params) (defun org-babel-execute:lilypond (body params)
"This function is called by `org-babel-execute-src-block'. "This function is called by `org-babel-execute-src-block'.
Depending on whether we are in arrange mode either: Depending on whether we are in arrange mode either:
...@@ -138,7 +138,7 @@ specific arguments to =org-babel-tangle=" ...@@ -138,7 +138,7 @@ specific arguments to =org-babel-tangle="
(defun ly-process-basic (body params) (defun ly-process-basic (body params)
"Execute a lilypond block in basic mode" "Execute a lilypond block in basic mode"
(let* ((result-params (cdr (assoc :result-params params))) (let* ((result-params (cdr (assoc :result-params params)))
(out-file (cdr (assoc :file params))) (out-file (cdr (assoc :file params)))
(cmdline (or (cdr (assoc :cmdline params)) (cmdline (or (cdr (assoc :cmdline params))
...@@ -147,7 +147,7 @@ specific arguments to =org-babel-tangle=" ...@@ -147,7 +147,7 @@ specific arguments to =org-babel-tangle="
(with-temp-file in-file (with-temp-file in-file
(insert (org-babel-expand-body:generic body params))) (insert (org-babel-expand-body:generic body params)))
(org-babel-eval (org-babel-eval
(concat (concat
(ly-determine-ly-path) (ly-determine-ly-path)
...@@ -177,7 +177,7 @@ If error in compilation, attempt to mark the error in lilypond org file" ...@@ -177,7 +177,7 @@ If error in compilation, attempt to mark the error in lilypond org file"
(ly-temp-file (ly-switch-extension (ly-temp-file (ly-switch-extension
(buffer-file-name) ".ly"))) (buffer-file-name) ".ly")))
(if (file-exists-p ly-tangled-file) (if (file-exists-p ly-tangled-file)
(progn (progn
(when (file-exists-p ly-temp-file) (when (file-exists-p ly-temp-file)
(delete-file ly-temp-file)) (delete-file ly-temp-file))
(rename-file ly-tangled-file (rename-file ly-tangled-file
...@@ -243,7 +243,7 @@ FILE-NAME is full path to lilypond file" ...@@ -243,7 +243,7 @@ FILE-NAME is full path to lilypond file"
"Mark the erroneous lines in the lilypond org buffer. "Mark the erroneous lines in the lilypond org buffer.
FILE-NAME is full path to lilypond file. FILE-NAME is full path to lilypond file.
LINE is the erroneous line" LINE is the erroneous line"
(switch-to-buffer-other-window (switch-to-buffer-other-window
(concat (file-name-nondirectory (concat (file-name-nondirectory
(ly-switch-extension file-name ".org")))) (ly-switch-extension file-name ".org"))))
...@@ -256,7 +256,7 @@ LINE is the erroneous line" ...@@ -256,7 +256,7 @@ LINE is the erroneous line"
(set-mark (point)) (set-mark (point))
(goto-char (- (point) (length line)))) (goto-char (- (point) (length line))))
(goto-char temp)))) (goto-char temp))))
(defun ly-parse-line-num (&optional buffer) (defun ly-parse-line-num (&optional buffer)
"Extract error line number." "Extract error line number."
...@@ -284,7 +284,7 @@ LINE is the erroneous line" ...@@ -284,7 +284,7 @@ LINE is the erroneous line"
"Extract the erroneous line from the tangled .ly file "Extract the erroneous line from the tangled .ly file
FILE-NAME is full path to lilypond file. FILE-NAME is full path to lilypond file.
LINENO is the number of the erroneous line" LINENO is the number of the erroneous line"
(with-temp-buffer (with-temp-buffer
(insert-file-contents (ly-switch-extension file-name ".ly") (insert-file-contents (ly-switch-extension file-name ".ly")
nil nil nil t) nil nil nil t)
...@@ -294,12 +294,12 @@ LINENO is the number of the erroneous line" ...@@ -294,12 +294,12 @@ LINENO is the number of the erroneous line"
(forward-line (- lineNo 1)) (forward-line (- lineNo 1))
(buffer-substring (point) (point-at-eol))) (buffer-substring (point) (point-at-eol)))
nil))) nil)))
(defun ly-attempt-to-open-pdf (file-name &optional test) (defun ly-attempt-to-open-pdf (file-name &optional test)
"Attempt to display the generated pdf file "Attempt to display the generated pdf file
FILE-NAME is full path to lilypond file FILE-NAME is full path to lilypond file
If TEST is non-nil, the shell command is returned and is not run" If TEST is non-nil, the shell command is returned and is not run"
(when ly-display-pdf-post-tangle (when ly-display-pdf-post-tangle
(let ((pdf-file (ly-switch-extension file-name ".pdf"))) (let ((pdf-file (ly-switch-extension file-name ".pdf")))
(if (file-exists-p pdf-file) (if (file-exists-p pdf-file)
...@@ -340,7 +340,7 @@ If TEST is non-nil, it contains a simulation of the OS for test purposes" ...@@ -340,7 +340,7 @@ If TEST is non-nil, it contains a simulation of the OS for test purposes"
(defun ly-determine-pdf-path (&optional test) (defun ly-determine-pdf-path (&optional test)
"Return correct path to pdf viewer depending on OS "Return correct path to pdf viewer depending on OS
If TEST is non-nil, it contains a simulation of the OS for test purposes" If TEST is non-nil, it contains a simulation of the OS for test purposes"
(let ((sys-type (let ((sys-type
(or test system-type))) (or test system-type)))
(cond ((string= sys-type "darwin") (cond ((string= sys-type "darwin")
...@@ -352,7 +352,7 @@ If TEST is non-nil, it contains a simulation of the OS for test purposes" ...@@ -352,7 +352,7 @@ If TEST is non-nil, it contains a simulation of the OS for test purposes"
(defun ly-determine-midi-path (&optional test) (defun ly-determine-midi-path (&optional test)
"Return correct path to midi player depending on OS "Return correct path to midi player depending on OS
If TEST is non-nil, it contains a simulation of the OS for test purposes" If TEST is non-nil, it contains a simulation of the OS for test purposes"
(let ((sys-type (let ((sys-type
(or test test system-type))) (or test test system-type)))
(cond ((string= sys-type "darwin") (cond ((string= sys-type "darwin")
...@@ -360,10 +360,10 @@ If TEST is non-nil, it contains a simulation of the OS for test purposes" ...@@ -360,10 +360,10 @@ If TEST is non-nil, it contains a simulation of the OS for test purposes"
((string= sys-type "win32") ((string= sys-type "win32")
ly-win32-midi-path) ly-win32-midi-path)
(t ly-nix-midi-path)))) (t ly-nix-midi-path))))
(defun ly-toggle-midi-play () (defun ly-toggle-midi-play ()
"Toggle whether midi will be played following a successful compilation" "Toggle whether midi will be played following a successful compilation"
(interactive) (interactive)
(setq ly-play-midi-post-tangle (setq ly-play-midi-post-tangle
(not ly-play-midi-post-tangle)) (not ly-play-midi-post-tangle))
...@@ -373,7 +373,7 @@ If TEST is non-nil, it contains a simulation of the OS for test purposes" ...@@ -373,7 +373,7 @@ If TEST is non-nil, it contains a simulation of the OS for test purposes"
(defun ly-toggle-pdf-display () (defun ly-toggle-pdf-display ()
"Toggle whether pdf will be displayed following a successful compilation" "Toggle whether pdf will be displayed following a successful compilation"
(interactive) (interactive)
(setq ly-display-pdf-post-tangle (setq ly-display-pdf-post-tangle
(not ly-display-pdf-post-tangle)) (not ly-display-pdf-post-tangle))
......
...@@ -104,7 +104,7 @@ if so then run the appropriate source block from the Library." ...@@ -104,7 +104,7 @@ if so then run the appropriate source block from the Library."
(beginning-of-line 1) (beginning-of-line 1)
(when (looking-at org-babel-lob-one-liner-regexp) (when (looking-at org-babel-lob-one-liner-regexp)
(append (append
(mapcar #'org-babel-clean-text-properties (mapcar #'org-babel-clean-text-properties
(list (list
(format "%s%s(%s)%s" (format "%s%s(%s)%s"
(nonempty 3 12) (nonempty 3 12)
...@@ -115,7 +115,7 @@ if so then run the appropriate source block from the Library." ...@@ -115,7 +115,7 @@ if so then run the appropriate source block from the Library."
(nonempty 9 18))) (nonempty 9 18)))
(list (length (if (= (length (match-string 12)) 0) (list (length (if (= (length (match-string 12)) 0)
(match-string 2) (match-string 11)))))))))) (match-string 2) (match-string 11))))))))))
(defun org-babel-lob-execute (info) (defun org-babel-lob-execute (info)
"Execute the lob call specified by INFO." "Execute the lob call specified by INFO."
(let ((params (org-babel-process-params (let ((params (org-babel-process-params
......
...@@ -98,7 +98,7 @@ ...@@ -98,7 +98,7 @@
(lambda (pair) (format "let %s = %s;;" (car pair) (lambda (pair) (format "let %s = %s;;" (car pair)
(org-babel-ocaml-elisp-to-ocaml (cdr pair)))) (org-babel-ocaml-elisp-to-ocaml (cdr pair))))
(mapcar #'cdr (org-babel-get-header params :var)))) (mapcar #'cdr (org-babel-get-header params :var))))
(defun org-babel-ocaml-elisp-to-ocaml (val) (defun org-babel-ocaml-elisp-to-ocaml (val)
"Return a string of ocaml code which evaluates to VAL." "Return a string of ocaml code which evaluates to VAL."
(if (listp val) (if (listp val)
......
...@@ -44,10 +44,10 @@ ...@@ -44,10 +44,10 @@
;; PicoLisp _is_ an object-oriented database with a Prolog-based query ;; PicoLisp _is_ an object-oriented database with a Prolog-based query
;; language implemented in PicoLisp (Pilog). Database objects are ;; 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 ;; 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: ;;; Requirements:
...@@ -95,7 +95,7 @@ ...@@ -95,7 +95,7 @@
(defun org-babel-execute:picolisp (body params) (defun org-babel-execute:picolisp (body params)
"Execute a block of Picolisp code with org-babel. This function is "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") (message "executing Picolisp source code block")
(let* ( (let* (
;; name of the session or "none" ;; name of the session or "none"
...@@ -118,7 +118,7 @@ ...@@ -118,7 +118,7 @@
((member "value" result-params) ((member "value" result-params)
(format "(out \"/dev/null\" %s)" full-body)) (format "(out \"/dev/null\" %s)" full-body))
(t full-body)))) (t full-body))))
((lambda (result) ((lambda (result)
(if (or (member "verbatim" result-params) (if (or (member "verbatim" result-params)
(member "scalar" result-params) (member "scalar" result-params)
......
...@@ -60,7 +60,7 @@ ...@@ -60,7 +60,7 @@
(declare-function org-narrow-to-subtree "org" ()) (declare-function org-narrow-to-subtree "org" ())
(declare-function org-id-find-id-in-file "org-id" (id file &optional markerp)) (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-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)) "org-compat" (&optional buffer-or-name norecord label))
(defvar org-babel-ref-split-regexp (defvar org-babel-ref-split-regexp
......
...@@ -28,10 +28,10 @@ ...@@ -28,10 +28,10 @@
;;; Requirements: ;;; Requirements:
;; - ruby and irb executables :: http://www.ruby-lang.org/ ;; - ruby and irb executables :: http://www.ruby-lang.org/
;; ;;
;; - ruby-mode :: Can be installed through ELPA, or from ;; - ruby-mode :: Can be installed through ELPA, or from
;; http://github.com/eschulte/rinari/raw/master/util/ruby-mode.el ;; http://github.com/eschulte/rinari/raw/master/util/ruby-mode.el
;; ;;
;; - inf-ruby mode :: Can be installed through ELPA, or from ;; - inf-ruby mode :: Can be installed through ELPA, or from
;; http://github.com/eschulte/rinari/raw/master/util/inf-ruby.el ;; http://github.com/eschulte/rinari/raw/master/util/inf-ruby.el
......
...@@ -39,7 +39,7 @@ ...@@ -39,7 +39,7 @@
;; - add more useful header arguments (user, passwd, database, etc...) ;; - add more useful header arguments (user, passwd, database, etc...)
;; - support for more engines (currently only supports mysql) ;; - support for more engines (currently only supports mysql)
;; - what's a reasonable way to drop table data into SQL? ;; - what's a reasonable way to drop table data into SQL?
;; ;;
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
......
...@@ -108,7 +108,7 @@ utf8 Use all UTF-8 characters") ...@@ -108,7 +108,7 @@ utf8 Use all UTF-8 characters")
(defun org-export-as-utf8 (&rest args) (defun org-export-as-utf8 (&rest args)
"Like `org-export-as-ascii', use encoding for special symbols." "Like `org-export-as-ascii', use encoding for special symbols."
(interactive) (interactive)
(org-export-as-encoding 'org-export-as-ascii (org-export-as-encoding 'org-export-as-ascii
(org-called-interactively-p 'any) (org-called-interactively-p 'any)
'utf8 args)) 'utf8 args))
......
...@@ -56,7 +56,7 @@ ...@@ -56,7 +56,7 @@
(date &optional keep-restriction)) (date &optional keep-restriction))
(declare-function org-table-get-specials "org-table" ()) (declare-function org-table-get-specials "org-table" ())
(declare-function org-table-goto-line "org-table" (N)) (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)) (&optional buffer-or-name norecord label))
(defvar org-remember-default-headline) (defvar org-remember-default-headline)
......
...@@ -2000,7 +2000,7 @@ the currently selected interval size." ...@@ -2000,7 +2000,7 @@ the currently selected interval size."
(encode-time 0 0 0 (+ d n) m y)))) (encode-time 0 0 0 (+ d n) m y))))
((and wp (string-match "w\\|W" wp) mw (> (length wp) 0)) ((and wp (string-match "w\\|W" wp) mw (> (length wp) 0))
(require 'cal-iso) (require 'cal-iso)
(setq date (calendar-gregorian-from-absolute (setq date (calendar-gregorian-from-absolute
(calendar-absolute-from-iso (list (+ mw n) 1 y)))) (calendar-absolute-from-iso (list (+ mw n) 1 y))))
(setq ins (format-time-string (setq ins (format-time-string
"%G-W%V" "%G-W%V"
...@@ -2017,7 +2017,7 @@ the currently selected interval size." ...@@ -2017,7 +2017,7 @@ the currently selected interval size."
(setq mw 5 (setq mw 5
y (- y 1)) 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)))) (calendar-absolute-from-iso (org-quarter-to-date (+ mw n) y))))
(setq ins (format-time-string (setq ins (format-time-string
(concatenate 'string (number-to-string y) "-Q" (number-to-string (+ mw n))) (concatenate 'string (number-to-string y) "-Q" (number-to-string (+ mw n)))
...@@ -2642,4 +2642,3 @@ The details of what will be saved are regulated by the variable ...@@ -2642,4 +2642,3 @@ The details of what will be saved are regulated by the variable
(provide 'org-clock) (provide 'org-clock)
;;; org-clock.el ends here ;;; org-clock.el ends here
...@@ -76,21 +76,21 @@ ...@@ -76,21 +76,21 @@
(defgroup org-crypt nil (defgroup org-crypt nil
"Org Crypt" "Org Crypt"
:tag "Org Crypt" :tag "Org Crypt"
:group 'org) :group 'org)
(defcustom org-crypt-tag-matcher "crypt" (defcustom org-crypt-tag-matcher "crypt"
"The tag matcher used to find headings whose contents should be encrypted. "The tag matcher used to find headings whose contents should be encrypted.
See the \"Match syntax\" section of the org manual for more details." See the \"Match syntax\" section of the org manual for more details."
:type 'string :type 'string
:group 'org-crypt) :group 'org-crypt)
(defcustom org-crypt-key "" (defcustom org-crypt-key ""
"The default key to use when encrypting the contents of a heading. "The default key to use when encrypting the contents of a heading.
This setting can also be overridden in the CRYPTKEY property." This setting can also be overridden in the CRYPTKEY property."
:type 'string :type 'string
:group 'org-crypt) :group 'org-crypt)
(defcustom org-crypt-disable-auto-save 'ask (defcustom org-crypt-disable-auto-save 'ask
......
...@@ -175,7 +175,7 @@ If `org-store-link' was called with a prefix arg the meaning of ...@@ -175,7 +175,7 @@ If `org-store-link' was called with a prefix arg the meaning of
(setq to (or to (gnus-fetch-original-field "To")) (setq to (or to (gnus-fetch-original-field "To"))
newsgroups (gnus-fetch-original-field "Newsgroups") newsgroups (gnus-fetch-original-field "Newsgroups")
x-no-archive (gnus-fetch-original-field "x-no-archive"))) 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) :message-id message-id :group group :to to)
(when date (when date
(org-add-link-props :date date :date-timestamp date-ts (org-add-link-props :date date :date-timestamp date-ts
......
...@@ -73,7 +73,7 @@ ...@@ -73,7 +73,7 @@
(require 'org) (require 'org)
(declare-function message-make-fqdn "message" ()) (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)) "org-compat" (&optional buffer-or-name norecord label))
;;; Customization ;;; Customization
...@@ -641,7 +641,3 @@ optional argument MARKERP, return the position as a new marker." ...@@ -641,7 +641,3 @@ optional argument MARKERP, return the position as a new marker."
(provide 'org-id) (provide 'org-id)
;;; org-id.el ends here ;;; org-id.el ends here
...@@ -59,7 +59,7 @@ ...@@ -59,7 +59,7 @@
(declare-function erc-server-buffer "erc" ()) (declare-function erc-server-buffer "erc" ())
(declare-function erc-get-server-nickname-list "erc" ()) (declare-function erc-get-server-nickname-list "erc" ())
(declare-function erc-cmd-JOIN "erc" (channel &optional key)) (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)) "org-compat" (&optional buffer-or-name norecord label))
(defvar org-irc-client 'erc (defvar org-irc-client 'erc
......
...@@ -302,8 +302,8 @@ markup defined, the first one in the association list will be used." ...@@ -302,8 +302,8 @@ markup defined, the first one in the association list will be used."
(defcustom org-export-latex-href-format "\\href{%s}{%s}" (defcustom org-export-latex-href-format "\\href{%s}{%s}"
"A printf format string to be applied to href links. "A printf format string to be applied to href links.
The format must contain either two %s instances or just one. The format must contain either two %s instances or just one.
If it contains two %s instances, the first will be filled with If it contains two %s instances, the first will be filled with
the link, the second with the link description. If it contains the link, the second with the link description. If it contains
only one, the %s will be filled with the link." only one, the %s will be filled with the link."
:group 'org-export-latex :group 'org-export-latex
...@@ -2226,7 +2226,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER." ...@@ -2226,7 +2226,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
;; a LaTeX issue, but we here implement a work-around anyway. ;; a LaTeX issue, but we here implement a work-around anyway.
(setq path (org-export-latex-protect-amp path) (setq path (org-export-latex-protect-amp path)
desc (org-export-latex-protect-amp desc))) desc (org-export-latex-protect-amp desc)))
(insert (insert
(if (string-match "%s.*%s" org-export-latex-href-format) (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 desc)
(format org-export-latex-href-format path)))) (format org-export-latex-href-format path))))
......
...@@ -24,7 +24,7 @@ ...@@ -24,7 +24,7 @@
;;; Commentary: ;;; Commentary:
;; ;;
;;; Code: ;;; Code:
......
...@@ -37,7 +37,7 @@ ...@@ -37,7 +37,7 @@
(eval-when-compile (require 'cl)) (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)) "org-compat" (&optional buffer-or-name norecord label))
(defgroup org-mobile nil (defgroup org-mobile nil
...@@ -272,7 +272,7 @@ Also exclude files matching `org-mobile-files-exclude-regexp'." ...@@ -272,7 +272,7 @@ Also exclude files matching `org-mobile-files-exclude-regexp'."
(t nil))) (t nil)))
org-mobile-files))) org-mobile-files)))
(files (delete (files (delete
nil nil
(mapcar (lambda (f) (mapcar (lambda (f)
(unless (and (not (string= org-mobile-files-exclude-regexp "")) (unless (and (not (string= org-mobile-files-exclude-regexp ""))
(string-match org-mobile-files-exclude-regexp f)) (string-match org-mobile-files-exclude-regexp f))
...@@ -499,7 +499,7 @@ agenda view showing the flagged items." ...@@ -499,7 +499,7 @@ agenda view showing the flagged items."
org-mobile-directory)) org-mobile-directory))
(save-excursion (save-excursion
(setq buf (find-file file)) (setq buf (find-file file))
(when (and (= (point-min) (point-max))) (when (and (= (point-min) (point-max)))
(insert "\n") (insert "\n")
(save-buffer) (save-buffer)
(when org-mobile-use-encryption (when org-mobile-use-encryption
...@@ -1099,4 +1099,3 @@ A and B must be strings or nil." ...@@ -1099,4 +1099,3 @@ A and B must be strings or nil."
(provide 'org-mobile) (provide 'org-mobile)
;;; org-mobile.el ends here ;;; org-mobile.el ends here
...@@ -146,7 +146,7 @@ When completing for #+STARTUP, for example, this function returns ...@@ -146,7 +146,7 @@ When completing for #+STARTUP, for example, this function returns
(org-split-string (org-get-current-options) "\n")) (org-split-string (org-get-current-options) "\n"))
org-additional-option-like-keywords))))) org-additional-option-like-keywords)))))
(substring pcomplete-stub 2))) (substring pcomplete-stub 2)))
(defvar org-startup-options)