branch: externals/auctex
commit e9af4f1b72ef7753677df3f3787af6528cc83641
Author: Arash Esbati <ar...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
* style/fancyvrb.el: Replace dynamically bound `optional'.
---
style/fancyvrb.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/style/fancyvrb.el b/style/fancyvrb.el
index 8cadec5..adc3b7d 100644
--- a/style/fancyvrb.el
+++ b/style/fancyvrb.el
@@ -267,7 +267,7 @@ RECUSTOM is non-nil, delete macros from the variable
(TeX-arg-eval
(lambda ()
(let ((name (TeX-read-string
- (TeX-argument-prompt optional nil "Save
name"))))
+ (TeX-argument-prompt nil nil "Save name"))))
(LaTeX-add-fancyvrb-saveverbs name)
(format "%s" name))))
TeX-arg-verb))
@@ -281,7 +281,7 @@ RECUSTOM is non-nil, delete macros from the variable
`(,mac-name
(TeX-arg-eval
completing-read
- (TeX-argument-prompt optional nil "Saved name")
+ (TeX-argument-prompt nil nil "Saved name")
(LaTeX-fancyvrb-saveverb-list))))
(when (and (fboundp 'font-latex-add-keywords)
(eq TeX-install-font-lock 'font-latex-setup))
@@ -536,11 +536,11 @@ ENV is the name of current environment as a string."
'("Verb*" [TeX-arg-key-val LaTeX-fancyvrb-key-val-options-local]
TeX-arg-verb)
'("DefineShortVerb" (TeX-arg-eval
TeX-read-string
- (TeX-argument-prompt optional nil "Character")
+ (TeX-argument-prompt nil nil "Character")
TeX-esc))
'("UndefineShortVerb" (TeX-arg-eval
TeX-read-string
- (TeX-argument-prompt optional nil "Character")
+ (TeX-argument-prompt nil nil "Character")
TeX-esc))
;; Verbatim environments
'("fvset" (TeX-arg-key-val LaTeX-fancyvrb-key-val-options-local))
@@ -557,10 +557,10 @@ ENV is the name of current environment as a string."
LaTeX-fancyvrb-arg-define-environment)
'("RecustomVerbatimEnvironment"
(TeX-arg-eval completing-read
- (TeX-argument-prompt optional nil "Verbatim environment")
+ (TeX-argument-prompt nil nil "Verbatim environment")
LaTeX-fancyvrb-base-environments)
(TeX-arg-eval completing-read
- (TeX-argument-prompt optional nil "Based on environment")
+ (TeX-argument-prompt nil nil "Based on environment")
LaTeX-fancyvrb-base-environments)
(TeX-arg-key-val LaTeX-fancyvrb-key-val-options-local))
@@ -575,22 +575,22 @@ ENV is the name of current environment as a string."
(TeX-arg-eval
(lambda ()
(let ((name (TeX-read-string
- (TeX-argument-prompt optional nil "Save name"))))
+ (TeX-argument-prompt nil nil "Save name"))))
(LaTeX-add-fancyvrb-saveverbs name)
(format "%s" name))))
TeX-arg-verb)
'("UseVerb" (TeX-arg-eval
completing-read
- (TeX-argument-prompt optional nil "Saved name")
+ (TeX-argument-prompt nil nil "Saved name")
(LaTeX-fancyvrb-saveverb-list)))
'("UseVerbatim" (TeX-arg-eval completing-read
- (TeX-argument-prompt optional nil "Saved
name")
+ (TeX-argument-prompt nil nil "Saved name")
(LaTeX-fancyvrb-saveverbatim-list)))
'("LUseVerbatim" (TeX-arg-eval completing-read
- (TeX-argument-prompt optional nil "Saved
name")
+ (TeX-argument-prompt nil nil "Saved name")
(LaTeX-fancyvrb-saveverbatim-list)))
'("BUseVerbatim" (TeX-arg-eval completing-read
- (TeX-argument-prompt optional nil "Saved
name")
+ (TeX-argument-prompt nil nil "Saved name")
(LaTeX-fancyvrb-saveverbatim-list)))
;; Writing and reading verbatim files
