diff options
| author | Joakim Verona | 2012-01-12 07:50:16 +0100 |
|---|---|---|
| committer | Joakim Verona | 2012-01-12 07:50:16 +0100 |
| commit | 16e9a80c0c3ca5f72f802b92ff5ca1f595a07eca (patch) | |
| tree | 33fb6b970b7bcb0cb813d305da2c43f3d212bbf2 /lisp/org | |
| parent | e4f761f1e3df7fbc7793c73c5d808b8da0b3a700 (diff) | |
| parent | 403993a8a646887193dd7b8a01cf16137cd89a1e (diff) | |
| download | emacs-16e9a80c0c3ca5f72f802b92ff5ca1f595a07eca.tar.gz emacs-16e9a80c0c3ca5f72f802b92ff5ca1f595a07eca.zip | |
upstream
Diffstat (limited to 'lisp/org')
| -rw-r--r-- | lisp/org/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/org/ob-fortran.el | 4 | ||||
| -rw-r--r-- | lisp/org/ob-latex.el | 2 | ||||
| -rw-r--r-- | lisp/org/ob-ledger.el | 2 | ||||
| -rw-r--r-- | lisp/org/org-agenda.el | 14 | ||||
| -rw-r--r-- | lisp/org/org-beamer.el | 4 | ||||
| -rw-r--r-- | lisp/org/org-capture.el | 4 | ||||
| -rw-r--r-- | lisp/org/org-clock.el | 2 | ||||
| -rw-r--r-- | lisp/org/org-compat.el | 2 | ||||
| -rw-r--r-- | lisp/org/org-ctags.el | 2 | ||||
| -rw-r--r-- | lisp/org/org-exp.el | 14 | ||||
| -rw-r--r-- | lisp/org/org-list.el | 8 | ||||
| -rw-r--r-- | lisp/org/org-lparse.el | 8 | ||||
| -rw-r--r-- | lisp/org/org-odt.el | 10 | ||||
| -rw-r--r-- | lisp/org/org-protocol.el | 4 | ||||
| -rw-r--r-- | lisp/org/org-publish.el | 4 | ||||
| -rw-r--r-- | lisp/org/org-table.el | 8 | ||||
| -rw-r--r-- | lisp/org/org-taskjuggler.el | 4 | ||||
| -rw-r--r-- | lisp/org/org.el | 12 |
19 files changed, 59 insertions, 59 deletions
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 983df8a6bfc..7bee98d8110 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog | |||
| @@ -1177,7 +1177,7 @@ | |||
| 1177 | * org.el: Remap `outline-promote' and `outline-demote' keys to | 1177 | * org.el: Remap `outline-promote' and `outline-demote' keys to |
| 1178 | `org-promote-subtree' and `org-demote-subtree'. | 1178 | `org-promote-subtree' and `org-demote-subtree'. |
| 1179 | 1179 | ||
| 1180 | 2012-01-03 Leo <sdl.web@gmail.com> | 1180 | 2012-01-03 Leo Liu <sdl.web@gmail.com> |
| 1181 | 1181 | ||
| 1182 | * org-agenda.el (org-agenda-do-context-action): Check if marker is | 1182 | * org-agenda.el (org-agenda-do-context-action): Check if marker is |
| 1183 | valid before use. | 1183 | valid before use. |
| @@ -1749,7 +1749,7 @@ | |||
| 1749 | 1749 | ||
| 1750 | 2012-01-03 Suvayu Ali <fatkasuvayu+linux@gmail.com> (tiny change) | 1750 | 2012-01-03 Suvayu Ali <fatkasuvayu+linux@gmail.com> (tiny change) |
| 1751 | 1751 | ||
| 1752 | * org-inlinetask.el (org-inlinetask): New customisable face | 1752 | * org-inlinetask.el (org-inlinetask): New customizable face |
| 1753 | for inlinetasks | 1753 | for inlinetasks |
| 1754 | 1754 | ||
| 1755 | 2012-01-03 Bastien Guerry <bzg@gnu.org> | 1755 | 2012-01-03 Bastien Guerry <bzg@gnu.org> |
| @@ -2964,7 +2964,7 @@ | |||
| 2964 | 2964 | ||
| 2965 | * org-latex.el (org-export-latex-header-defs-re): Delete. | 2965 | * org-latex.el (org-export-latex-header-defs-re): Delete. |
| 2966 | 2966 | ||
| 2967 | 2011-07-28 Bastien <bzg@gnu.org> | 2967 | 2011-07-28 Bastien Guerry <bzg@gnu.org> |
| 2968 | 2968 | ||
| 2969 | * org.el (org-last-set-property): New variable. | 2969 | * org.el (org-last-set-property): New variable. |
| 2970 | (org-read-property-name): Use the new variable: the prompt | 2970 | (org-read-property-name): Use the new variable: the prompt |
| @@ -6786,7 +6786,7 @@ | |||
| 6786 | * ob.el (org-babel-params-from-properties): Test for | 6786 | * ob.el (org-babel-params-from-properties): Test for |
| 6787 | "header-arg-name" and ":header-arg-name", in that order. | 6787 | "header-arg-name" and ":header-arg-name", in that order. |
| 6788 | 6788 | ||
| 6789 | 2011-07-28 Bastien <bastien.guerry@wikimedia.fr> | 6789 | 2011-07-28 Bastien Guerry <bzg@gnu.org> |
| 6790 | 6790 | ||
| 6791 | * org-capture.el (org-capture-templates): Document "currentfile" | 6791 | * org-capture.el (org-capture-templates): Document "currentfile" |
| 6792 | for capture template. | 6792 | for capture template. |
| @@ -19573,7 +19573,7 @@ | |||
| 19573 | against all agenda files. | 19573 | against all agenda files. |
| 19574 | 19574 | ||
| 19575 | 2008-10-12 Carsten Dominik <dominik@science.uva.nl> | 19575 | 2008-10-12 Carsten Dominik <dominik@science.uva.nl> |
| 19576 | Bastien Guerry <bzg@altern.org> | 19576 | Bastien Guerry <bzg@altern.org> |
| 19577 | 19577 | ||
| 19578 | * org-list.el: New file, aggregating list functions from org.el | 19578 | * org-list.el: New file, aggregating list functions from org.el |
| 19579 | and org-export-latex.el. | 19579 | and org-export-latex.el. |
diff --git a/lisp/org/ob-fortran.el b/lisp/org/ob-fortran.el index b6305c42769..46d2269a1d7 100644 --- a/lisp/org/ob-fortran.el +++ b/lisp/org/ob-fortran.el | |||
| @@ -110,7 +110,7 @@ it's header arguments." | |||
| 110 | "Wrap body in a \"program ... end program\" block if none exists." | 110 | "Wrap body in a \"program ... end program\" block if none exists." |
| 111 | (if (string-match "^[ \t]*program[ \t]*.*" (capitalize body)) | 111 | (if (string-match "^[ \t]*program[ \t]*.*" (capitalize body)) |
| 112 | (let ((vars (mapcar #'cdr (org-babel-get-header params :var)))) | 112 | (let ((vars (mapcar #'cdr (org-babel-get-header params :var)))) |
| 113 | (if vars (error "cannot use :vars if 'program' statment is present")) | 113 | (if vars (error "cannot use :vars if 'program' statement is present")) |
| 114 | body) | 114 | body) |
| 115 | (format "program main\n%s\nend program main\n" body))) | 115 | (format "program main\n%s\nend program main\n" body))) |
| 116 | 116 | ||
| @@ -127,7 +127,7 @@ support for sessions" | |||
| 127 | ;; helper functions | 127 | ;; helper functions |
| 128 | 128 | ||
| 129 | (defun org-babel-fortran-var-to-fortran (pair) | 129 | (defun org-babel-fortran-var-to-fortran (pair) |
| 130 | "fortranonvert an elisp val into a string of fortran code specifying a var | 130 | "Convert an elisp val into a string of fortran code specifying a var |
| 131 | of the same value." | 131 | of the same value." |
| 132 | ;; TODO list support | 132 | ;; TODO list support |
| 133 | (let ((var (car pair)) | 133 | (let ((var (car pair)) |
diff --git a/lisp/org/ob-latex.el b/lisp/org/ob-latex.el index 0db71992826..23e8d91fecd 100644 --- a/lisp/org/ob-latex.el +++ b/lisp/org/ob-latex.el | |||
| @@ -132,7 +132,7 @@ This function is called by `org-babel-execute-src-block'." | |||
| 132 | (when (file-exists-p transient-pdf-file) | 132 | (when (file-exists-p transient-pdf-file) |
| 133 | (delete-file transient-pdf-file)))))) | 133 | (delete-file transient-pdf-file)))))) |
| 134 | ((string-match "\\.\\([^\\.]+\\)$" out-file) | 134 | ((string-match "\\.\\([^\\.]+\\)$" out-file) |
| 135 | (error "can not create %s files, please specify a .png or .pdf file or try the :imagemagick header arguement" | 135 | (error "can not create %s files, please specify a .png or .pdf file or try the :imagemagick header argument" |
| 136 | (match-string 1 out-file)))) | 136 | (match-string 1 out-file)))) |
| 137 | nil) ;; signal that output has already been written to file | 137 | nil) ;; signal that output has already been written to file |
| 138 | body)) | 138 | body)) |
diff --git a/lisp/org/ob-ledger.el b/lisp/org/ob-ledger.el index e9c142712eb..a454d51e391 100644 --- a/lisp/org/ob-ledger.el +++ b/lisp/org/ob-ledger.el | |||
| @@ -29,7 +29,7 @@ | |||
| 29 | ;; | 29 | ;; |
| 30 | ;; 1) there is no such thing as a "session" in ledger | 30 | ;; 1) there is no such thing as a "session" in ledger |
| 31 | ;; | 31 | ;; |
| 32 | ;; 2) we are generally only going to return output from the leger program | 32 | ;; 2) we are generally only going to return output from the ledger program |
| 33 | ;; | 33 | ;; |
| 34 | ;; 3) we are adding the "cmdline" header argument | 34 | ;; 3) we are adding the "cmdline" header argument |
| 35 | ;; | 35 | ;; |
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index d444aff4f2b..bdf68819089 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el | |||
| @@ -28,7 +28,7 @@ | |||
| 28 | ;; | 28 | ;; |
| 29 | ;; The functions `org-batch-agenda', `org-batch-agenda-csv', and | 29 | ;; The functions `org-batch-agenda', `org-batch-agenda-csv', and |
| 30 | ;; `org-batch-store-agenda-views' are implemented as macros to provide | 30 | ;; `org-batch-store-agenda-views' are implemented as macros to provide |
| 31 | ;; a conveniant way for extracting agenda information from the command | 31 | ;; a convenient way for extracting agenda information from the command |
| 32 | ;; line. The Lisp does not evaluate parameters of a macro call; thus | 32 | ;; line. The Lisp does not evaluate parameters of a macro call; thus |
| 33 | ;; it is not necessary to quote the parameters passed to one of those | 33 | ;; it is not necessary to quote the parameters passed to one of those |
| 34 | ;; functions. E.g. you can write: | 34 | ;; functions. E.g. you can write: |
| @@ -1088,7 +1088,7 @@ and timeline buffers." | |||
| 1088 | (const :tag "Sunday" 0))) | 1088 | (const :tag "Sunday" 0))) |
| 1089 | 1089 | ||
| 1090 | (defcustom org-agenda-move-date-from-past-immediately-to-today t | 1090 | (defcustom org-agenda-move-date-from-past-immediately-to-today t |
| 1091 | "Non-nil means jumpt to today when moving a past date forward in time. | 1091 | "Non-nil means jump to today when moving a past date forward in time. |
| 1092 | When using S-right in the agenda to move a a date forward, and the date | 1092 | When using S-right in the agenda to move a a date forward, and the date |
| 1093 | stamp currently points to the past, the first key press will move it | 1093 | stamp currently points to the past, the first key press will move it |
| 1094 | to today. WHen nil, just move one day forward even if the date stays | 1094 | to today. WHen nil, just move one day forward even if the date stays |
| @@ -1660,7 +1660,7 @@ Where CATEGORY-REGEXP is a regexp matching the categories where | |||
| 1660 | the icon should be displayed. | 1660 | the icon should be displayed. |
| 1661 | FILE-OR-DATA either a file path or a string containing image data. | 1661 | FILE-OR-DATA either a file path or a string containing image data. |
| 1662 | 1662 | ||
| 1663 | The other fields can be omited safely if not needed: | 1663 | The other fields can be omitted safely if not needed: |
| 1664 | TYPE indicates the image type. | 1664 | TYPE indicates the image type. |
| 1665 | DATA-P is a boolean indicating whether the FILE-OR-DATA string is | 1665 | DATA-P is a boolean indicating whether the FILE-OR-DATA string is |
| 1666 | image data. | 1666 | image data. |
| @@ -3064,7 +3064,7 @@ define a filter for one of the individual blocks. You need to set it in | |||
| 3064 | the global options and expect it to be applied to the entire view.") | 3064 | the global options and expect it to be applied to the entire view.") |
| 3065 | 3065 | ||
| 3066 | (defvar org-agenda-category-filter-preset nil | 3066 | (defvar org-agenda-category-filter-preset nil |
| 3067 | "A preset of the categeory filter used for secondary agenda filtering. | 3067 | "A preset of the category filter used for secondary agenda filtering. |
| 3068 | This must be a list of strings, each string must be a single category | 3068 | This must be a list of strings, each string must be a single category |
| 3069 | preceded by \"+\" or \"-\". | 3069 | preceded by \"+\" or \"-\". |
| 3070 | This variable should not be set directly, but agenda custom commands can | 3070 | This variable should not be set directly, but agenda custom commands can |
| @@ -4922,7 +4922,7 @@ DAYNAME is a number between 0 (Sunday) and 6 (Saturday). | |||
| 4922 | SKIP-WEEKS is any number of ISO weeks in the block period for which the | 4922 | SKIP-WEEKS is any number of ISO weeks in the block period for which the |
| 4923 | item should be skipped. If any of the SKIP-WEEKS arguments is the symbol | 4923 | item should be skipped. If any of the SKIP-WEEKS arguments is the symbol |
| 4924 | `holidays', then any date that is known by the Emacs calendar to be a | 4924 | `holidays', then any date that is known by the Emacs calendar to be a |
| 4925 | holidy will also be skipped." | 4925 | holiday will also be skipped." |
| 4926 | (let* ((date1 (calendar-absolute-from-gregorian (list m1 d1 y1))) | 4926 | (let* ((date1 (calendar-absolute-from-gregorian (list m1 d1 y1))) |
| 4927 | (date2 (calendar-absolute-from-gregorian (list m2 d2 y2))) | 4927 | (date2 (calendar-absolute-from-gregorian (list m2 d2 y2))) |
| 4928 | (d (calendar-absolute-from-gregorian date))) | 4928 | (d (calendar-absolute-from-gregorian date))) |
| @@ -8507,7 +8507,7 @@ tag and (if present) the flagging note." | |||
| 8507 | (org-agenda-remove-flag hdmarker) | 8507 | (org-agenda-remove-flag hdmarker) |
| 8508 | (let ((win (get-buffer-window "*Flagging Note*"))) | 8508 | (let ((win (get-buffer-window "*Flagging Note*"))) |
| 8509 | (and win (delete-window win))) | 8509 | (and win (delete-window win))) |
| 8510 | (message "Entry unflaged")) | 8510 | (message "Entry unflagged")) |
| 8511 | (setq note (org-entry-get hdmarker "THEFLAGGINGNOTE")) | 8511 | (setq note (org-entry-get hdmarker "THEFLAGGINGNOTE")) |
| 8512 | (unless note | 8512 | (unless note |
| 8513 | (error "No flagging note")) | 8513 | (error "No flagging note")) |
| @@ -8530,7 +8530,7 @@ tag and (if present) the flagging note." | |||
| 8530 | (org-entry-delete nil "THEFLAGGINGNOTE") | 8530 | (org-entry-delete nil "THEFLAGGINGNOTE") |
| 8531 | (setq newhead (org-get-heading))) | 8531 | (setq newhead (org-get-heading))) |
| 8532 | (org-agenda-change-all-lines newhead marker) | 8532 | (org-agenda-change-all-lines newhead marker) |
| 8533 | (message "Entry unflaged"))) | 8533 | (message "Entry unflagged"))) |
| 8534 | 8534 | ||
| 8535 | (defun org-agenda-get-any-marker (&optional pos) | 8535 | (defun org-agenda-get-any-marker (&optional pos) |
| 8536 | (or (get-text-property (or pos (point-at-bol)) 'org-hd-marker) | 8536 | (or (get-text-property (or pos (point-at-bol)) 'org-hd-marker) |
diff --git a/lisp/org/org-beamer.el b/lisp/org/org-beamer.el index 0a402ed4038..28b79a03dfe 100644 --- a/lisp/org/org-beamer.el +++ b/lisp/org/org-beamer.el | |||
| @@ -410,7 +410,7 @@ the value will be inserted right after the documentclass statement." | |||
| 410 | 410 | ||
| 411 | 411 | ||
| 412 | ;; Functions to initialize and post-process | 412 | ;; Functions to initialize and post-process |
| 413 | ;; These fuctions will be hooked into various places in the export process | 413 | ;; These functions will be hooked into various places in the export process |
| 414 | 414 | ||
| 415 | (defun org-beamer-initialize-open-trackers () | 415 | (defun org-beamer-initialize-open-trackers () |
| 416 | "Reset variables that track if certain environments are open during export." | 416 | "Reset variables that track if certain environments are open during export." |
| @@ -450,7 +450,7 @@ The effect is that these values will be accessible during export." | |||
| 450 | ((stringp org-beamer-frame-level-now) | 450 | ((stringp org-beamer-frame-level-now) |
| 451 | (setq org-beamer-frame-level-now | 451 | (setq org-beamer-frame-level-now |
| 452 | (string-to-number org-beamer-frame-level-now)))) | 452 | (string-to-number org-beamer-frame-level-now)))) |
| 453 | ;; Find the header additons, most likely theme commands | 453 | ;; Find the header additions, most likely theme commands |
| 454 | (setq org-beamer-header-extra | 454 | (setq org-beamer-header-extra |
| 455 | (or (and (org-region-active-p) | 455 | (or (and (org-region-active-p) |
| 456 | (save-excursion | 456 | (save-excursion |
diff --git a/lisp/org/org-capture.el b/lisp/org/org-capture.el index 46202f8adea..31694d47bc0 100644 --- a/lisp/org/org-capture.el +++ b/lisp/org/org-capture.el | |||
| @@ -374,7 +374,7 @@ to avoid conflicts with other active capture processes." | |||
| 374 | (plist-get (if local org-capture-current-plist org-capture-plist) prop)) | 374 | (plist-get (if local org-capture-current-plist org-capture-plist) prop)) |
| 375 | 375 | ||
| 376 | (defun org-capture-member (prop &optional local) | 376 | (defun org-capture-member (prop &optional local) |
| 377 | "Is PROP a preperty in `org-capture-plist'. | 377 | "Is PROP a property in `org-capture-plist'. |
| 378 | When LOCAL is set, use the local variable `org-capture-current-plist', | 378 | When LOCAL is set, use the local variable `org-capture-current-plist', |
| 379 | this is necessary after initialization of the capture process, | 379 | this is necessary after initialization of the capture process, |
| 380 | to avoid conflicts with other active capture processes." | 380 | to avoid conflicts with other active capture processes." |
| @@ -1455,7 +1455,7 @@ The template may still contain \"%?\" for cursor positioning." | |||
| 1455 | (goto-char (point-min)) | 1455 | (goto-char (point-min)) |
| 1456 | (while (looking-at "[ \t]*\n") (replace-match "")) | 1456 | (while (looking-at "[ \t]*\n") (replace-match "")) |
| 1457 | (if (re-search-forward "[ \t\n]*\\'" nil t) (replace-match "\n")) | 1457 | (if (re-search-forward "[ \t\n]*\\'" nil t) (replace-match "\n")) |
| 1458 | ;; Return the expanded tempate and kill the temporary buffer | 1458 | ;; Return the expanded template and kill the temporary buffer |
| 1459 | (untabify (point-min) (point-max)) | 1459 | (untabify (point-min) (point-max)) |
| 1460 | (set-buffer-modified-p nil) | 1460 | (set-buffer-modified-p nil) |
| 1461 | (prog1 (buffer-string) (kill-buffer (current-buffer)))))) | 1461 | (prog1 (buffer-string) (kill-buffer (current-buffer)))))) |
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 2784707e452..6211ae45b1b 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el | |||
| @@ -2128,7 +2128,7 @@ the currently selected interval size." | |||
| 2128 | "Write out a clock table at position IPOS in the current buffer. | 2128 | "Write out a clock table at position IPOS in the current buffer. |
| 2129 | TABLES is a list of tables with clocking data as produced by | 2129 | TABLES is a list of tables with clocking data as produced by |
| 2130 | `org-clock-get-table-data'. PARAMS is the parameter property list obtained | 2130 | `org-clock-get-table-data'. PARAMS is the parameter property list obtained |
| 2131 | from the dynamic block defintion." | 2131 | from the dynamic block definition." |
| 2132 | ;; This function looks quite complicated, mainly because there are a | 2132 | ;; This function looks quite complicated, mainly because there are a |
| 2133 | ;; lot of options which can add or remove columns. I have massively | 2133 | ;; lot of options which can add or remove columns. I have massively |
| 2134 | ;; commented this function, the I hope it is understandable. If | 2134 | ;; commented this function, the I hope it is understandable. If |
diff --git a/lisp/org/org-compat.el b/lisp/org/org-compat.el index 425e8d816c7..7c969375a7f 100644 --- a/lisp/org/org-compat.el +++ b/lisp/org/org-compat.el | |||
| @@ -275,7 +275,7 @@ Works on both Emacs and XEmacs." | |||
| 275 | nil)) | 275 | nil)) |
| 276 | 276 | ||
| 277 | (defmacro org-xemacs-without-invisibility (&rest body) | 277 | (defmacro org-xemacs-without-invisibility (&rest body) |
| 278 | "Turn off exents with invisibility while executing BODY." | 278 | "Turn off extents with invisibility while executing BODY." |
| 279 | `(let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol) | 279 | `(let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol) |
| 280 | 'all-extents-closed-open 'invisible)) | 280 | 'all-extents-closed-open 'invisible)) |
| 281 | ext-inv-specs) | 281 | ext-inv-specs) |
diff --git a/lisp/org/org-ctags.el b/lisp/org/org-ctags.el index 7cbd299782f..ea94d419957 100644 --- a/lisp/org/org-ctags.el +++ b/lisp/org/org-ctags.el | |||
| @@ -35,7 +35,7 @@ | |||
| 35 | ;; links to these 'tagged' destinations, allowing seamless navigation between | 35 | ;; links to these 'tagged' destinations, allowing seamless navigation between |
| 36 | ;; multiple org-mode files. Topics can be created in any org mode file and | 36 | ;; multiple org-mode files. Topics can be created in any org mode file and |
| 37 | ;; will always be found by plain links from other files. Other file types | 37 | ;; will always be found by plain links from other files. Other file types |
| 38 | ;; recognised by ctags (source code files, latex files, etc) will also be | 38 | ;; recognized by ctags (source code files, latex files, etc) will also be |
| 39 | ;; available as destinations for plain links, and similarly, org-mode links | 39 | ;; available as destinations for plain links, and similarly, org-mode links |
| 40 | ;; will be available as tags from source files. Finally, the function | 40 | ;; will be available as tags from source files. Finally, the function |
| 41 | ;; `org-ctags-find-tag-interactive' lets you choose any known tag, using | 41 | ;; `org-ctags-find-tag-interactive' lets you choose any known tag, using |
diff --git a/lisp/org/org-exp.el b/lisp/org/org-exp.el index 49da40f5f4f..c7e1a94216e 100644 --- a/lisp/org/org-exp.el +++ b/lisp/org/org-exp.el | |||
| @@ -2800,7 +2800,7 @@ continue numbering from the last numbered block. | |||
| 2800 | REPLACE-LABELS is dual-purpose. | 2800 | REPLACE-LABELS is dual-purpose. |
| 2801 | 1. It controls the retention of labels in the exported block. | 2801 | 1. It controls the retention of labels in the exported block. |
| 2802 | 2. It specifies in what manner the links (or references) to a | 2802 | 2. It specifies in what manner the links (or references) to a |
| 2803 | labelled line be formatted. | 2803 | labeled line be formatted. |
| 2804 | 2804 | ||
| 2805 | REPLACE-LABELS is the symbol `keep' if the literal example | 2805 | REPLACE-LABELS is the symbol `keep' if the literal example |
| 2806 | specifies \"-k\" option, is numeric if the literal example | 2806 | specifies \"-k\" option, is numeric if the literal example |
| @@ -2808,12 +2808,12 @@ specifies \"-r\" option and is nil otherwise. | |||
| 2808 | 2808 | ||
| 2809 | Handle REPLACE-LABELS as below: | 2809 | Handle REPLACE-LABELS as below: |
| 2810 | - If nil, retain labels in the exported block and use | 2810 | - If nil, retain labels in the exported block and use |
| 2811 | user-provided labels for referencing the labelled lines. | 2811 | user-provided labels for referencing the labeled lines. |
| 2812 | - If it is a number, remove labels in the exported block and use | 2812 | - If it is a number, remove labels in the exported block and use |
| 2813 | one of line numbers or labels for referencing labelled lines based | 2813 | one of line numbers or labels for referencing labeled lines based |
| 2814 | on NUMBER option. | 2814 | on NUMBER option. |
| 2815 | - If it is a keep, retain labels in the exported block and use | 2815 | - If it is a keep, retain labels in the exported block and use |
| 2816 | one of line numbers or labels for referencing labelled lines | 2816 | one of line numbers or labels for referencing labeled lines |
| 2817 | based on NUMBER option. | 2817 | based on NUMBER option. |
| 2818 | 2818 | ||
| 2819 | LABEL-FORMAT is the value of \"-l\" switch associated with | 2819 | LABEL-FORMAT is the value of \"-l\" switch associated with |
| @@ -2823,8 +2823,8 @@ PREPROCESS is intended for backend-agnostic handling of source | |||
| 2823 | block numbering. When non-nil do the following: | 2823 | block numbering. When non-nil do the following: |
| 2824 | - do not number the lines | 2824 | - do not number the lines |
| 2825 | - always strip the labels from exported block | 2825 | - always strip the labels from exported block |
| 2826 | - do not make the labelled line a target of an incoming link. | 2826 | - do not make the labeled line a target of an incoming link. |
| 2827 | Instead mark the labelled line with `org-coderef' property and | 2827 | Instead mark the labeled line with `org-coderef' property and |
| 2828 | store the label in it." | 2828 | store the label in it." |
| 2829 | (setq skip1 (or skip1 0) skip2 (or skip2 0)) | 2829 | (setq skip1 (or skip1 0) skip2 (or skip2 0)) |
| 2830 | (if (and number (not cont)) (setq org-export-last-code-line-counter-value 0)) | 2830 | (if (and number (not cont)) (setq org-export-last-code-line-counter-value 0)) |
| @@ -3021,7 +3021,7 @@ to the value of `temporary-file-directory'." | |||
| 3021 | (org-load-modules-maybe) | 3021 | (org-load-modules-maybe) |
| 3022 | (unless org-local-vars | 3022 | (unless org-local-vars |
| 3023 | (setq org-local-vars (org-get-local-variables))) | 3023 | (setq org-local-vars (org-get-local-variables))) |
| 3024 | (eval ;; convert to fmt -- mimicing `org-run-like-in-org-mode' | 3024 | (eval ;; convert to fmt -- mimicking `org-run-like-in-org-mode' |
| 3025 | (list 'let org-local-vars | 3025 | (list 'let org-local-vars |
| 3026 | (list (intern (format "org-export-as-%s" fmt)) | 3026 | (list (intern (format "org-export-as-%s" fmt)) |
| 3027 | nil nil nil ''string t)))) | 3027 | nil nil nil ''string t)))) |
diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el index b36167701b4..da8a810895c 100644 --- a/lisp/org/org-list.el +++ b/lisp/org/org-list.el | |||
| @@ -71,7 +71,7 @@ | |||
| 71 | ;; few thousand lines long). Thus, code should follow the rule: | 71 | ;; few thousand lines long). Thus, code should follow the rule: |
| 72 | ;; "collect once, use many". As a corollary, it is usually a bad idea | 72 | ;; "collect once, use many". As a corollary, it is usually a bad idea |
| 73 | ;; to use directly an interactive function inside the code, as those, | 73 | ;; to use directly an interactive function inside the code, as those, |
| 74 | ;; being independant entities, read the whole list structure another | 74 | ;; being independent entities, read the whole list structure another |
| 75 | ;; time. | 75 | ;; time. |
| 76 | 76 | ||
| 77 | ;;; Code: | 77 | ;;; Code: |
| @@ -685,7 +685,7 @@ Assume point is at an item." | |||
| 685 | (cond | 685 | (cond |
| 686 | ((<= (point) lim-up) | 686 | ((<= (point) lim-up) |
| 687 | ;; At upward limit: if we ended at an item, store it, | 687 | ;; At upward limit: if we ended at an item, store it, |
| 688 | ;; else dimiss useless data recorded above BEG-CELL. | 688 | ;; else dismiss useless data recorded above BEG-CELL. |
| 689 | ;; Jump to part 2. | 689 | ;; Jump to part 2. |
| 690 | (throw 'exit | 690 | (throw 'exit |
| 691 | (setq itm-lst | 691 | (setq itm-lst |
| @@ -2674,7 +2674,7 @@ If a region is active, all items inside will be moved." | |||
| 2674 | (defvar org-tab-ind-state) | 2674 | (defvar org-tab-ind-state) |
| 2675 | (defun org-cycle-item-indentation () | 2675 | (defun org-cycle-item-indentation () |
| 2676 | "Cycle levels of indentation of an empty item. | 2676 | "Cycle levels of indentation of an empty item. |
| 2677 | The first run indents the item, if applicable. Subsequents runs | 2677 | The first run indents the item, if applicable. Subsequent runs |
| 2678 | outdent it at meaningful levels in the list. When done, item is | 2678 | outdent it at meaningful levels in the list. When done, item is |
| 2679 | put back at its original position with its original bullet. | 2679 | put back at its original position with its original bullet. |
| 2680 | 2680 | ||
| @@ -3047,7 +3047,7 @@ Valid parameters PARAMS are: | |||
| 3047 | 3047 | ||
| 3048 | Alternatively, each parameter can also be a form returning | 3048 | Alternatively, each parameter can also be a form returning |
| 3049 | a string. These sexp can use keywords `counter' and `depth', | 3049 | a string. These sexp can use keywords `counter' and `depth', |
| 3050 | reprensenting respectively counter associated to the current | 3050 | representing respectively counter associated to the current |
| 3051 | item, and depth of the current sub-list, starting at 0. | 3051 | item, and depth of the current sub-list, starting at 0. |
| 3052 | Obviously, `counter' is only available for parameters applying to | 3052 | Obviously, `counter' is only available for parameters applying to |
| 3053 | items." | 3053 | items." |
diff --git a/lisp/org/org-lparse.el b/lisp/org/org-lparse.el index b13dc86e5a6..229135e9b50 100644 --- a/lisp/org/org-lparse.el +++ b/lisp/org/org-lparse.el | |||
| @@ -854,7 +854,7 @@ version." | |||
| 854 | (throw 'nextline nil)) | 854 | (throw 'nextline nil)) |
| 855 | 855 | ||
| 856 | ;; Notes: The baseline version of org-html.el (git commit | 856 | ;; Notes: The baseline version of org-html.el (git commit |
| 857 | ;; 3d802e), while encoutering a *line-long* protected text, | 857 | ;; 3d802e), while encountering a *line-long* protected text, |
| 858 | ;; does one of the following two things based on the state | 858 | ;; does one of the following two things based on the state |
| 859 | ;; of the export buffer. | 859 | ;; of the export buffer. |
| 860 | 860 | ||
| @@ -869,10 +869,10 @@ version." | |||
| 869 | ;; I think ---> | 869 | ;; I think ---> |
| 870 | 870 | ||
| 871 | ;; Scenario 1 mentioned above kicks in when a block of | 871 | ;; Scenario 1 mentioned above kicks in when a block of |
| 872 | ;; protected text has to be inserted enbloc. For example, | 872 | ;; protected text has to be inserted en bloc. For example, |
| 873 | ;; this happens, when inserting an source or example block | 873 | ;; this happens, when inserting an source or example block |
| 874 | ;; or preformatted content enclosed in #+backend, | 874 | ;; or preformatted content enclosed in #+backend, |
| 875 | ;; #+begin_bakend ... #+end_backend) | 875 | ;; #+begin_backend ... #+end_backend) |
| 876 | 876 | ||
| 877 | ;; Scenario 2 mentioned above kicks in when the protected | 877 | ;; Scenario 2 mentioned above kicks in when the protected |
| 878 | ;; text is part of a running sentence. For example this | 878 | ;; text is part of a running sentence. For example this |
| @@ -1189,7 +1189,7 @@ version." | |||
| 1189 | (t (current-buffer)))))) | 1189 | (t (current-buffer)))))) |
| 1190 | 1190 | ||
| 1191 | (defun org-lparse-format-table (lines olines) | 1191 | (defun org-lparse-format-table (lines olines) |
| 1192 | "Retuns backend-specific code for org-type and table-type tables." | 1192 | "Returns backend-specific code for org-type and table-type tables." |
| 1193 | (if (stringp lines) | 1193 | (if (stringp lines) |
| 1194 | (setq lines (org-split-string lines "\n"))) | 1194 | (setq lines (org-split-string lines "\n"))) |
| 1195 | (if (string-match "^[ \t]*|" (car lines)) | 1195 | (if (string-match "^[ \t]*|" (car lines)) |
diff --git a/lisp/org/org-odt.el b/lisp/org/org-odt.el index 886efa014f3..c8fa7ea363b 100644 --- a/lisp/org/org-odt.el +++ b/lisp/org/org-odt.el | |||
| @@ -284,7 +284,7 @@ FILE-MEMBERS. | |||
| 284 | Use options 1, 2 or 3 only if styles.xml alone suffices for | 284 | Use options 1, 2 or 3 only if styles.xml alone suffices for |
| 285 | achieving the desired formatting. Use option 4, if the styles.xml | 285 | achieving the desired formatting. Use option 4, if the styles.xml |
| 286 | references additional files like header and footer images for | 286 | references additional files like header and footer images for |
| 287 | achieving the desired formattting. | 287 | achieving the desired formatting. |
| 288 | 288 | ||
| 289 | Use \"#+ODT_STYLES_FILE: ...\" directive to set this variable on | 289 | Use \"#+ODT_STYLES_FILE: ...\" directive to set this variable on |
| 290 | a per-file basis. For example, | 290 | a per-file basis. For example, |
| @@ -1878,7 +1878,7 @@ ATTR is a string of other attributes of the a element." | |||
| 1878 | (cons width height))) | 1878 | (cons width height))) |
| 1879 | 1879 | ||
| 1880 | (defvar org-odt-entity-labels-alist nil | 1880 | (defvar org-odt-entity-labels-alist nil |
| 1881 | "Associate Labels with the Labelled entities. | 1881 | "Associate Labels with the Labeled entities. |
| 1882 | Each element of the alist is of the form (LABEL-NAME | 1882 | Each element of the alist is of the form (LABEL-NAME |
| 1883 | CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as | 1883 | CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as |
| 1884 | that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the | 1884 | that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the |
| @@ -2213,7 +2213,7 @@ visually." | |||
| 2213 | (with-current-buffer | 2213 | (with-current-buffer |
| 2214 | (find-file-noselect (expand-file-name "styles.xml") t) | 2214 | (find-file-noselect (expand-file-name "styles.xml") t) |
| 2215 | ;; Don't make automatic backup of styles.xml file. This setting | 2215 | ;; Don't make automatic backup of styles.xml file. This setting |
| 2216 | ;; prevents the backedup styles.xml file from being zipped in to | 2216 | ;; prevents the backed-up styles.xml file from being zipped in to |
| 2217 | ;; odt file. This is more of a hackish fix. Better alternative | 2217 | ;; odt file. This is more of a hackish fix. Better alternative |
| 2218 | ;; would be to fix the zip command so that the output odt file | 2218 | ;; would be to fix the zip command so that the output odt file |
| 2219 | ;; includes only the needed files and excludes any auto-generated | 2219 | ;; includes only the needed files and excludes any auto-generated |
| @@ -2228,7 +2228,7 @@ visually." | |||
| 2228 | (org-odt-configure-outline-numbering | 2228 | (org-odt-configure-outline-numbering |
| 2229 | (if org-export-with-section-numbers org-export-headline-levels 0))) | 2229 | (if org-export-with-section-numbers org-export-headline-levels 0))) |
| 2230 | 2230 | ||
| 2231 | ;; Write custom stlyes for source blocks | 2231 | ;; Write custom styles for source blocks |
| 2232 | (org-odt-insert-custom-styles-for-srcblocks | 2232 | (org-odt-insert-custom-styles-for-srcblocks |
| 2233 | (mapconcat | 2233 | (mapconcat |
| 2234 | (lambda (style) | 2234 | (lambda (style) |
| @@ -2479,7 +2479,7 @@ Do this when translation to MathML fails." | |||
| 2479 | ;; `org-export-preprocess-after-blockquote-hook'. Note that this hook | 2479 | ;; `org-export-preprocess-after-blockquote-hook'. Note that this hook |
| 2480 | ;; is the one that is closest and well before the call to | 2480 | ;; is the one that is closest and well before the call to |
| 2481 | ;; `org-export-attach-captions-and-attributes' in | 2481 | ;; `org-export-attach-captions-and-attributes' in |
| 2482 | ;; `org-export-preprocess-stirng'. The above arrangement permits | 2482 | ;; `org-export-preprocess-string'. The above arrangement permits |
| 2483 | ;; captions, labels and attributes to be attached to png images | 2483 | ;; captions, labels and attributes to be attached to png images |
| 2484 | ;; generated out of latex equations. | 2484 | ;; generated out of latex equations. |
| 2485 | (add-hook 'org-export-preprocess-after-blockquote-hook | 2485 | (add-hook 'org-export-preprocess-after-blockquote-hook |
diff --git a/lisp/org/org-protocol.el b/lisp/org/org-protocol.el index ccdbc314a53..6ffa86a1204 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 |
diff --git a/lisp/org/org-publish.el b/lisp/org/org-publish.el index dc794dd92c5..67540a67688 100644 --- a/lisp/org/org-publish.el +++ b/lisp/org/org-publish.el | |||
| @@ -277,12 +277,12 @@ in the sitemap." | |||
| 277 | :type 'string) | 277 | :type 'string) |
| 278 | 278 | ||
| 279 | (defcustom org-publish-sitemap-file-entry-format "%t" | 279 | (defcustom org-publish-sitemap-file-entry-format "%t" |
| 280 | "How a sitemap file entry is formated. | 280 | "How a sitemap file entry is formatted. |
| 281 | You could use brackets to delimit on what part the link will be. | 281 | You could use brackets to delimit on what part the link will be. |
| 282 | 282 | ||
| 283 | %t is the title. | 283 | %t is the title. |
| 284 | %a is the author. | 284 | %a is the author. |
| 285 | %d is the date formated using `org-publish-sitemap-date-format'." | 285 | %d is the date formatted using `org-publish-sitemap-date-format'." |
| 286 | :group 'org-publish | 286 | :group 'org-publish |
| 287 | :type 'string) | 287 | :type 'string) |
| 288 | 288 | ||
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index df93a9a7271..0d2a2e6a973 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el | |||
| @@ -50,7 +50,7 @@ | |||
| 50 | (defvar orgtbl-after-send-table-hook nil | 50 | (defvar orgtbl-after-send-table-hook nil |
| 51 | "Hook for functions attaching to `C-c C-c', if the table is sent. | 51 | "Hook for functions attaching to `C-c C-c', if the table is sent. |
| 52 | This can be used to add additional functionality after the table is sent | 52 | This can be used to add additional functionality after the table is sent |
| 53 | to the receiver position, othewise, if table is not sent, the functions | 53 | to the receiver position, otherwise, if table is not sent, the functions |
| 54 | are not run.") | 54 | are not run.") |
| 55 | 55 | ||
| 56 | (defcustom orgtbl-optimized (eq org-enable-table-editor 'optimized) | 56 | (defcustom orgtbl-optimized (eq org-enable-table-editor 'optimized) |
| @@ -1299,7 +1299,7 @@ However, when FORCE is non-nil, create new columns if necessary." | |||
| 1299 | (defun org-table-line-to-dline (line &optional above) | 1299 | (defun org-table-line-to-dline (line &optional above) |
| 1300 | "Turn a buffer line number into a data line number. | 1300 | "Turn a buffer line number into a data line number. |
| 1301 | If there is no data line in this line, return nil. | 1301 | If there is no data line in this line, return nil. |
| 1302 | If there is no matchin dline (most likely te refrence was a hline), the | 1302 | If there is no matching dline (most likely the reference was a hline), the |
| 1303 | first dline below it is used. When ABOVE is non-nil, the one above is used." | 1303 | first dline below it is used. When ABOVE is non-nil, the one above is used." |
| 1304 | (catch 'exit | 1304 | (catch 'exit |
| 1305 | (let ((ll (length org-table-dlines)) | 1305 | (let ((ll (length org-table-dlines)) |
| @@ -2671,7 +2671,7 @@ in the buffer and column1 and column2 are table column numbers." | |||
| 2671 | (prog1 (org-trim (org-table-get-field c1)) | 2671 | (prog1 (org-trim (org-table-get-field c1)) |
| 2672 | (if highlight (org-table-highlight-rectangle (point) (point))))) | 2672 | (if highlight (org-table-highlight-rectangle (point) (point))))) |
| 2673 | ;; A range, return a vector | 2673 | ;; A range, return a vector |
| 2674 | ;; First sort the numbers to get a regular ractangle | 2674 | ;; First sort the numbers to get a regular rectangle |
| 2675 | (if (< r2 r1) (setq tmp r1 r1 r2 r2 tmp)) | 2675 | (if (< r2 r1) (setq tmp r1 r1 r2 r2 tmp)) |
| 2676 | (if (< c2 c1) (setq tmp c1 c1 c2 c2 tmp)) | 2676 | (if (< c2 c1) (setq tmp c1 c1 c2 c2 tmp)) |
| 2677 | (if corners-only | 2677 | (if corners-only |
| @@ -2931,7 +2931,7 @@ known that the table will be realigned a little later anyway." | |||
| 2931 | 2931 | ||
| 2932 | (defun org-table-iterate (&optional arg) | 2932 | (defun org-table-iterate (&optional arg) |
| 2933 | "Recalculate the table until it does not change anymore. | 2933 | "Recalculate the table until it does not change anymore. |
| 2934 | The maximun number of iterations is 10, but you can chose a different value | 2934 | The maximum number of iterations is 10, but you can choose a different value |
| 2935 | with the prefix ARG." | 2935 | with the prefix ARG." |
| 2936 | (interactive "P") | 2936 | (interactive "P") |
| 2937 | (let ((imax (if arg (prefix-numeric-value arg) 10)) | 2937 | (let ((imax (if arg (prefix-numeric-value arg) 10)) |
diff --git a/lisp/org/org-taskjuggler.el b/lisp/org/org-taskjuggler.el index 68f64974ff3..c1a59ee70cb 100644 --- a/lisp/org/org-taskjuggler.el +++ b/lisp/org/org-taskjuggler.el | |||
| @@ -69,7 +69,7 @@ | |||
| 69 | ;; "taskjuggler_project" (or whatever you customized | 69 | ;; "taskjuggler_project" (or whatever you customized |
| 70 | ;; `org-export-taskjuggler-project-tag' to). You are now ready to | 70 | ;; `org-export-taskjuggler-project-tag' to). You are now ready to |
| 71 | ;; export the project plan with `org-export-as-taskjuggler-and-open' | 71 | ;; export the project plan with `org-export-as-taskjuggler-and-open' |
| 72 | ;; which will export the project plan and open a gant chart in | 72 | ;; which will export the project plan and open a Gantt chart in |
| 73 | ;; TaskJugglerUI. | 73 | ;; TaskJugglerUI. |
| 74 | ;; | 74 | ;; |
| 75 | ;; * Resources | 75 | ;; * Resources |
| @@ -572,7 +572,7 @@ with separator \"\n\"." | |||
| 572 | (and filtered-items (mapconcat 'identity filtered-items "\n")))) | 572 | (and filtered-items (mapconcat 'identity filtered-items "\n")))) |
| 573 | 573 | ||
| 574 | (defun org-taskjuggler-get-attributes (item attributes) | 574 | (defun org-taskjuggler-get-attributes (item attributes) |
| 575 | "Return all attribute as a single formated string. ITEM is an | 575 | "Return all attribute as a single formatted string. ITEM is an |
| 576 | alist representing either a resource or a task. ATTRIBUTES is a | 576 | alist representing either a resource or a task. ATTRIBUTES is a |
| 577 | list of symbols. Only entries from ITEM are considered that are | 577 | list of symbols. Only entries from ITEM are considered that are |
| 578 | listed in ATTRIBUTES." | 578 | listed in ATTRIBUTES." |
diff --git a/lisp/org/org.el b/lisp/org/org.el index c5d5e545b9f..57d2c96514e 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el | |||
| @@ -4717,7 +4717,7 @@ but the stars and the body are.") | |||
| 4717 | "\\(?: +" org-todo-regexp "\\)?" | 4717 | "\\(?: +" org-todo-regexp "\\)?" |
| 4718 | "\\(?: +\\(\\[#.\\]\\)\\)?" | 4718 | "\\(?: +\\(\\[#.\\]\\)\\)?" |
| 4719 | "\\(?: +" | 4719 | "\\(?: +" |
| 4720 | ;; Stats cookies can be sticked to body. | 4720 | ;; Stats cookies can be stuck to body. |
| 4721 | "\\(?:\\[[0-9%%/]+\\] *\\)?" | 4721 | "\\(?:\\[[0-9%%/]+\\] *\\)?" |
| 4722 | "\\(%s\\)" | 4722 | "\\(%s\\)" |
| 4723 | "\\(?: *\\[[0-9%%/]+\\]\\)?" | 4723 | "\\(?: *\\[[0-9%%/]+\\]\\)?" |
| @@ -5241,7 +5241,7 @@ The time stamps may be either active or inactive.") | |||
| 5241 | (defvar org-emph-face nil) | 5241 | (defvar org-emph-face nil) |
| 5242 | 5242 | ||
| 5243 | (defun org-do-emphasis-faces (limit) | 5243 | (defun org-do-emphasis-faces (limit) |
| 5244 | "Run through the buffer and add overlays to emphasised strings." | 5244 | "Run through the buffer and add overlays to emphasized strings." |
| 5245 | (let (rtn a) | 5245 | (let (rtn a) |
| 5246 | (while (and (not rtn) (re-search-forward org-emph-re limit t)) | 5246 | (while (and (not rtn) (re-search-forward org-emph-re limit t)) |
| 5247 | (if (not (= (char-after (match-beginning 3)) | 5247 | (if (not (= (char-after (match-beginning 3)) |
| @@ -5737,7 +5737,7 @@ Use `org-reduced-level' to remove the effect of `org-odd-levels'." | |||
| 5737 | 5737 | ||
| 5738 | (defvar org-font-lock-set-keywords-hook nil | 5738 | (defvar org-font-lock-set-keywords-hook nil |
| 5739 | "Functions that can manipulate `org-font-lock-extra-keywords'. | 5739 | "Functions that can manipulate `org-font-lock-extra-keywords'. |
| 5740 | This is calles after `org-font-lock-extra-keywords' is defined, but before | 5740 | This is called after `org-font-lock-extra-keywords' is defined, but before |
| 5741 | it is installed to be used by font lock. This can be useful if something | 5741 | it is installed to be used by font lock. This can be useful if something |
| 5742 | needs to be inserted at a specific position in the font-lock sequence.") | 5742 | needs to be inserted at a specific position in the font-lock sequence.") |
| 5743 | 5743 | ||
| @@ -5854,7 +5854,7 @@ needs to be inserted at a specific position in the font-lock sequence.") | |||
| 5854 | (org-set-local 'org-pretty-entities (not org-pretty-entities)) | 5854 | (org-set-local 'org-pretty-entities (not org-pretty-entities)) |
| 5855 | (org-restart-font-lock) | 5855 | (org-restart-font-lock) |
| 5856 | (if org-pretty-entities | 5856 | (if org-pretty-entities |
| 5857 | (message "Entities are displayed as UTF8 characers") | 5857 | (message "Entities are displayed as UTF8 characters") |
| 5858 | (save-restriction | 5858 | (save-restriction |
| 5859 | (widen) | 5859 | (widen) |
| 5860 | (org-decompose-region (point-min) (point-max)) | 5860 | (org-decompose-region (point-min) (point-max)) |
| @@ -11441,7 +11441,7 @@ changes. Such blocking occurs when: | |||
| 11441 | (forward-line 1) | 11441 | (forward-line 1) |
| 11442 | (re-search-forward org-not-done-heading-regexp pos t)) | 11442 | (re-search-forward org-not-done-heading-regexp pos t)) |
| 11443 | (throw 'dont-block nil)) ; block, there is an older sibling not done. | 11443 | (throw 'dont-block nil)) ; block, there is an older sibling not done. |
| 11444 | ;; Search further up the hierarchy, to see if an anchestor is blocked | 11444 | ;; Search further up the hierarchy, to see if an ancestor is blocked |
| 11445 | (while t | 11445 | (while t |
| 11446 | (goto-char parent-pos) | 11446 | (goto-char parent-pos) |
| 11447 | (if (not (looking-at org-not-done-heading-regexp)) | 11447 | (if (not (looking-at org-not-done-heading-regexp)) |
| @@ -15123,7 +15123,7 @@ user." | |||
| 15123 | (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) | 15123 | (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) |
| 15124 | t nil ans))) | 15124 | t nil ans))) |
| 15125 | 15125 | ||
| 15126 | ;; Help matching dottet european dates | 15126 | ;; Help matching dotted european dates |
| 15127 | (when (string-match | 15127 | (when (string-match |
| 15128 | "^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\. ?\\([1-9][0-9][0-9][0-9]\\)?" ans) | 15128 | "^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\. ?\\([1-9][0-9][0-9][0-9]\\)?" ans) |
| 15129 | (setq year (if (match-end 3) | 15129 | (setq year (if (match-end 3) |