Mercurial > hg > xemacs-beta

comparison src/callint.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 7039e6323819
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
51 even if mark_active is 0. */ 51 even if mark_active is 0. */
52 Lisp_Object Vmark_even_if_inactive; 52 Lisp_Object Vmark_even_if_inactive;
53 #endif 53 #endif
54 54
55 #if 0 /* ill-conceived */ 55 #if 0 /* ill-conceived */
56 /* FSF calls Qmouse_leave_buffer_hook at all sorts of random places,
57 including a bunch of places in their mouse.el. If this is
58 implemented, it has to be done cleanly. */
56 Lisp_Object Vmouse_leave_buffer_hook, Qmouse_leave_buffer_hook; 59 Lisp_Object Vmouse_leave_buffer_hook, Qmouse_leave_buffer_hook;
57 #endif 60 #endif
58 61
59 Lisp_Object QletX, Qsave_excursion; 62 Lisp_Object QletX, Qsave_excursion;
60 63
805 arg_from_tty = 1; 808 arg_from_tty = 1;
806 break; 809 break;
807 } 810 }
808 case 'S': /* Any symbol. */ 811 case 'S': /* Any symbol. */
809 { 812 {
810 #if 0 /* Historical crock */
811 Lisp_Object tem = intern ("minibuffer-local-ns-map");
812 tem = find_symbol_value (tem);
813 if (UNBOUNDP (tem)) tem = Qnil;
814 tem = call3 (Qread_from_minibuffer, PROMPT (), Qnil,
815 tem);
816 args[argnum] = Fintern (tem, Qnil);
817 #else /* 1 */
818 visargs[argnum] = Qnil; 813 visargs[argnum] = Qnil;
819 for (;;) 814 for (;;)
820 { 815 {
821 Lisp_Object tem = call5 (Qcompleting_read, 816 Lisp_Object tem = call5 (Qcompleting_read,
822 PROMPT (), 817 PROMPT (),
835 /* Don't accept the empty-named symbol. If the loser 830 /* Don't accept the empty-named symbol. If the loser
836 really wants this s/he can call completing-read 831 really wants this s/he can call completing-read
837 directly */ 832 directly */
838 break; 833 break;
839 } 834 }
840 #endif /* 1 */
841 arg_from_tty = 1; 835 arg_from_tty = 1;
842 break; 836 break;
843 } 837 }
844 case 'v': /* Variable name: user-variable-p symbol */ 838 case 'v': /* Variable name: user-variable-p symbol */
845 { 839 {
950 return unbind_to (speccount, fun); 944 return unbind_to (speccount, fun);
951 } 945 }
952 } 946 }
953 947
954 DEFUN ("prefix-numeric-value", Fprefix_numeric_value, 1, 1, 0, /* 948 DEFUN ("prefix-numeric-value", Fprefix_numeric_value, 1, 1, 0, /*
955 Return numeric meaning of raw prefix argument ARG. 949 Return numeric meaning of raw prefix argument RAW.
956 A raw prefix argument is what you get from `(interactive "P")'. 950 A raw prefix argument is what you get from `(interactive "P")'.
957 Its numeric meaning is what you would get from `(interactive "p")'. 951 Its numeric meaning is what you would get from `(interactive "p")'.
958 */ 952 */
959 (raw)) 953 (raw))
960 { 954 {