Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2021-04-27 10:21:53 +02:00
commit 17084f6425
1 changed files with 4 additions and 1 deletions

View File

@ -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