diff options
| author | Glenn Morris | 2008-08-10 01:27:40 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-08-10 01:27:40 +0000 |
| commit | 3281cf1113b9d1f2a724707bdcb5201dea3bad47 (patch) | |
| tree | a046216a305f8ca72adf47c64c8ae3700f86ff7a | |
| parent | 3bf7bbe47a478addcd4e68a77d1252c59beb54e3 (diff) | |
| download | emacs-3281cf1113b9d1f2a724707bdcb5201dea3bad47.tar.gz emacs-3281cf1113b9d1f2a724707bdcb5201dea3bad47.zip | |
(org-renumber-ordered-list): Fix bob/bobp typo.
(org-extract-attributes): Let-bind `key', `value'.
(org-make-tags-matcher): Let-bind `time-p'.
| -rw-r--r-- | lisp/org/org.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org/org.el b/lisp/org/org.el index f5598144d6f..79cb5cf4794 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el | |||
| @@ -6042,7 +6042,7 @@ with something like \"1.\" or \"2)\"." | |||
| 6042 | (buffer-substring (point-at-bol) (match-beginning 3)))) | 6042 | (buffer-substring (point-at-bol) (match-beginning 3)))) |
| 6043 | ;; (term (substring (match-string 3) -1)) | 6043 | ;; (term (substring (match-string 3) -1)) |
| 6044 | ind1 (n (1- arg)) | 6044 | ind1 (n (1- arg)) |
| 6045 | fmt bob) | 6045 | fmt bobp) |
| 6046 | ;; find where this list begins | 6046 | ;; find where this list begins |
| 6047 | (org-beginning-of-item-list) | 6047 | (org-beginning-of-item-list) |
| 6048 | (setq bobp (bobp)) | 6048 | (setq bobp (bobp)) |
| @@ -7031,7 +7031,7 @@ used as the link location instead of reading one interactively." | |||
| 7031 | 7031 | ||
| 7032 | (defun org-extract-attributes (s) | 7032 | (defun org-extract-attributes (s) |
| 7033 | "Extract the attributes cookie from a string and set as text property." | 7033 | "Extract the attributes cookie from a string and set as text property." |
| 7034 | (let (a attr (start 0)) | 7034 | (let (a attr key value (start 0)) |
| 7035 | (save-match-data | 7035 | (save-match-data |
| 7036 | (when (string-match "{{\\([^}]+\\)}}$" s) | 7036 | (when (string-match "{{\\([^}]+\\)}}$" s) |
| 7037 | (setq a (match-string 1 s) s (substring s 0 (match-beginning 0))) | 7037 | (setq a (match-string 1 s) s (substring s 0 (match-beginning 0))) |
| @@ -9436,7 +9436,7 @@ also TODO lines." | |||
| 9436 | minus tag mm | 9436 | minus tag mm |
| 9437 | tagsmatch todomatch tagsmatcher todomatcher kwd matcher | 9437 | tagsmatch todomatch tagsmatcher todomatcher kwd matcher |
| 9438 | orterms term orlist re-p str-p level-p level-op | 9438 | orterms term orlist re-p str-p level-p level-op |
| 9439 | prop-p pn pv po cat-p gv) | 9439 | prop-p pn pv po cat-p gv time-p) |
| 9440 | (if (string-match "/+" match) | 9440 | (if (string-match "/+" match) |
| 9441 | ;; match contains also a todo-matching request | 9441 | ;; match contains also a todo-matching request |
| 9442 | (progn | 9442 | (progn |