emacs: src/fns.c comparison

comparison src/fns.c @ 18531:35a263e545b3

(Fy_or_n_p, Fyes_or_no_p): Obey use_dialog_box. (use_dialog_box): New variable, controls whether to use dialog boxes. (syms_of_fns): Set up Lisp variable. (concat): Use XCONS rather than Fcar, Fcdr--for known cons. (Fassq, assq_no_quit, Fassoc, Frassq, Frassoc, Fdelq): Likewise. (Fdelete, Fplist_get, mapcar1, Fmember, Fmemq): Likewise.

author	Richard M. Stallman <rms@gnu.org>
date	Wed, 02 Jul 1997 06:23:21 +0000
parents	618cc7b75c06
children	614b916ff5bf

comparison

equal deleted inserted replaced

-:94c18a43de33
+:35a263e545b3
 #include "window.h"
 #ifndef NULL
 #define NULL (void *)0
 #endif
+/* Nonzero enables use of dialog boxes for questions
+asked by mouse commands.  */
+int use_dialog_box;
 extern Lisp_Object Flookup_key ();
 extern int minibuffer_auto_raise;
 extern Lisp_Object minibuf_window;
 	  /* Fetch next element of `this' arg into `elt', or break if
 `this' is exhausted. */
 	  if (NILP (this)) break;
 	  if (CONSP (this))
-	    elt = Fcar (this), this = Fcdr (this);
+	    elt = XCONS (this)->car, this = XCONS (this)->cdr;
 	  else
 	    {
 	      if (thisindex >= thisleni) break;
 	      if (STRINGP (this))
 		XSETFASTINT (elt, XSTRING (this)->data[thisindex++]);
 (elt, list)
 register Lisp_Object elt;
 Lisp_Object list;
 {
 register Lisp_Object tail;
-for (tail = list; !NILP (tail); tail = Fcdr (tail))
+for (tail = list; !NILP (tail); tail = XCONS (tail)->cdr)
 {
 register Lisp_Object tem;
 tem = Fcar (tail);
 if (! NILP (Fequal (elt, tem)))
 	return tail;
 (elt, list)
 register Lisp_Object elt;
 Lisp_Object list;
 {
 register Lisp_Object tail;
-for (tail = list; !NILP (tail); tail = Fcdr (tail))
+for (tail = list; !NILP (tail); tail = XCONS (tail)->cdr)
 {
 register Lisp_Object tem;
 tem = Fcar (tail);
 if (EQ (elt, tem)) return tail;
 QUIT;
 (key, list)
 register Lisp_Object key;
 Lisp_Object list;
 {
 register Lisp_Object tail;
-for (tail = list; !NILP (tail); tail = Fcdr (tail))
+for (tail = list; !NILP (tail); tail = XCONS (tail)->cdr)
 {
 register Lisp_Object elt, tem;
 elt = Fcar (tail);
 if (!CONSP (elt)) continue;
-tem = Fcar (elt);
+tem = XCONS (elt)->car;
 if (EQ (key, tem)) return elt;
 QUIT;
 }
 return Qnil;
 }
 assq_no_quit (key, list)
 register Lisp_Object key;
 Lisp_Object list;
 {
 register Lisp_Object tail;
-for (tail = list; CONSP (tail); tail = Fcdr (tail))
+for (tail = list; CONSP (tail); tail = XCONS (tail)->cdr)
 {
 register Lisp_Object elt, tem;
 elt = Fcar (tail);
 if (!CONSP (elt)) continue;
-tem = Fcar (elt);
+tem = XCONS (elt)->car;
 if (EQ (key, tem)) return elt;
 }
 return Qnil;
 }
 (key, list)
 register Lisp_Object key;
 Lisp_Object list;
 {
 register Lisp_Object tail;
-for (tail = list; !NILP (tail); tail = Fcdr (tail))
+for (tail = list; !NILP (tail); tail = XCONS (tail)->cdr)
 {
 register Lisp_Object elt, tem;
 elt = Fcar (tail);
 if (!CONSP (elt)) continue;
-tem = Fequal (Fcar (elt), key);
+tem = Fequal (XCONS (elt)->car, key);
 if (!NILP (tem)) return elt;
 QUIT;
 }
 return Qnil;
 }
 (key, list)
 register Lisp_Object key;
 Lisp_Object list;
 {
 register Lisp_Object tail;
-for (tail = list; !NILP (tail); tail = Fcdr (tail))
+for (tail = list; !NILP (tail); tail = XCONS (tail)->cdr)
 {
 register Lisp_Object elt, tem;
 elt = Fcar (tail);
 if (!CONSP (elt)) continue;
-tem = Fcdr (elt);
+tem = XCONS (elt)->cdr;
 if (EQ (key, tem)) return elt;
 QUIT;
 }
 return Qnil;
 }
 (key, list)
 register Lisp_Object key;
 Lisp_Object list;
 {
 register Lisp_Object tail;
-for (tail = list; !NILP (tail); tail = Fcdr (tail))
+for (tail = list; !NILP (tail); tail = XCONS (tail)->cdr)
 {
 register Lisp_Object elt, tem;
 elt = Fcar (tail);
 if (!CONSP (elt)) continue;
-tem = Fequal (Fcdr (elt), key);
+tem = Fequal (XCONS (elt)->cdr, key);
 if (!NILP (tem)) return elt;
 QUIT;
 }
 return Qnil;
 }
 {
 tem = Fcar (tail);
 if (EQ (elt, tem))
 	{
 	  if (NILP (prev))
-	    list = Fcdr (tail);
+	    list = XCONS (tail)->cdr;
 	  else
-	    Fsetcdr (prev, Fcdr (tail));
+	    Fsetcdr (prev, XCONS (tail)->cdr);
 	}
 else
 	prev = tail;
-tail = Fcdr (tail);
+tail = XCONS (tail)->cdr;
 QUIT;
 }
 return list;
 }
 {
 tem = Fcar (tail);
 if (! NILP (Fequal (elt, tem)))
 	{
 	  if (NILP (prev))
-	    list = Fcdr (tail);
+	    list = XCONS (tail)->cdr;
 	  else
-	    Fsetcdr (prev, Fcdr (tail));
+	    Fsetcdr (prev, XCONS (tail)->cdr);
 	}
 else
 	prev = tail;
-tail = Fcdr (tail);
+tail = XCONS (tail)->cdr;
 QUIT;
 }
 return list;
 }
 (plist, prop)
 Lisp_Object plist;
 register Lisp_Object prop;
 {
 register Lisp_Object tail;
-for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail)))
+for (tail = plist; !NILP (tail); tail = Fcdr (XCONS (tail)->cdr))
 {
 register Lisp_Object tem;
 tem = Fcar (tail);
 if (EQ (prop, tem))
-	return Fcar (Fcdr (tail));
+	return Fcar (XCONS (tail)->cdr);
 }
 return Qnil;
 }
 DEFUN ("get", Fget, Sget, 2, 2, 0,
 {
 tail = seq;
 for (i = 0; i < leni; i++)
 	{
 	  vals[i] = call1 (fn, Fcar (tail));
-	  tail = Fcdr (tail);
+	  tail = XCONS (tail)->cdr;
 	}
 }
 UNGCPRO;
 }
 {
 #ifdef HAVE_MENUS
 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
+	  && use_dialog_box
 	  && have_menus_p ())
 	{
 	  Lisp_Object pane, menu;
 	  redisplay_preserve_echo_area ();
 	  pane = Fcons (Fcons (build_string ("Yes"), Qt),
 CHECK_STRING (prompt, 0);
 #ifdef HAVE_MENUS
 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
+&& use_dialog_box
 && have_menus_p ())
 {
 Lisp_Object pane, menu, obj;
 redisplay_preserve_echo_area ();
 pane = Fcons (Fcons (build_string ("Yes"), Qt),
 DEFVAR_LISP ("features", &Vfeatures,
 "A list of symbols which are the features of the executing emacs.\n\
 Used by `featurep' and `require', and altered by `provide'.");
 Vfeatures = Qnil;
+DEFVAR_BOOL ("use-dialog-box", &use_dialog_box,
+"*Non-nil means mouse commands use dialog boxes to ask questions.\n\
+This applies to y-or-n and yes-or-no questions asked by commands
+invoked by mouse clicks and mouse menu items.");
+use_dialog_box = 1;
 defsubr (&Sidentity);
 defsubr (&Srandom);
 defsubr (&Slength);
 defsubr (&Ssafe_length);

Mercurial > emacs

comparison src/fns.c @ 18531:35a263e545b3