Mercurial > hg > xemacs-beta

diff src/minibuf.c @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents 376386a54a3c
children 0293115a14e9
line wrap: on
line diff
--- a/src/minibuf.c	Mon Aug 13 08:48:18 2007 +0200
+++ b/src/minibuf.c	Mon Aug 13 08:48:42 2007 +0200
@@ -352,7 +352,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)