Merge pull request #7 from davazp/fix-dont-use-equalp

Use eq to compare symbols
This commit is contained in:
Carlo Sciolla 2015-09-26 11:20:43 +02:00
commit ee1eaeb0ac
1 changed files with 1 additions and 2 deletions

View File

@ -126,8 +126,7 @@
(defun puml-is-image-output-p () (defun puml-is-image-output-p ()
"Return true if the diagram output format is an image, false if it's text based." "Return true if the diagram output format is an image, false if it's text based."
(not (equalp 'utxt (not (eq 'utxt (puml-output-type))))
(puml-output-type))))
(defun puml-output-type-opt () (defun puml-output-type-opt ()
"Create the flag to pass to PlantUML to produce the selected output format." "Create the flag to pass to PlantUML to produce the selected output format."