From 65c439fd68997aa8f44cad817d09f97c35b0635c Mon Sep 17 00:00:00 2001 From: Carsten Dominik <dominik@science.uva.nl> Date: Tue, 27 Jan 2009 11:39:48 +0000 Subject: 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. --- lisp/org/org-jsinfo.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/org/org-jsinfo.el') diff --git a/lisp/org/org-jsinfo.el b/lisp/org/org-jsinfo.el index 39462cf3266..d2b49a007d4 100644 --- a/lisp/org/org-jsinfo.el +++ b/lisp/org/org-jsinfo.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.19a +;; Version: 6.19e ;; ;; This file is part of GNU Emacs. ;; @@ -130,7 +130,7 @@ Option settings will replace the %MANAGER-OPTIONS cookie." (let ((template org-infojs-template) (ptoc (plist-get exp-plist :table-of-contents)) (hlevels (plist-get exp-plist :headline-levels)) - tdepth sdepth p1 s p v a1 tmp e opt var val table default) + tdepth sdepth s v e opt var val table default) (setq sdepth hlevels tdepth hlevels) (if (integerp ptoc) (setq tdepth (min ptoc tdepth))) -- cgit v1.2.3