aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/org
diff options
context:
space:
mode:
authorJoakim Verona2011-12-28 11:34:15 +0100
committerJoakim Verona2011-12-28 11:34:15 +0100
commit2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f (patch)
tree034e65ef002631d0aba8fc1a41e9984fc557e630 /lisp/org
parentbb29f044aa967831cd664c54eba0de0c701436ce (diff)
parentd23ab8e8726ecb7e3554644857b4a58e5f7408f1 (diff)
downloademacs-2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f.tar.gz
emacs-2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f.zip
upstream
Diffstat (limited to 'lisp/org')
-rw-r--r--lisp/org/ChangeLog17
-rw-r--r--lisp/org/ob-ref.el2
-rw-r--r--lisp/org/ob.el4
-rw-r--r--lisp/org/org-agenda.el4
-rw-r--r--lisp/org/org-clock.el4
-rw-r--r--lisp/org/org-list.el2
-rw-r--r--lisp/org/org-protocol.el8
-rw-r--r--lisp/org/org-publish.el6
-rw-r--r--lisp/org/org-taskjuggler.el2
-rw-r--r--lisp/org/org.el6
10 files changed, 30 insertions, 25 deletions
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 1c8a3e72956..6f835c7bfa4 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,8 @@
12011-12-06 Juanma Barranquero <lekktu@gmail.com>
2
3 * ob.el (org-babel-expand-body:generic, org-babel-number-p):
4 * ob-ref.el (org-babel-ref-parse): Fix typos.
5
12011-11-24 Juanma Barranquero <lekktu@gmail.com> 62011-11-24 Juanma Barranquero <lekktu@gmail.com>
2 7
3 * ob.el (org-babel-execute-src-block): Fix typo. 8 * ob.el (org-babel-execute-src-block): Fix typo.
@@ -278,7 +283,7 @@
278 283
279 * org-archive.el (org-archive-subtree): While it might be possible 284 * org-archive.el (org-archive-subtree): While it might be possible
280 to archive an headline of a temporary buffer (i.e. not visiting a 285 to archive an headline of a temporary buffer (i.e. not visiting a
281 file), it wouldn't be really sensical. 286 file), it wouldn't be really sensible.
282 287
2832011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 2882011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
284 289
@@ -4008,7 +4013,7 @@
4008 * org-list.el (org-list-blocks): New variable. 4013 * org-list.el (org-list-blocks): New variable.
4009 (org-list-context): New function. 4014 (org-list-context): New function.
4010 (org-list-full-item-re): New variable. 4015 (org-list-full-item-re): New variable.
4011 (org-list-struct-assoc-at-point): Use new varible. 4016 (org-list-struct-assoc-at-point): Use new variable.
4012 (org-list-struct): Rewrite of function. Now, list data is 4017 (org-list-struct): Rewrite of function. Now, list data is
4013 collected by looking at the list line after line. It reads the 4018 collected by looking at the list line after line. It reads the
4014 whole list each time because reading only a subtree was not enough 4019 whole list each time because reading only a subtree was not enough
@@ -7119,7 +7124,7 @@
71192010-11-11 Dan Davison <davison@stats.ox.ac.uk> 71242010-11-11 Dan Davison <davison@stats.ox.ac.uk>
7120 7125
7121 * ob.el (org-babel-get-src-block-info): Form info list correctly 7126 * ob.el (org-babel-get-src-block-info): Form info list correctly
7122 when parenthesised arguments are missing. 7127 when parenthesized arguments are missing.
7123 7128
71242010-11-11 Dan Davison <davison@stats.ox.ac.uk> 71292010-11-11 Dan Davison <davison@stats.ox.ac.uk>
7125 7130
@@ -8139,7 +8144,7 @@
81392010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> 81442010-11-11 Nicolas Goaziou <n.goaziou@gmail.com>
8140 8145
8141 * org-list.el (org-insert-item-internal): New function to handle 8146 * org-list.el (org-insert-item-internal): New function to handle
8142 positionning and contents of an item being inserted at a specific 8147 positioning and contents of an item being inserted at a specific
8143 pos. It is not possible anymore to split a term in a description 8148 pos. It is not possible anymore to split a term in a description
8144 list or a checkbox when inserting a new item. 8149 list or a checkbox when inserting a new item.
8145 8150
@@ -9758,7 +9763,7 @@
9758 9763
97592010-07-19 Bastien Guerry <bzg@altern.org> 97642010-07-19 Bastien Guerry <bzg@altern.org>
9760 9765
9761 * org-timer.el (org-timer-set-timer): Fix bug about cancelling 9766 * org-timer.el (org-timer-set-timer): Fix bug about canceling
9762 timers. 9767 timers.
9763 9768
97642010-07-19 David Maus <dmaus@ictsoc.de> 97692010-07-19 David Maus <dmaus@ictsoc.de>
@@ -12582,7 +12587,7 @@
12582 buffer and at the position of the given clock. However, changes 12587 buffer and at the position of the given clock. However, changes
12583 to the current clock are local and have no effect on the user's 12588 to the current clock are local and have no effect on the user's
12584 active clock. This allows, for example, far any clock to be 12589 active clock. This allows, for example, far any clock to be
12585 cancelled without cancelling the active clock. 12590 canceled without canceling the active clock.
12586 (org-clock-clock-in): New inline function that switches the active 12591 (org-clock-clock-in): New inline function that switches the active
12587 clock to the given clock. If either the argument RESUME, or the 12592 clock to the given clock. If either the argument RESUME, or the
12588 global `org-clock-in-resume', are non-nil, it will resume a clock 12593 global `org-clock-in-resume', are non-nil, it will resume a clock
diff --git a/lisp/org/ob-ref.el b/lisp/org/ob-ref.el
index d0a2c14bee9..1e14021a364 100644
--- a/lisp/org/ob-ref.el
+++ b/lisp/org/ob-ref.el
@@ -69,7 +69,7 @@
69 "Parse a variable ASSIGNMENT in a header argument. 69 "Parse a variable ASSIGNMENT in a header argument.
70If the right hand side of the assignment has a literal value 70If the right hand side of the assignment has a literal value
71return that value, otherwise interpret as a reference to an 71return that value, otherwise interpret as a reference to an
72external resource and find it's value using 72external resource and find its value using
73`org-babel-ref-resolve'. Return a list with two elements. The 73`org-babel-ref-resolve'. Return a list with two elements. The
74first element of the list will be the name of the variable, and 74first element of the list will be the name of the variable, and
75the second will be an emacs-lisp representation of the value of 75the second will be an emacs-lisp representation of the value of
diff --git a/lisp/org/ob.el b/lisp/org/ob.el
index f34d1fbda9e..8bba4672169 100644
--- a/lisp/org/ob.el
+++ b/lisp/org/ob.el
@@ -464,7 +464,7 @@ block."
464 464
465(defun org-babel-expand-body:generic (body params &optional var-lines) 465(defun org-babel-expand-body:generic (body params &optional var-lines)
466 "Expand BODY with PARAMS. 466 "Expand BODY with PARAMS.
467Expand a block of code with org-babel according to it's header 467Expand a block of code with org-babel according to its header
468arguments. This generic implementation of body expansion is 468arguments. This generic implementation of body expansion is
469called for languages which have not defined their own specific 469called for languages which have not defined their own specific
470org-babel-expand-body:lang function." 470org-babel-expand-body:lang function."
@@ -2045,7 +2045,7 @@ appropriate."
2045 cell)) 2045 cell))
2046 2046
2047(defun org-babel-number-p (string) 2047(defun org-babel-number-p (string)
2048 "If STRING represents a number return it's value." 2048 "If STRING represents a number return its value."
2049 (if (and (string-match "^-?[0-9]*\\.?[0-9]*$" string) 2049 (if (and (string-match "^-?[0-9]*\\.?[0-9]*$" string)
2050 (= (length (substring string (match-beginning 0) 2050 (= (length (substring string (match-beginning 0)
2051 (match-end 0))) 2051 (match-end 0)))
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 2f4617f5146..a54f3c4c3d3 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -8331,7 +8331,7 @@ tag and (if present) the flagging note."
8331 (org-agenda-remove-flag hdmarker) 8331 (org-agenda-remove-flag hdmarker)
8332 (let ((win (get-buffer-window "*Flagging Note*"))) 8332 (let ((win (get-buffer-window "*Flagging Note*")))
8333 (and win (delete-window win))) 8333 (and win (delete-window win)))
8334 (message "Entry unflaged")) 8334 (message "Entry unflagged"))
8335 (setq note (org-entry-get hdmarker "THEFLAGGINGNOTE")) 8335 (setq note (org-entry-get hdmarker "THEFLAGGINGNOTE"))
8336 (unless note 8336 (unless note
8337 (error "No flagging note")) 8337 (error "No flagging note"))
@@ -8354,7 +8354,7 @@ tag and (if present) the flagging note."
8354 (org-entry-delete nil "THEFLAGGINGNOTE") 8354 (org-entry-delete nil "THEFLAGGINGNOTE")
8355 (setq newhead (org-get-heading))) 8355 (setq newhead (org-get-heading)))
8356 (org-agenda-change-all-lines newhead marker) 8356 (org-agenda-change-all-lines newhead marker)
8357 (message "Entry unflaged"))) 8357 (message "Entry unflagged")))
8358 8358
8359(defun org-agenda-get-any-marker (&optional pos) 8359(defun org-agenda-get-any-marker (&optional pos)
8360 (or (get-text-property (or pos (point-at-bol)) 'org-hd-marker) 8360 (or (get-text-property (or pos (point-at-bol)) 'org-hd-marker)
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el
index 6d82d4529b6..09b646d40ba 100644
--- a/lisp/org/org-clock.el
+++ b/lisp/org/org-clock.el
@@ -328,7 +328,7 @@ to add an effort property.")
328 "Hook run when stopping the current clock.") 328 "Hook run when stopping the current clock.")
329 329
330(defvar org-clock-cancel-hook nil 330(defvar org-clock-cancel-hook nil
331 "Hook run when cancelling the current clock.") 331 "Hook run when canceling the current clock.")
332(defvar org-clock-goto-hook nil 332(defvar org-clock-goto-hook nil
333 "Hook run when selecting the currently clocked-in entry.") 333 "Hook run when selecting the currently clocked-in entry.")
334(defvar org-clock-has-been-used nil 334(defvar org-clock-has-been-used nil
@@ -346,7 +346,7 @@ to add an effort property.")
346(defvar org-clock-start-time "") 346(defvar org-clock-start-time "")
347 347
348(defvar org-clock-leftover-time nil 348(defvar org-clock-leftover-time nil
349 "If non-nil, user cancelled a clock; this is when leftover time started.") 349 "If non-nil, user canceled a clock; this is when leftover time started.")
350 350
351(defvar org-clock-effort "" 351(defvar org-clock-effort ""
352 "Effort estimate of the currently clocking task.") 352 "Effort estimate of the currently clocking task.")
diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el
index a86c145a9ee..72fc71854e2 100644
--- a/lisp/org/org-list.el
+++ b/lisp/org/org-list.el
@@ -68,7 +68,7 @@
68 68
69;; Computing a list structure can be a costly operation on huge lists 69;; Computing a list structure can be a costly operation on huge lists
70;; (a few thousand lines long). Thus, code should follow the rule : 70;; (a few thousand lines long). Thus, code should follow the rule :
71;; "collect once, use many". As a corollary, it is usally a bad idea 71;; "collect once, use many". As a corollary, it is usually a bad idea
72;; to use directly an interactive function inside the code, as those, 72;; to use directly an interactive function inside the code, as those,
73;; being independent entities, read the whole list structure another 73;; being independent entities, read the whole list structure another
74;; time. 74;; time.
diff --git a/lisp/org/org-protocol.el b/lisp/org/org-protocol.el
index 655123cafa9..bbb93b07fc9 100644
--- a/lisp/org/org-protocol.el
+++ b/lisp/org/org-protocol.el
@@ -145,8 +145,8 @@
145(defgroup org-protocol nil 145(defgroup org-protocol nil
146 "Intercept calls from emacsclient to trigger custom actions. 146 "Intercept calls from emacsclient to trigger custom actions.
147 147
148This is done by advising `server-visit-files' to scann the list of filenames 148This is done by advising `server-visit-files' to scan the list of filenames
149for `org-protocol-the-protocol' and sub-procols defined in 149for `org-protocol-the-protocol' and sub-protocols defined in
150`org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'." 150`org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'."
151 :version "22.1" 151 :version "22.1"
152 :group 'convenience 152 :group 'convenience
@@ -546,8 +546,8 @@ as filename."
546 (when (string-match proto fname) 546 (when (string-match proto fname)
547 (let* ((func (plist-get (cdr prolist) :function)) 547 (let* ((func (plist-get (cdr prolist) :function))
548 (greedy (plist-get (cdr prolist) :greedy)) 548 (greedy (plist-get (cdr prolist) :greedy))
549 (splitted (split-string fname proto)) 549 (split (split-string fname proto))
550 (result (if greedy restoffiles (cadr splitted)))) 550 (result (if greedy restoffiles (cadr split))))
551 (when (plist-get (cdr prolist) :kill-client) 551 (when (plist-get (cdr prolist) :kill-client)
552 (message "Greedy org-protocol handler. Killing client.") 552 (message "Greedy org-protocol handler. Killing client.")
553 (server-edit)) 553 (server-edit))
diff --git a/lisp/org/org-publish.el b/lisp/org/org-publish.el
index 0c924cd9f07..7a0d7b56e22 100644
--- a/lisp/org/org-publish.el
+++ b/lisp/org/org-publish.el
@@ -278,12 +278,12 @@ in the sitemap."
278 :type 'string) 278 :type 'string)
279 279
280(defcustom org-publish-sitemap-file-entry-format "%t" 280(defcustom org-publish-sitemap-file-entry-format "%t"
281 "How a sitemap file entry is formated. 281 "How a sitemap file entry is formatted.
282You could use brackets to delimit on what part the link will be. 282You could use brackets to delimit on what part the link will be.
283 283
284%t is the title. 284%t is the title.
285%a is the author. 285%a is the author.
286%d is the date formated using `org-publish-sitemap-date-format'." 286%d is the date formatted using `org-publish-sitemap-date-format'."
287 :group 'org-publish 287 :group 'org-publish
288 :type 'string) 288 :type 'string)
289 289
@@ -715,7 +715,7 @@ If :auto-sitemap is set, publish the sitemap too.
715If :makeindex is set, also produce a file theindex.org." 715If :makeindex is set, also produce a file theindex.org."
716 (mapc 716 (mapc
717 (lambda (project) 717 (lambda (project)
718 ;; Each project uses it's own cache file: 718 ;; Each project uses its own cache file:
719 (org-publish-initialize-cache (car project)) 719 (org-publish-initialize-cache (car project))
720 (let* 720 (let*
721 ((project-plist (cdr project)) 721 ((project-plist (cdr project))
diff --git a/lisp/org/org-taskjuggler.el b/lisp/org/org-taskjuggler.el
index 1fb3114bf3f..45b16aecf12 100644
--- a/lisp/org/org-taskjuggler.el
+++ b/lisp/org/org-taskjuggler.el
@@ -571,7 +571,7 @@ with separator \"\n\"."
571 (and filtered-items (mapconcat 'identity filtered-items "\n")))) 571 (and filtered-items (mapconcat 'identity filtered-items "\n"))))
572 572
573(defun org-taskjuggler-get-attributes (item attributes) 573(defun org-taskjuggler-get-attributes (item attributes)
574 "Return all attribute as a single formated string. ITEM is an 574 "Return all attributes as a single formatted string. ITEM is an
575alist representing either a resource or a task. ATTRIBUTES is a 575alist representing either a resource or a task. ATTRIBUTES is a
576list of symbols. Only entries from ITEM are considered that are 576list of symbols. Only entries from ITEM are considered that are
577listed in ATTRIBUTES." 577listed in ATTRIBUTES."
diff --git a/lisp/org/org.el b/lisp/org/org.el
index afd4ea6b4c3..8aca74e69cc 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -2580,7 +2580,7 @@ To turn this on on a per-file basis, insert anywhere in the file:
2580(defcustom org-time-stamp-custom-formats 2580(defcustom org-time-stamp-custom-formats
2581 '("<%m/%d/%y %a>" . "<%m/%d/%y %a %H:%M>") ; american 2581 '("<%m/%d/%y %a>" . "<%m/%d/%y %a %H:%M>") ; american
2582 "Custom formats for time stamps. See `format-time-string' for the syntax. 2582 "Custom formats for time stamps. See `format-time-string' for the syntax.
2583These are overlayed over the default ISO format if the variable 2583These are overlaid over the default ISO format if the variable
2584`org-display-custom-times' is set. Time like %H:%M should be at the 2584`org-display-custom-times' is set. Time like %H:%M should be at the
2585end of the second format. The custom formats are also honored by export 2585end of the second format. The custom formats are also honored by export
2586commands, if custom time display is turned on at the time of export." 2586commands, if custom time display is turned on at the time of export."
@@ -15109,7 +15109,7 @@ The command returns the inserted time stamp."
15109 (org-restart-font-lock) 15109 (org-restart-font-lock)
15110 (setq org-table-may-need-update t) 15110 (setq org-table-may-need-update t)
15111 (if org-display-custom-times 15111 (if org-display-custom-times
15112 (message "Time stamps are overlayed with custom format") 15112 (message "Time stamps are overlaid with custom format")
15113 (message "Time stamp overlays removed"))) 15113 (message "Time stamp overlays removed")))
15114 15114
15115(defun org-display-custom-time (beg end) 15115(defun org-display-custom-time (beg end)
@@ -18961,7 +18961,7 @@ contexts are:
18961:target on a <<target>> 18961:target on a <<target>>
18962:radio-target on a <<<radio-target>>> 18962:radio-target on a <<<radio-target>>>
18963:latex-fragment on a LaTeX fragment 18963:latex-fragment on a LaTeX fragment
18964:latex-preview on a LaTeX fragment with overlayed preview image 18964:latex-preview on a LaTeX fragment with overlaid preview image
18965 18965
18966This function expects the position to be visible because it uses font-lock 18966This function expects the position to be visible because it uses font-lock
18967faces as a help to recognize the following contexts: :table-special, :link, 18967faces as a help to recognize the following contexts: :table-special, :link,