diff options
| author | Joakim Verona | 2011-12-28 11:34:15 +0100 |
|---|---|---|
| committer | Joakim Verona | 2011-12-28 11:34:15 +0100 |
| commit | 2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f (patch) | |
| tree | 034e65ef002631d0aba8fc1a41e9984fc557e630 /lisp/org | |
| parent | bb29f044aa967831cd664c54eba0de0c701436ce (diff) | |
| parent | d23ab8e8726ecb7e3554644857b4a58e5f7408f1 (diff) | |
| download | emacs-2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f.tar.gz emacs-2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f.zip | |
upstream
Diffstat (limited to 'lisp/org')
| -rw-r--r-- | lisp/org/ChangeLog | 17 | ||||
| -rw-r--r-- | lisp/org/ob-ref.el | 2 | ||||
| -rw-r--r-- | lisp/org/ob.el | 4 | ||||
| -rw-r--r-- | lisp/org/org-agenda.el | 4 | ||||
| -rw-r--r-- | lisp/org/org-clock.el | 4 | ||||
| -rw-r--r-- | lisp/org/org-list.el | 2 | ||||
| -rw-r--r-- | lisp/org/org-protocol.el | 8 | ||||
| -rw-r--r-- | lisp/org/org-publish.el | 6 | ||||
| -rw-r--r-- | lisp/org/org-taskjuggler.el | 2 | ||||
| -rw-r--r-- | lisp/org/org.el | 6 |
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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | 6 | 2011-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 | ||
| 283 | 2011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> | 288 | 2011-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 @@ | |||
| 7119 | 2010-11-11 Dan Davison <davison@stats.ox.ac.uk> | 7124 | 2010-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 | ||
| 7124 | 2010-11-11 Dan Davison <davison@stats.ox.ac.uk> | 7129 | 2010-11-11 Dan Davison <davison@stats.ox.ac.uk> |
| 7125 | 7130 | ||
| @@ -8139,7 +8144,7 @@ | |||
| 8139 | 2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> | 8144 | 2010-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 | ||
| 9759 | 2010-07-19 Bastien Guerry <bzg@altern.org> | 9764 | 2010-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 | ||
| 9764 | 2010-07-19 David Maus <dmaus@ictsoc.de> | 9769 | 2010-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. |
| 70 | If the right hand side of the assignment has a literal value | 70 | If the right hand side of the assignment has a literal value |
| 71 | return that value, otherwise interpret as a reference to an | 71 | return that value, otherwise interpret as a reference to an |
| 72 | external resource and find it's value using | 72 | external 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 |
| 74 | first element of the list will be the name of the variable, and | 74 | first element of the list will be the name of the variable, and |
| 75 | the second will be an emacs-lisp representation of the value of | 75 | the 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. |
| 467 | Expand a block of code with org-babel according to it's header | 467 | Expand a block of code with org-babel according to its header |
| 468 | arguments. This generic implementation of body expansion is | 468 | arguments. This generic implementation of body expansion is |
| 469 | called for languages which have not defined their own specific | 469 | called for languages which have not defined their own specific |
| 470 | org-babel-expand-body:lang function." | 470 | org-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 | ||
| 148 | This is done by advising `server-visit-files' to scann the list of filenames | 148 | This is done by advising `server-visit-files' to scan the list of filenames |
| 149 | for `org-protocol-the-protocol' and sub-procols defined in | 149 | for `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. |
| 282 | You could use brackets to delimit on what part the link will be. | 282 | You 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. | |||
| 715 | If :makeindex is set, also produce a file theindex.org." | 715 | If :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 |
| 575 | alist representing either a resource or a task. ATTRIBUTES is a | 575 | alist representing either a resource or a task. ATTRIBUTES is a |
| 576 | list of symbols. Only entries from ITEM are considered that are | 576 | list of symbols. Only entries from ITEM are considered that are |
| 577 | listed in ATTRIBUTES." | 577 | listed 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. |
| 2583 | These are overlayed over the default ISO format if the variable | 2583 | These 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 |
| 2585 | end of the second format. The custom formats are also honored by export | 2585 | end of the second format. The custom formats are also honored by export |
| 2586 | commands, if custom time display is turned on at the time of export." | 2586 | commands, 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 | ||
| 18966 | This function expects the position to be visible because it uses font-lock | 18966 | This function expects the position to be visible because it uses font-lock |
| 18967 | faces as a help to recognize the following contexts: :table-special, :link, | 18967 | faces as a help to recognize the following contexts: :table-special, :link, |