Mercurial > hg > xemacs-beta

diff src/minibuf.c @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents 131b0175ea99
children fe104dbd9147
line wrap: on
line diff
--- a/src/minibuf.c	Mon Aug 13 09:05:44 2007 +0200
+++ b/src/minibuf.c	Mon Aug 13 09:06:37 2007 +0200
@@ -348,7 +348,12 @@
 	{
 	  if (!ZEROP (bucket))
 	    {
-              struct Lisp_Symbol *next = symbol_next (XSYMBOL (bucket));
+              struct Lisp_Symbol *next;
+	      if (!SYMBOLP (bucket)) {
+		signal_simple_error("Bad obarry passed to try-completions",
+				    bucket);
+	      }
+	      next = symbol_next (XSYMBOL (bucket));
 	      elt = bucket;
 	      eltstring = Fsymbol_name (elt);
               if (next)