From ce6745de86bbc0e38923f316adfd31a8e2ab7bf6 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 7 Apr 2008 15:56:17 +0200 Subject: [PATCH] Bug fixes. --- lisp/org-infojs.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/org-infojs.el b/lisp/org-infojs.el index c9911c400..090662d2f 100644 --- a/lisp/org-infojs.el +++ b/lisp/org-infojs.el @@ -71,6 +71,7 @@ line in the buffer. See also the variable `org-infojs-options'." (mouse MOUSE_HINT "underline") (runs MAX_RUNS "5") (buttons VIEW_BUTTONS "0") + (ltoc LOCAL_TOC "1") (up LINK_UP :link-up) (home LINK_HOME :link-home)) "JavaScript options, long form for script, default values.") @@ -147,6 +148,12 @@ Option settings will replace the %MANAGER-OPTIONS cookie." (plist-put exp-plist :style (concat (or (plist-get exp-plist :style) "") "\n" s))))) + ;; This script absolutely needs the table of contents, to we change that + ;; setting + (if (not (plist-get exp-plist :table-of-contents)) + (setq exp-plist (plist-put exp-plist :table-of-contents t))) + + ;; Return the modified property list exp-plist))) (provide 'org-infojs)