Backport commit 6711a21 from Emacs master branch
* lisp/org-compat.el (org-font-lock-ensure): New function. * lisp/ox-odt.el (org-odt-do-format-code): * lisp/ox-html.el (org-html-fontify-code): * lisp/org.el (org-fontify-like-in-org-mode): * lisp/org-src.el (org-src-font-lock-fontify-block): * lisp/org-clock.el (org-clock-get-clocktable): Use it. * lisp/ox-org.el (org-org-publish-to-org): Use it. Avoid using find-file from Elisp. 6711a21f1125c0047c56eb266eb374c1ec90a967 Stefan Monnier Wed May 28 23:45:29 2014 -0400
This commit is contained in:
parent
a55b5a4269
commit
d81e6b52b7
|
@ -1929,7 +1929,7 @@ fontified, and then returned."
|
|||
(org-mode)
|
||||
(org-create-dblock props)
|
||||
(org-update-dblock)
|
||||
(font-lock-fontify-buffer)
|
||||
(org-font-lock-ensure)
|
||||
(forward-line 2)
|
||||
(buffer-substring (point) (progn
|
||||
(re-search-forward "^[ \t]*#\\+END" nil t)
|
||||
|
|
|
@ -474,6 +474,11 @@ LIMIT."
|
|||
(looking-at (concat "\\(?:" regexp "\\)\\'")))))
|
||||
(not (null pos)))))
|
||||
|
||||
(defalias 'org-font-lock-ensure
|
||||
(if (fboundp 'org-font-lock-ensure)
|
||||
#'font-lock-ensure
|
||||
(lambda (_beg _end) (font-lock-fontify-buffer))))
|
||||
|
||||
(defun org-floor* (x &optional y)
|
||||
"Return a list of the floor of X and the fractional part of X.
|
||||
With two arguments, return floor and remainder of their quotient."
|
||||
|
|
|
@ -921,7 +921,7 @@ fontification of code blocks see `org-src-fontify-block' and
|
|||
(delete-region (point-min) (point-max))
|
||||
(insert string " ") ;; so there's a final property change
|
||||
(unless (eq major-mode lang-mode) (funcall lang-mode))
|
||||
(font-lock-fontify-buffer)
|
||||
(org-font-lock-ensure)
|
||||
(setq pos (point-min))
|
||||
(while (setq next (next-single-property-change pos 'face))
|
||||
(put-text-property
|
||||
|
|
|
@ -6371,7 +6371,7 @@ needs to be inserted at a specific position in the font-lock sequence.")
|
|||
(insert s)
|
||||
(let ((org-odd-levels-only odd-levels))
|
||||
(org-mode)
|
||||
(font-lock-fontify-buffer)
|
||||
(org-font-lock-ensure)
|
||||
(buffer-string))))
|
||||
|
||||
(defvar org-m nil)
|
||||
|
|
|
@ -1855,7 +1855,7 @@ is the language used for CODE, as a string, or nil."
|
|||
(funcall lang-mode)
|
||||
(insert code)
|
||||
;; Fontify buffer.
|
||||
(font-lock-fontify-buffer)
|
||||
(org-font-lock-ensure)
|
||||
;; Remove formatting on newline characters.
|
||||
(save-excursion
|
||||
(let ((beg (point-min))
|
||||
|
|
|
@ -3139,7 +3139,7 @@ and prefix with \"OrgSrc\". For example,
|
|||
(with-temp-buffer
|
||||
(insert code)
|
||||
(funcall lang-mode)
|
||||
(font-lock-fontify-buffer)
|
||||
(org-font-lock-ensure)
|
||||
(buffer-string))))
|
||||
(fontifier (if use-htmlfontify-p 'org-odt-htmlfontify-string
|
||||
'org-odt--encode-plain-text))
|
||||
|
|
|
@ -251,12 +251,13 @@ Return output file name."
|
|||
(html-ext (concat "." (or (plist-get plist :html-extension)
|
||||
org-html-extension "html")))
|
||||
(visitingp (find-buffer-visiting filename))
|
||||
(work-buffer (or visitingp (find-file filename)))
|
||||
(work-buffer (or visitingp (find-file-noselect filename)))
|
||||
newbuf)
|
||||
(font-lock-fontify-buffer)
|
||||
(show-all)
|
||||
(org-show-block-all)
|
||||
(setq newbuf (htmlize-buffer))
|
||||
(with-current-buffer work-buffer
|
||||
(org-font-lock-ensure)
|
||||
(show-all)
|
||||
(org-show-block-all)
|
||||
(setq newbuf (htmlize-buffer)))
|
||||
(with-current-buffer newbuf
|
||||
(when org-org-htmlized-css-url
|
||||
(goto-char (point-min))
|
||||
|
@ -265,10 +266,12 @@ Return output file name."
|
|||
(replace-match
|
||||
(format
|
||||
"<link rel=\"stylesheet\" type=\"text/css\" href=\"%s\">"
|
||||
org-org-htmlized-css-url) t t)))
|
||||
org-org-htmlized-css-url)
|
||||
t t)))
|
||||
(write-file (concat pub-dir (file-name-nondirectory filename) html-ext)))
|
||||
(kill-buffer newbuf)
|
||||
(unless visitingp (kill-buffer work-buffer)))
|
||||
;; FIXME: Why? Which buffer is this supposed to apply to?
|
||||
(set-buffer-modified-p nil)))
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue