Merge branch 'maint'
This commit is contained in:
commit
a9eec72ecf
|
@ -144,10 +144,12 @@
|
||||||
"$" "\\|"
|
"$" "\\|"
|
||||||
;; Tables (any type).
|
;; Tables (any type).
|
||||||
"\\(?:|\\|\\+-[-+]\\)" "\\|"
|
"\\(?:|\\|\\+-[-+]\\)" "\\|"
|
||||||
;; Blocks (any type), Babel calls, drawers (any type),
|
;; Blocks (any type), Babel calls and keywords. Note: this
|
||||||
;; fixed-width areas and keywords. Note: this is only an
|
;; is only an indication and need some thorough check.
|
||||||
;; indication and need some thorough check.
|
"#\\(?:[+ ]\\|$\\)" "\\|"
|
||||||
"[#:]" "\\|"
|
;; Drawers (any type) and fixed-width areas. This is also
|
||||||
|
;; only an indication.
|
||||||
|
":" "\\|"
|
||||||
;; Horizontal rules.
|
;; Horizontal rules.
|
||||||
"-\\{5,\\}[ \t]*$" "\\|"
|
"-\\{5,\\}[ \t]*$" "\\|"
|
||||||
;; LaTeX environments.
|
;; LaTeX environments.
|
||||||
|
|
|
@ -1226,8 +1226,9 @@ Returns value on success, else nil."
|
||||||
(let ((attr (file-attributes
|
(let ((attr (file-attributes
|
||||||
(expand-file-name (or (file-symlink-p file) file)
|
(expand-file-name (or (file-symlink-p file) file)
|
||||||
(file-name-directory file)))))
|
(file-name-directory file)))))
|
||||||
(+ (lsh (car (nth 5 attr)) 16)
|
(if (not attr) (error "No such file: \"%s\"" file)
|
||||||
(cadr (nth 5 attr)))))
|
(+ (lsh (car (nth 5 attr)) 16)
|
||||||
|
(cadr (nth 5 attr))))))
|
||||||
|
|
||||||
|
|
||||||
(provide 'ox-publish)
|
(provide 'ox-publish)
|
||||||
|
|
Loading…
Reference in New Issue