Mercurial > emacs

diff lisp/emacs-lisp/lisp.el @ 108143:624169215019

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* emacs-lisp/lisp.el (lisp-complete-symbol): Fail gracefully.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 27 Apr 2010 13:57:32 -0400
parents e61497621f0d
children 973b5bc5fcfe
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp.el	Tue Apr 27 11:13:42 2010 -0400
+++ b/lisp/emacs-lisp/lisp.el	Tue Apr 27 13:57:32 2010 -0400
@@ -624,9 +624,12 @@
   (interactive)
   (let* ((data (lisp-completion-at-point predicate))
          (plist (nthcdr 3 data)))
-    (let ((completion-annotate-function (plist-get plist :annotate-function)))
-      (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data)
-                            (plist-get plist :predicate)))))
+    (if (null data)
+        (minibuffer-message "Nothing to complete")
+      (let ((completion-annotate-function
+             (plist-get plist :annotate-function)))
+        (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data)
+                              (plist-get plist :predicate))))))
     
 
 (defun lisp-completion-at-point (&optional predicate)