Merge branch 'maint'
This commit is contained in:
commit
17084f6425
|
@ -6446,7 +6446,10 @@ Return file name as a string."
|
|||
(throw :found
|
||||
(org-element-property :value element))))))))
|
||||
;; Extract from buffer's associated file, if any.
|
||||
(and visited-file (file-name-nondirectory visited-file))
|
||||
(and visited-file
|
||||
(file-name-nondirectory
|
||||
;; For a .gpg visited file, remove the .gpg extension:
|
||||
(replace-regexp-in-string "\\.gpg\\'" "" visited-file)))
|
||||
;; Can't determine file name on our own: ask user.
|
||||
(read-file-name
|
||||
"Output file: " pub-dir nil nil nil
|
||||
|
|
Loading…
Reference in New Issue