ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fixes.

This commit is contained in:
Carsten Dominik 2008-04-07 15:56:17 +02:00
parent ac57484d94
commit ce6745de86
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-infojs.el
View File

@ -71,6 +71,7 @@ line in the buffer. See also the variable `org-infojs-options'."
(mouse MOUSE_HINT "underline") (mouse MOUSE_HINT "underline")
(runs MAX_RUNS "5") (runs MAX_RUNS "5")
(buttons VIEW_BUTTONS "0") (buttons VIEW_BUTTONS "0")
(ltoc LOCAL_TOC "1")
(up LINK_UP :link-up) (up LINK_UP :link-up)
(home LINK_HOME :link-home)) (home LINK_HOME :link-home))
"JavaScript options, long form for script, default values.") "JavaScript options, long form for script, default values.")
@ -147,6 +148,12 @@ Option settings will replace the %MANAGER-OPTIONS cookie."
(plist-put (plist-put
exp-plist :style exp-plist :style
(concat (or (plist-get exp-plist :style) "") "\n" s))))) (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))) exp-plist)))
(provide 'org-infojs) (provide 'org-infojs)