mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-27 07:37:25 +00:00
Code

org-mobile.el: Whitespace cleanup.

Browse Source
This commit is contained in:
Bastien Guerry 2012-03-20 16:25:39 +01:00
parent c73f32c14a
commit d1fd77819e
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-mobile.el
View File

@ -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'."
(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."
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."
(provide 'org-mobile) (provide 'org-mobile)
;;; org-mobile.el ends here ;;; org-mobile.el ends here