diff --git a/puml-mode.el b/puml-mode.el index 6f237e0..1aa2341 100644 --- a/puml-mode.el +++ b/puml-mode.el @@ -191,7 +191,10 @@ default output type for new buffers." (concat "-t" puml-output-type)) (defun puml-preview (prefix) - "Preview diagram." + "Preview diagram, using prefix (as PREFIX) to choose where to display it: +- 4 (when prefixing the command with C-u) -> new window +- 16 (when prefixing the command with C-u C-u) -> new frame. +- else -> new buffer" (interactive "p") (let ((b (get-buffer puml-preview-buffer))) (when b @@ -239,8 +242,6 @@ default output type for new buffers." ;; note: order matters )) - - (setq puml-plantuml-kwdList (make-hash-table :test 'equal)) (mapc (lambda (x) (puthash x t puml-plantuml-kwdList)) puml-plantuml-types) (mapc (lambda (x) (puthash x t puml-plantuml-kwdList)) puml-plantuml-keywords)