* wesnoth-mode.el (wesnoth-element-completion): Fix leaky macro. Fix a bug
authorChris Mann <chpln@internode.on.net>
Wed, 4 Mar 2009 09:41:28 +0000 (4 20:11 +1030)
committerChris Mann <chpln@internode.on.net>
Wed, 4 Mar 2009 09:41:28 +0000 (4 20:11 +1030)
  where when only a single element is available for insertion, nil is
  returned.

wesnoth-mode.el

index 5e4468e..cfd0627 100644 (file)
@@ -477,7 +477,7 @@ If COMPLETEP is non-nil, do not prompt if no completion is found."
   `(let* ((element (when ,partial (try-completion ,partial ,completions))))
      (cond ((eq element t)
            ,partial)
-          ((and completep (null element))
+          ((and ,completep (null element))
            nil)
           ((and element (eq (try-completion element ,completions) t))
            element)
@@ -485,6 +485,8 @@ If COMPLETEP is non-nil, do not prompt if no completion is found."
            (completing-read ,prompt ,completions
                             nil nil element
                             'wesnoth-history-list))
+           ((= (length ,completions) 1)
+            (car ,completions))
           (t
            element))))