Mercurial > emacs
diff lisp/org/org-agenda.el @ 100605:0d3c634e0bd9
2008-12-20 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-get-refile-targets, org-refile-get-location): Use
expanded file name to improve comparison.
2008-12-20 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-scan-tags): Rescan for tags, to get the correct
upcase/downcase stuff. This slows things down for now, but it
works.
(org-mode): Make sure the tag-faces regexp is initialized.
* org-export-latex.el (org-export-latex-links): Fix bug with
undefined label.
* org-table.el (org-table-get-specials): Set
`org-table-current-last-data-line'.
(org-table-current-last-data-line): New variable.
(org-table-insert-column, org-table-delete-column)
(org-table-move-column, org-table-fix-formulas): Call
`org-table-fix-formulas' a second time to fix the $LR references.
(org-table-get-specials): Add the $LR references to the tables.
(org-table-get-formula): Do not offer last-row names as LHS of
formulas.
* org.el (org-store-link): Capture link description from
`org-id-store-link'.
* org-exp.el (org-export-html-format-image): Add the / to the end
of the <img> tag.
(org-export-format-source-code): Surround example by empty lines,
to make sure it will not be inside a paragraph.
* org.el (org-ido-switchb): New function.
2008-12-20 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-show): New prefix argument
FULL-ENTRY.
* org.el (org-sort-entries-or-items): Add a COMPARE-FUNC
argument.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Sat, 20 Dec 2008 14:32:06 +0000 |
parents | 9e7c4de60dcd |
children | a9dc0e7c3f2b |
line wrap: on
line diff
--- a/lisp/org/org-agenda.el Sat Dec 20 14:29:47 2008 +0000 +++ b/lisp/org/org-agenda.el Sat Dec 20 14:32:06 2008 +0000 @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.15d +;; Version: 6.16 ;; ;; This file is part of GNU Emacs. ;; @@ -4945,11 +4945,16 @@ (mouse-set-point ev) (org-agenda-goto)) -(defun org-agenda-show () - "Display the Org-mode file which contains the item at point." - (interactive) +(defun org-agenda-show (&optional full-entry) + "Display the Org-mode file which contains the item at point. +With prefix argument FULL-ENTRY, make the entire entry visible +if it was hidden in the outline." + (interactive "P") (let ((win (selected-window))) - (org-agenda-goto t) + (if full-entry + (let ((org-show-entry-below t)) + (org-agenda-goto t)) + (org-agenda-goto t)) (select-window win))) (defun org-agenda-recenter (arg) @@ -5079,12 +5084,10 @@ If FORCE-TAGS is non nil, the car of it returns the new tags." (let* ((inhibit-read-only t) (line (org-current-line)) - (thetags - (and hdmarker (markerp hdmarker) - (with-current-buffer (marker-buffer hdmarker) + (thetags (with-current-buffer (marker-buffer hdmarker) (save-excursion (save-restriction (widen) (goto-char hdmarker) - (org-get-tags-at)))))) + (org-get-tags-at))))) props m pl undone-face done-face finish new dotime cat tags) (save-excursion (goto-char (point-max))