Mercurial > emacs
comparison lisp/org/org-colview.el @ 101568:f5aedb5cbd80
2009-01-27 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-todo): Return correct state type even if the blocker
throws an error.
(org-modifier-cursor-error): Renamed from
`org-shiftcursor-error'.
(org-shiftmetaleft, org-shiftmetaright, org-shiftmetaup)
(org-shiftmetadown): Call `org-modifier-cursor-error'.
* org-agenda.el (org-agenda-todo): Call `org-todo' interactively,
to get real errors from the blocker hook.
* org.el (org-shiftselect-error, org-call-for-shift-select): New
functions.
(org-set-visibility-according-to-property): Turn off the setting
of `org-show-entry-below', to avoid overruling a FOLDED visibility
property.
* org.el (org-support-shift-select): New option.
(org-shiftup, org-shiftdown, org-shiftright, org-shiftleft)
(org-shiftcontrolright, org-shiftcontrolleft): Support for shift
selection outside contexts.
* org-list.el (org-at-item-bullet-p): New function.
* org-jsinfo.el (org-infojs-handle-options): Remove unnecessary
variables.
* org-footnote.el (org-footnote-normalize): Remove unnecessary
variable.
(org-insert-footnote-reference-near-definition): Remove
unnecessary let form.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Tue, 27 Jan 2009 11:38:21 +0000 |
parents | 64ef70f990a9 |
children | 59ea090317cd |
comparison
equal
deleted
inserted
replaced
101567:1a1c4c8eb2c8 | 101568:f5aedb5cbd80 |
---|---|
4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Carsten Dominik <carsten at orgmode dot org> | 6 ;; Author: Carsten Dominik <carsten at orgmode dot org> |
7 ;; Keywords: outlines, hypermedia, calendar, wp | 7 ;; Keywords: outlines, hypermedia, calendar, wp |
8 ;; Homepage: http://orgmode.org | 8 ;; Homepage: http://orgmode.org |
9 ;; Version: 6.19a | 9 ;; Version: 6.19e |
10 ;; | 10 ;; |
11 ;; This file is part of GNU Emacs. | 11 ;; This file is part of GNU Emacs. |
12 ;; | 12 ;; |
13 ;; GNU Emacs is free software: you can redistribute it and/or modify | 13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
14 ;; it under the terms of the GNU General Public License as published by | 14 ;; it under the terms of the GNU General Public License as published by |
147 (color (list :foreground (face-attribute ref-face :foreground))) | 147 (color (list :foreground (face-attribute ref-face :foreground))) |
148 (face (list color 'org-column ref-face)) | 148 (face (list color 'org-column ref-face)) |
149 (face1 (list color 'org-agenda-column-dateline ref-face)) | 149 (face1 (list color 'org-agenda-column-dateline ref-face)) |
150 (pl (or (get-text-property (point-at-bol) 'prefix-length) 0)) | 150 (pl (or (get-text-property (point-at-bol) 'prefix-length) 0)) |
151 (cphr (get-text-property (point-at-bol) 'org-complex-heading-regexp)) | 151 (cphr (get-text-property (point-at-bol) 'org-complex-heading-regexp)) |
152 pom property ass width f string ov column val modval s1 s2 title) | 152 pom property ass width f string ov column val modval s2 title) |
153 ;; Check if the entry is in another buffer. | 153 ;; Check if the entry is in another buffer. |
154 (unless props | 154 (unless props |
155 (if (eq major-mode 'org-agenda-mode) | 155 (if (eq major-mode 'org-agenda-mode) |
156 (setq pom (or (get-text-property (point) 'org-hd-marker) | 156 (setq pom (or (get-text-property (point) 'org-hd-marker) |
157 (get-text-property (point) 'org-marker)) | 157 (get-text-property (point) 'org-marker)) |