mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 00:27:52 +00:00
org-archive: Make substring call compatible with Emacs 24
* lisp/org-archive.el (org-archive--compute-location): Pass 0 rather than nil for FROM for Emacs 24 compatibility.
This commit is contained in:
parent
92c3b76dd8
commit
c0f2d5d0bf
|
@ -164,7 +164,7 @@ an error if LOCATION is not a valid archive location."
|
||||||
(unless (string-match "::" location)
|
(unless (string-match "::" location)
|
||||||
(error "Invalid archive location: %S" location))
|
(error "Invalid archive location: %S" location))
|
||||||
(let ((current-file (buffer-file-name (buffer-base-buffer)))
|
(let ((current-file (buffer-file-name (buffer-base-buffer)))
|
||||||
(file-fmt (substring location nil (match-beginning 0)))
|
(file-fmt (substring location 0 (match-beginning 0)))
|
||||||
(heading-fmt (substring location (match-end 0))))
|
(heading-fmt (substring location (match-end 0))))
|
||||||
(cons
|
(cons
|
||||||
;; File part.
|
;; File part.
|
||||||
|
|
Loading…
Reference in a new issue