Merge branch 'maint'
This commit is contained in:
commit
3b6f386795
|
@ -17961,9 +17961,9 @@ This requires Emacs >= 24.1, build with imagemagick support."
|
|||
|
||||
(defcustom org-agenda-inhibit-startup nil
|
||||
"Inhibit startup when preparing agenda buffers.
|
||||
When this variable is `t' (the default), the initialization of
|
||||
the Org agenda buffers is inhibited: e.g. the visibility state
|
||||
is not set, the tables are not re-aligned, etc."
|
||||
When this variable is `t', the initialization of the Org agenda
|
||||
buffers is inhibited: e.g. the visibility state is not set, the
|
||||
tables are not re-aligned, etc."
|
||||
:type 'boolean
|
||||
:version "24.3"
|
||||
:group 'org-agenda)
|
||||
|
|
|
@ -806,11 +806,18 @@ Default for SITEMAP-FILENAME is 'sitemap.org'."
|
|||
"Find the title of FILE in project."
|
||||
(or
|
||||
(and (not reset) (org-publish-cache-get-file-property file :title nil t))
|
||||
(let* ((visiting (find-buffer-visiting file))
|
||||
(let* ((org-inhibit-startup t)
|
||||
(visiting (find-buffer-visiting file))
|
||||
(buffer (or visiting (find-file-noselect file))))
|
||||
(with-current-buffer buffer
|
||||
(let ((title
|
||||
(let ((property (plist-get (org-export-get-environment) :title)))
|
||||
(let ((property
|
||||
(plist-get
|
||||
;; protect local variables in open buffers
|
||||
(if visiting
|
||||
(org-export-with-buffer-copy (org-export-get-environment))
|
||||
(org-export-get-environment))
|
||||
:title)))
|
||||
(if property
|
||||
(org-no-properties (org-element-interpret-data property))
|
||||
(file-name-nondirectory (file-name-sans-extension file))))))
|
||||
|
@ -825,11 +832,14 @@ If FILE is an Org file and provides a DATE keyword use it. In
|
|||
any other case use the file system's modification time. Return
|
||||
time in `current-time' format."
|
||||
(if (file-directory-p file) (nth 5 (file-attributes file))
|
||||
(let* ((visiting (find-buffer-visiting file))
|
||||
(let* ((org-inhibit-startup t)
|
||||
(visiting (find-buffer-visiting file))
|
||||
(file-buf (or visiting (find-file-noselect file nil)))
|
||||
(date (plist-get
|
||||
(with-current-buffer file-buf
|
||||
(org-export-get-environment))
|
||||
(if visiting
|
||||
(org-export-with-buffer-copy (org-export-get-environment))
|
||||
(org-export-get-environment)))
|
||||
:date)))
|
||||
(unless visiting (kill-buffer file-buf))
|
||||
;; DATE is either a timestamp object or a secondary string. If it
|
||||
|
|
Loading…
Reference in New Issue