tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Whitespace and indentation cleanup.

This commit is contained in:
Bastien Guerry 2011-02-12 18:53:07 +01:00
parent 7dd425cc5d
commit f0c9e8d672
1 changed files with 30 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
lisp/org.el
View File

@ -1388,9 +1388,9 @@ nil Never use an ID to make a link, instead link using a text search for
(defcustom org-context-in-file-links t (defcustom org-context-in-file-links t
"Non-nil means file links from `org-store-link' contain context. "Non-nil means file links from `org-store-link' contain context.
A search string will be added to the file name with :: as separator and A search string will be added to the file name with :: as separator and
used to find the context when the link is activated by the command used to find the context when the link is activated by the command
`org-open-at-point'. When this option is t, the entire active region `org-open-at-point'. When this option is t, the entire active region
will be placed in the search string of the file link. If set to a will be placed in the search string of the file link. If set to a
positive integer, only the first n lines of context will be stored. positive integer, only the first n lines of context will be stored.
Using a prefix arg to the command \\[org-store-link] (`org-store-link') Using a prefix arg to the command \\[org-store-link] (`org-store-link')
@ -2629,8 +2629,8 @@ See also `org-agenda-jump-prefer-future'."
The default is to do the same as configured in `org-read-date-prefer-future'. The default is to do the same as configured in `org-read-date-prefer-future'.
But you can also set a deviating value here. But you can also set a deviating value here.
This may t or nil, or the symbol `org-read-date-prefer-future'." This may t or nil, or the symbol `org-read-date-prefer-future'."
:group 'org-agenda :group 'org-agenda
:group 'org-time :group 'org-time
:type '(choice :type '(choice
(const :tag "Use org-read-date-prefer-future" (const :tag "Use org-read-date-prefer-future"
org-read-date-prefer-future) org-read-date-prefer-future)
@ -3318,7 +3318,7 @@ lines to the buffer:
(defcustom org-hidden-keywords nil (defcustom org-hidden-keywords nil
"List of symbols corresponding to keywords to be hidden the org buffer. "List of symbols corresponding to keywords to be hidden the org buffer.
For example, a value '(title) for this list will make the document's title For example, a value '(title) for this list will make the document's title
appear in the buffer without the initial #+TITLE: keyword." appear in the buffer without the initial #+TITLE: keyword."
:group 'org-appearance :group 'org-appearance
:type '(set (const :tag "#+AUTHOR" author) :type '(set (const :tag "#+AUTHOR" author)
@ -7554,7 +7554,7 @@ If yes, remember the marker and the distance to BEG."
(interactive) (interactive)
(let ((bstart "^[ \t]*#\\+begin") (let ((bstart "^[ \t]*#\\+begin")
(bend "[ \t]*#\\+end") (bend "[ \t]*#\\+end")
(case-fold-search t) ;; allow #+BEGIN (case-fold-search t) ;; allow #+BEGIN
b_start b_end) b_start b_end)
(if (org-in-regexps-block-p bstart bend) (if (org-in-regexps-block-p bstart bend)
(progn (progn
@ -8553,9 +8553,9 @@ according to FMT (default from `org-email-link-description-format')."
(when (and string (integerp lines) (> lines 0)) (when (and string (integerp lines) (> lines 0))
(let ((slines (org-split-string s "\n"))) (let ((slines (org-split-string s "\n")))
(when (< lines (length slines)) (when (< lines (length slines))
(setq s (mapconcat (setq s (mapconcat
'identity 'identity
(reverse (nthcdr (- (length slines) lines) (reverse (nthcdr (- (length slines) lines)
(reverse slines))) "\n"))))) (reverse slines))) "\n")))))
(mapconcat 'identity (org-split-string s "[ \t]+") " "))) (mapconcat 'identity (org-split-string s "[ \t]+") " ")))
@ -11142,7 +11142,7 @@ statistics everywhere."
(first t) (first t)
(box-re "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)") (box-re "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)")
level ltoggle l1 new ndel level ltoggle l1 new ndel
(cnt-all 0) (cnt-done 0) is-percent kwd (cnt-all 0) (cnt-done 0) is-percent kwd
checkbox-beg ov ovs ove cookie-present) checkbox-beg ov ovs ove cookie-present)
(catch 'exit (catch 'exit
(save-excursion (save-excursion
@ -11187,7 +11187,7 @@ statistics everywhere."
(format "[%d/%d]" cnt-done cnt-all)) (format "[%d/%d]" cnt-done cnt-all))
ndel (- (match-end 0) checkbox-beg)) ndel (- (match-end 0) checkbox-beg))
;; handle overlays when updating cookie from column view ;; handle overlays when updating cookie from column view
(when (setq ov (car (overlays-at checkbox-beg))) (when (setq ov (car (overlays-at checkbox-beg)))
(setq ovs (overlay-start ov) ove (overlay-end ov)) (setq ovs (overlay-start ov) ove (overlay-end ov))
(delete-overlay ov)) (delete-overlay ov))
(goto-char checkbox-beg) (goto-char checkbox-beg)
@ -11496,8 +11496,8 @@ scheduling will use the corresponding date."
(interactive "P") (interactive "P")
(let* ((old-date (org-entry-get nil "DEADLINE")) (let* ((old-date (org-entry-get nil "DEADLINE"))
(repeater (and old-date (repeater (and old-date
(string-match (string-match
"\\([.+]+[0-9]+[dwmy]\\(?:[/ ][-+]?[0-9]+[dwmy]\\)?\\) ?" "\\([.+]+[0-9]+[dwmy]\\(?:[/ ][-+]?[0-9]+[dwmy]\\)?\\) ?"
old-date) old-date)
(match-string 1 old-date)))) (match-string 1 old-date))))
(if remove (if remove
@ -11536,7 +11536,7 @@ scheduling will use the corresponding date."
(interactive "P") (interactive "P")
(let* ((old-date (org-entry-get nil "SCHEDULED")) (let* ((old-date (org-entry-get nil "SCHEDULED"))
(repeater (and old-date (repeater (and old-date
(string-match (string-match
"\\([.+]+[0-9]+[dwmy]\\(?:[/ ][-+]?[0-9]+[dwmy]\\)?\\) ?" "\\([.+]+[0-9]+[dwmy]\\(?:[/ ][-+]?[0-9]+[dwmy]\\)?\\) ?"
old-date) old-date)
(match-string 1 old-date)))) (match-string 1 old-date))))
@ -13518,7 +13518,7 @@ things up because then unnecessary parsing is avoided."
((equal key1 org-closed-string) (setq key "CLOSED")) ((equal key1 org-closed-string) (setq key "CLOSED"))
((equal key1 org-clock-string) (setq key "CLOCK"))) ((equal key1 org-clock-string) (setq key "CLOCK")))
(if (and specific (equal key specific) (not (equal key "CLOCK"))) (if (and specific (equal key specific) (not (equal key "CLOCK")))
(progn (progn
(push (cons key string) props) (push (cons key string) props)
;; no need to search further if match is found ;; no need to search further if match is found
(throw 'match t)) (throw 'match t))
@ -13683,22 +13683,21 @@ However, if LITERAL-NIL is set, return the string value \"nil\" instead."
(move-marker org-entry-property-inherited-from nil) (move-marker org-entry-property-inherited-from nil)
(let (tmp) (let (tmp)
(unless (org-before-first-heading-p) (unless (org-before-first-heading-p)
(save-excursion (save-excursion
(save-restriction (save-restriction
(widen) (widen)
(catch 'ex (catch 'ex
(while t (while t
(when (setq tmp (org-entry-get nil property nil 'literal-nil)) (when (setq tmp (org-entry-get nil property nil 'literal-nil))
(org-back-to-heading t) (org-back-to-heading t)
(move-marker org-entry-property-inherited-from (point)) (move-marker org-entry-property-inherited-from (point))
(throw 'ex tmp)) (throw 'ex tmp))
(or (org-up-heading-safe) (throw 'ex nil))))) (or (org-up-heading-safe) (throw 'ex nil)))))))
)) (setq tmp (or tmp
(setq tmp (or tmp (cdr (assoc property org-file-properties))
(cdr (assoc property org-file-properties)) (cdr (assoc property org-global-properties))
(cdr (assoc property org-global-properties)) (cdr (assoc property org-global-properties-fixed))))
(cdr (assoc property org-global-properties-fixed)))) (if literal-nil tmp (org-not-nil tmp))))
(if literal-nil tmp (org-not-nil tmp))))
(defvar org-property-changed-functions nil (defvar org-property-changed-functions nil
"Hook called when the value of a property has changed. "Hook called when the value of a property has changed.