Commit 6824727e authored by Dave Love's avatar Dave Love
Browse files

(mm-uu-configure): Unquote lambda.

(mm-uu-configure-list): Doc fix.
parent 117b4b78
......@@ -100,19 +100,20 @@ This can be either \"inline\" or \"attachment\".")
(defun mm-uu-configure (&optional symbol value)
(if symbol (set-default symbol value))
(setq mm-uu-begin-line nil)
(mapcar '(lambda (type)
(if (mm-uu-configure-p type 'disabled)
nil
(setq mm-uu-begin-line
(concat mm-uu-begin-line
(if mm-uu-begin-line "\\|")
(symbol-value
(intern (concat "mm-uu-" (symbol-name type)
"-begin-line")))))))
(mapcar (lambda (type)
(if (mm-uu-configure-p type 'disabled)
nil
(setq mm-uu-begin-line
(concat mm-uu-begin-line
(if mm-uu-begin-line "\\|")
(symbol-value
(intern (concat "mm-uu-" (symbol-name type)
"-begin-line")))))))
'(uu postscript binhex shar forward)))
;; Needs to come after mm-uu-configure.
(defcustom mm-uu-configure-list nil
"A list of mm-uu configuration.
"Alist of mm-uu configurations to disable.
To disable dissecting shar codes, for instance, add
`(shar . disabled)' to this list."
:type '(repeat (choice (const :tag "postscript" (postscript . disabled))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment