xemacs-beta: src/minibuf.c annotate

annotate src/minibuf.c @ 5652:cc6f0266bc36

Avoid #'delq in core Lisp, for the sake of style, a very slightly smaller binary lisp/ChangeLog addition: 2012-05-01 Aidan Kehoe <kehoea@parhasard.net> Avoid #'delq in core code, for the sake of style and a (very slightly) smaller binary. * behavior.el (disable-behavior): * behavior.el (compute-behavior-group-children): * buff-menu.el (buffers-tab-items): * byte-optimize.el (byte-optimize-delay-constants-math): * byte-optimize.el (byte-optimize-logmumble): * byte-optimize.el (byte-decompile-bytecode-1): * byte-optimize.el (byte-optimize-lapcode): * bytecomp.el: * bytecomp.el (byte-compile-arglist-warn): * bytecomp.el (byte-compile-warn-about-unresolved-functions): * bytecomp.el (byte-compile-lambda): * bytecomp.el (byte-compile-out-toplevel): * bytecomp.el (byte-compile-insert): * bytecomp.el (byte-compile-defalias-warn): * cl-macs.el (cl-upcase-arg): * cl-macs.el (cl-transform-lambda): * cl-macs.el (cl-do-proclaim): * cl-macs.el (defstruct): * cl-macs.el (cl-make-type-test): * cl-macs.el (define-compiler-macro): * cl-macs.el (delete-duplicates): * cus-edit.el (widget-face-value-delete): * cus-edit.el (face-history): * easymenu.el (easy-menu-remove): * files.el (files-fetch-hook-value): * files.el (file-expand-wildcards): * font-lock.el (font-lock-update-removed-keyword-alist): * font-lock.el (font-lock-remove-keywords): * frame.el (frame-initialize): * frame.el (frame-notice-user-settings): * frame.el (set-frame-font): * frame.el (delete-other-frames): * frame.el (get-frame-for-buffer-noselect): * gnuserv.el (gnuserv-kill-buffer-function): * gnuserv.el (gnuserv-check-device): * gnuserv.el (gnuserv-kill-client): * gnuserv.el (gnuserv-buffer-done-1): * gtk-font-menu.el (gtk-reset-device-font-menus): * gutter-items.el (buffers-tab-items): * gutter.el (set-gutter-element-visible-p): * info.el (Info-find-file-node): * info.el (Info-history-add): * info.el (Info-build-annotation-completions): * info.el (Info-index): * info.el (Info-reannotate-node): * itimer.el (delete-itimer): * itimer.el (start-itimer): * lib-complete.el (lib-complete:cache-completions): * loadhist.el (unload-feature): * menubar-items.el (build-buffers-menu-internal): * menubar.el (delete-menu-item): * menubar.el (relabel-menu-item): * msw-font-menu.el (mswindows-reset-device-font-menus): * mule/make-coding-system.el (fixed-width-generate-helper): * next-error.el (next-error-find-buffer): * obsolete.el: * obsolete.el (find-non-ascii-charset-string): * obsolete.el (find-non-ascii-charset-region): * occur.el (multi-occur-by-filename-regexp): * occur.el (occur-1): * packages.el (packages-package-hierarchy-directory-names): * packages.el (package-get-key-1): * process.el (setenv): * simple.el (undo): * simple.el (handle-pre-motion-command-current-command-is-motion): * sound.el (load-sound-file): * wid-edit.el (widget-field-value-delete): * wid-edit.el (widget-checklist-match-inline): * wid-edit.el (widget-checklist-match-find): * wid-edit.el (widget-editable-list-delete-at): * wid-edit.el (widget-editable-list-entry-create): * window.el (quit-window): * x-font-menu.el (x-reset-device-font-menus-core): 1. Replace (delq nil (mapcar ....)) with analogous (mapcan ...) forms; this is in non-dumped files, it was done previously in dumped files. 2. Replace (delq FOO (copy-sequence BAR)) with (remove* FOO BAR), where #'eq and #'eql are equivalent 3. Replace (delq FOO BAR) with (delete* FOO BAR), where FOO is not a non-fixnum number. Saves a little space in the dumped file (since the compiler macro adds :test #'eq to the delete* call if it's not clear that FOO is not a non-fixnum number).

author	Aidan Kehoe <kehoea@parhasard.net>
date	Tue, 01 May 2012 16:17:42 +0100
parents	2014ff433daf
children	daf5accfe973

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 /* Minibuffer input and completion.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2 Copyright (C) 1985, 1986, 1992-1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 Copyright (C) 1995 Sun Microsystems, Inc.
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5089 diff changeset	4 Copyright (C) 2002, 2010 Ben Wing.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5139 diff changeset	8 XEmacs is free software: you can redistribute it and/or modify it
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9 under the terms of the GNU General Public License as published by the
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5139 diff changeset	10 Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5139 diff changeset	11 option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	12
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	17
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	18 You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5139 diff changeset	19 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21 /* Synched up with: Mule 2.0, FSF 19.28. Mule-ized except as noted.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	22 Substantially different from FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24 /* #### dmoore - All sorts of things in here can call lisp, like message.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25 Track all this stuff. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	27 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	28 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	29
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	30 #include "buffer.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	31 #include "commands.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	32 #include "console-stream.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	33 #include "events.h"
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	34 #include "frame-impl.h"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	35 #include "insdel.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	36 #include "redisplay.h"
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	37 #include "window-impl.h"
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	38 #include "elhash.h"
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	39
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	40 /* Depth in minibuffer invocations. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	41 int minibuf_level;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	42
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43 Lisp_Object Qcompletion_ignore_case;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	44
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	45 /* Nonzero means completion ignores case. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	46 int completion_ignore_case;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	47
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	48 /* List of regexps that should restrict possible completions. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	49 Lisp_Object Vcompletion_regexp_list;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	50
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	51 /* The echo area buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	52 Lisp_Object Vecho_area_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	53
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	54 /* Prompt to display in front of the minibuffer contents */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	55 Lisp_Object Vminibuf_prompt;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	56
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	57 /* Added on 97/3/14 by Jareth Hein (jhod@po.iijnet.or.jp) for input system support */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	58 /* String to be displayed in front of prompt of the minibuffer contents */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	59 Lisp_Object Vminibuf_preprompt;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	60
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	61 /* Hook to run just after entry to minibuffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	62 Lisp_Object Qminibuffer_setup_hook, Vminibuffer_setup_hook;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	63
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	64 Lisp_Object Qappend_message, Qcurrent_message_label,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	65 Qclear_message, Qdisplay_message;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	66
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	67
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	68 DEFUN ("minibuffer-depth", Fminibuffer_depth, 0, 0, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	69 Return current depth of activations of minibuffer, a nonnegative integer.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	70 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	71 ())
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	72 {
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	73 return make_fixnum (minibuf_level);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	74 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	75
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	76 /* The default buffer to use as the window-buffer of minibuffer windows */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	77 /* Note there is special code in kill-buffer to make this unkillable */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	78 Lisp_Object Vminibuffer_zero;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	79
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	80
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	81 /* Actual minibuffer invocation. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	82
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	83 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	84 read_minibuffer_internal_unwind (Lisp_Object unwind_data)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	85 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	86 Lisp_Object frame;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	87 XWINDOW (minibuf_window)->last_modified[CURRENT_DISP] = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	88 XWINDOW (minibuf_window)->last_modified[DESIRED_DISP] = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	89 XWINDOW (minibuf_window)->last_modified[CMOTION_DISP] = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	90 XWINDOW (minibuf_window)->last_facechange[CURRENT_DISP] = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	91 XWINDOW (minibuf_window)->last_facechange[DESIRED_DISP] = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	92 XWINDOW (minibuf_window)->last_facechange[CMOTION_DISP] = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	93 Vminibuf_prompt = Felt (unwind_data, Qzero);
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	94 minibuf_level = XFIXNUM (Felt (unwind_data, make_fixnum (1)));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	95 while (CONSP (unwind_data))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	96 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	97 Lisp_Object victim = unwind_data;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	98 unwind_data = XCDR (unwind_data);
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 826 diff changeset	99 free_cons (victim);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	100 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	101
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	102 /* If cursor is on the minibuffer line,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	103 show the user we have exited by putting it in column 0. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	104 frame = Fselected_frame (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	105 if (!noninteractive
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	106 && !NILP (frame)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	107 && !NILP (XFRAME (frame)->minibuffer_window))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	108 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	109 struct window *w = XWINDOW (XFRAME (frame)->minibuffer_window);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	110 redisplay_move_cursor (w, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	111 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	112
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	113 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	114 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	115
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	116 /* 97/4/13 jhod: Added for input methods */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	117 DEFUN ("set-minibuffer-preprompt", Fset_minibuffer_preprompt, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	118 Set the minibuffer preprompt string to PREPROMPT. This is used by language
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	119 input methods to relay state information to the user.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	120 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	121 (preprompt))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	122 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	123 if (NILP (preprompt))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	124 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	125 Vminibuf_preprompt = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	126 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	127 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	128 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	129 CHECK_STRING (preprompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	130
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	131 Vminibuf_preprompt = LISP_GETTEXT (preprompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	132 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	133 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	134 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	135
2268 61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 872 diff changeset	136 DEFUN_NORETURN ("read-minibuffer-internal", Fread_minibuffer_internal,
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 872 diff changeset	137 1, 1, 0, /*
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	138 Lowest-level interface to minibuffers. Don't call this.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	139 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	140 (prompt))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	141 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	142 /* This function can GC */
2268 61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 872 diff changeset	143
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 872 diff changeset	144 /* We used to record the specpdl_depth here, but since call_command_loop
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 872 diff changeset	145 never returns, we can never call unbind_to_1. Since we exit via a throw,
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 872 diff changeset	146 we let whoever catches unbind for us. */
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 872 diff changeset	147
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	148 CHECK_STRING (prompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	149
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	150 single_console_state ();
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	151
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	152 record_unwind_protect (read_minibuffer_internal_unwind,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	153 noseeum_cons
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	154 (Vminibuf_prompt,
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	155 noseeum_cons (make_fixnum (minibuf_level), Qnil)));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	156 Vminibuf_prompt = LISP_GETTEXT (prompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	157
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	158 /* NOTE: Here (or somewhere around here), in FSFmacs 19.30,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	159 choose_minibuf_frame() is called. This is the only
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	160 place in FSFmacs that it's called any more -- there's
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	161 also a call in xterm.c, but commented out, and 19.28
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	162 had the calls in different places.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	163
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	164 choose_minibuf_frame() does the following:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	165
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	166 if (!EQ (minibuf_window, selected_frame()->minibuffer_window))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	167 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	168 Fset_window_buffer (selected_frame()->minibuffer_window,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	169 XWINDOW (minibuf_window)->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	170 minibuf_window = selected_frame()->minibuffer_window;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	171 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	172
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	173 #### Note that we don't do the set-window-buffer. This call is
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	174 similar, but not identical, to a set-window-buffer call made
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	175 in `read-from-minibuffer' in minibuf.el. I hope it's close
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	176 enough, because minibuf_window isn't really exported to Lisp.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	177
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	178 The comment above choose_minibuf_frame() reads:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	179
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	180 Put minibuf on currently selected frame's minibuffer.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	181 We do this whenever the user starts a new minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	182 or when a minibuffer exits. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	183
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	184 minibuf_window = FRAME_MINIBUF_WINDOW (selected_frame ());
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	185
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	186 run_hook (Qminibuffer_setup_hook);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	187
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	188 minibuf_level++;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	189 clear_echo_area (selected_frame (), Qnil, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	190
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 2268 diff changeset	191 call_command_loop (Qt);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	192
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 2268 diff changeset	193 RETURN_NOT_REACHED (Qnil);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	194 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	195
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	196
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	197
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	198 /* Completion hair */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	199
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	200 /* Compare exactly LEN chars of strings at S1 and S2,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	201 ignoring case if appropriate.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	202 Return -1 if strings match,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	203 else number of chars that match at the beginning. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	204
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	205 /* Note that this function works in Charcounts, unlike most functions.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	206 This is necessary for many reasons, one of which is that two
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	207 strings may match even if they have different numbers of bytes,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	208 if IGNORE_CASE is true. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	209
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	210 Charcount
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	211 scmp_1 (const Ibyte s1, const Ibyte s2, Charcount len,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	212 int ignore_case)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	213 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	214 Charcount l = len;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	215
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	216 if (ignore_case)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	217 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	218 while (l)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	219 {
4906 6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4704 diff changeset	220 Ichar c1 = CANONCASE (0, itext_ichar (s1));
6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4704 diff changeset	221 Ichar c2 = CANONCASE (0, itext_ichar (s2));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	222
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	223 if (c1 == c2)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	224 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	225 l--;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	226 INC_IBYTEPTR (s1);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	227 INC_IBYTEPTR (s2);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	228 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	229 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	230 break;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	231 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	232 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	233 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	234 {
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	235 while (l && itext_ichar (s1) == itext_ichar (s2))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	236 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	237 l--;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	238 INC_IBYTEPTR (s1);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	239 INC_IBYTEPTR (s2);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	240 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	241 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	242
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	243 if (l == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	244 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	245 else return len - l;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	246 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	247
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	248 /* Map FUNCTION, a C function, across LISZT, a pseudo-alist, calling
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	249 it with three args, ELTSTRING (the car of the element if a cons,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	250 otherwise the element itself), ELT (the element, always) and
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	251 EXTRA_ARG. Stop if FUNCTION returns non-zero. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	252 static void
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	253 map_completion_list (maphash_function_t function, Lisp_Object liszt,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	254 void *extra_arg)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	255 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	256 Lisp_Object eltstring;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	257
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	258 GC_EXTERNAL_LIST_LOOP_2 (elt, liszt)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	259 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	260 eltstring = CONSP (elt) ? XCAR (elt) : elt;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	261 if (function (eltstring, elt, extra_arg))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	262 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	263 XUNGCPRO (elt);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	264 return;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	265 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	266 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	267 END_GC_EXTERNAL_LIST_LOOP (elt);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	268 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	269
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	270 static void
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	271 map_completion (maphash_function_t function, Lisp_Object collection,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	272 void *extra_arg, Lisp_Object predicate)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	273 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	274 if (LISTP (collection))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	275 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	276 map_completion_list (function, collection, extra_arg);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	277 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	278 else if (VECTORP (collection))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	279 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	280 map_obarray (collection, function, extra_arg);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	281 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	282 else if (NILP (predicate))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	283 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	284 /* This can't call Lisp, no need to copy and compress the hash
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	285 table entries. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	286 elisp_maphash_unsafe (function, collection, extra_arg);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	287 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	288 else
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	289 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	290 elisp_maphash (function, collection, extra_arg);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	291 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	292 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	293
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	294 int
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	295 regexp_ignore_completion_p (const Ibyte *nonreloc,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	296 Lisp_Object reloc, Bytecount offset,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	297 Bytecount length)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	298 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	299 /* Ignore this element if it fails to match all the regexps. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	300 if (!NILP (Vcompletion_regexp_list))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	301 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2286 diff changeset	302 EXTERNAL_LIST_LOOP_2 (re, Vcompletion_regexp_list)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	303 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	304 CHECK_STRING (re);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	305 if (fast_string_match (re, nonreloc, reloc, offset,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	306 length, 0, ERROR_ME, 0) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	307 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	308 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	309 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	310 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	311 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	312
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	313 /* Callers should GCPRO, since this may call eval */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	314 static int
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	315 ignore_completion_p (Lisp_Object completion_string,
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	316 Lisp_Object pred, Lisp_Object completion,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	317 Boolint hash_tablep)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	318 {
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	319 Lisp_Object tem;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	320
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	321 if (regexp_ignore_completion_p (0, completion_string, 0, -1))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	322 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	323
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	324 if (NILP (pred))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	325 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	326 return 0;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	327 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	328
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	329 /* Ignore this element if there is a predicate and the predicate doesn't
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	330 like it. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	331 if (hash_tablep)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	332 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	333 tem = call2 (pred, completion_string, completion);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	334 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	335 else if (EQ (pred, Qcommandp))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	336 {
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	337 tem = Fcommandp (completion);
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	338 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	339 else
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	340 {
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	341 tem = call1 (pred, completion);
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	342 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	343
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	344 return NILP (tem);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	345 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	346
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	347 struct try_completion_closure
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	348 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	349 Lisp_Object string;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	350 Charcount slength;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	351 Lisp_Object predicate;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	352 Lisp_Object bestmatch;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	353 Charcount blength;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	354 Charcount bestmatchsize;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	355 Boolint hash_tablep;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	356 int matchcount;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	357 };
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	358
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	359 static int
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	360 try_completion_mapper (Lisp_Object eltstring, Lisp_Object value,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	361 void *arg)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	362 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	363 struct try_completion_closure tcc = (struct try_completion_closure ) arg;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	364 Charcount eltlength;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	365
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	366 if (SYMBOLP (eltstring))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	367 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	368 eltstring = XSYMBOL_NAME (eltstring);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	369 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	370
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	371 if (!STRINGP (eltstring))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	372 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	373 return 0;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	374 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	375
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	376 /* Is this element a possible completion? */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	377 eltlength = string_char_length (eltstring);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	378 if (tcc->slength <= eltlength
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	379 && (0 > scmp (XSTRING_DATA (eltstring), XSTRING_DATA (tcc->string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	380 tcc->slength)))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	381 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	382 struct gcpro gcpro1, gcpro2, gcpro3;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	383 int loser;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	384 GCPRO3 (tcc->string, eltstring, tcc->bestmatch);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	385 loser = ignore_completion_p (eltstring, tcc->predicate, value,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	386 tcc->hash_tablep);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	387 UNGCPRO;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	388 if (loser) /* reject this one */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	389 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	390 return 0;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	391 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	392
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	393 /* Update computation of how much all possible completions
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	394 match */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	395
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	396 tcc->matchcount++;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	397 if (NILP (tcc->bestmatch))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	398 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	399 tcc->bestmatch = eltstring;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	400 tcc->blength = eltlength;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	401 tcc->bestmatchsize = eltlength;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	402 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	403 else
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	404 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	405 Charcount compare = min (tcc->bestmatchsize, eltlength);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	406 Charcount matchsize =
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	407 scmp (XSTRING_DATA (tcc->bestmatch), XSTRING_DATA (eltstring),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	408 compare);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	409 if (matchsize < 0)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	410 matchsize = compare;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	411 if (completion_ignore_case)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	412 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	413 /* If this is an exact match except for case, use it as
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	414 the best match rather than one that is not an exact
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	415 match. This way, we get the case pattern of the
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	416 actual match. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	417 if ((matchsize == eltlength
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	418 && matchsize < tcc->blength)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	419 \|\|
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	420 /* If there is more than one exact match ignoring
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	421 case, and one of them is exact including case,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	422 prefer that one. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	423 /* If there is no exact match ignoring case,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	424 prefer a match that does not change the case of
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	425 the input. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	426 ((matchsize == eltlength)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	427 ==
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	428 (matchsize == tcc->blength)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	429 && 0 > scmp_1 (XSTRING_DATA (eltstring),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	430 XSTRING_DATA (tcc->string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	431 tcc->slength, 0)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	432 && 0 <= scmp_1 (XSTRING_DATA (tcc->bestmatch),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	433 XSTRING_DATA (tcc->string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	434 tcc->slength, 0)))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	435 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	436 tcc->bestmatch = eltstring;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	437 tcc->blength = eltlength;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	438 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	439 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	440 tcc->bestmatchsize = matchsize;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	441 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	442 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	443
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	444 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	445 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	446
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	447 DEFUN ("try-completion", Ftry_completion, 2, 3, 0, /*
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	448 Return common substring of all completions of STRING in COLLECTION.
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	449 COLLECTION must be a list, a hash table, an obarray, or a function.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	450
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	451 Each string (or symbol) in COLLECTION is tested to see if it (or its
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	452 name) begins with STRING. All that match are compared together; the
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	453 longest initial sequence common to all matches is returned as a
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	454 string. If there is no match at all, nil is returned. For an exact
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	455 match, t is returned.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	456
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	457 If COLLECTION is a list, the elements of the list that are not cons
4704 44c9d1005ce2 Bring `try-completion''s interface closer to GNU Emacs. Mike Sperber <sperber@deinprogramm.de> parents: 2367 diff changeset	458 cells and the cars of the elements of the list that are cons cells
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	459 \(which must be strings or symbols) form the set of possible
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	460 completions.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	461
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	462 If COLLECTION is a hash table, all the keys that are strings or symbols
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	463 are the possible completions.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	464
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	465 If COLLECTION is an obarray, the names of all symbols in the obarray
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	466 are the possible completions.
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	467
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	468 If COLLECTION is a function, it is called with three arguments: the
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	469 values STRING, PREDICATE and nil. Whatever it returns becomes the
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	470 value of `try-completion'.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	471
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	472 If optional third argument PREDICATE is non-nil, it is used to test
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	473 each possible match. The match is a candidate only if PREDICATE
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	474 returns non-nil. The argument given to PREDICATE is the alist element
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	475 or the symbol from the obarray. If COLLECTION is a hash table,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	476 PREDICATE is passed two arguments, the key and the value of the hash
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	477 table entry.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	478 */
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	479 (string, collection, predicate))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	480 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	481 /* This function can GC */
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	482 struct try_completion_closure tcc;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	483
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	484 CHECK_STRING (string);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	485
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	486 if (!NILP (Ffunctionp (collection)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	487 {
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	488 return call3 (collection, string, predicate, Qnil);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	489 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	490
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	491 if (!(LISTP (collection) \|\| VECTORP (collection) \|\| HASH_TABLEP (collection)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	492 {
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	493 signal_error (Qwrong_type_argument,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	494 "must be a list, vector, hash table or function",
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	495 collection);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	496 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	497
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	498 tcc.string = string;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	499 tcc.slength = string_char_length (string);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	500 tcc.bestmatch = Qnil;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	501 tcc.blength = 0;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	502 tcc.bestmatchsize = 0;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	503 tcc.predicate = predicate;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	504 tcc.hash_tablep = HASH_TABLEP (collection);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	505 tcc.matchcount = 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	506
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	507 map_completion (try_completion_mapper, collection, &tcc, predicate);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	508
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	509 if (NILP (tcc.bestmatch))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	510 return Qnil; /* No completions found */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	511
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	512 /* If we are ignoring case, and there is no exact match, and no
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	513 additional text was supplied, don't change the case of what the
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	514 user typed. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	515 if (completion_ignore_case && tcc.bestmatchsize == tcc.slength
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	516 && tcc.blength > tcc.bestmatchsize)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	517 return string;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	518
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	519 /* Return t if the supplied string is an exact match (counting
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	520 case); it does not require any change to be made. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	521 if (tcc.matchcount == 1 && tcc.bestmatchsize == tcc.slength
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	522 && 0 > scmp_1 (XSTRING_DATA (tcc.bestmatch), XSTRING_DATA (tcc.string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	523 tcc.bestmatchsize, 0))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	524 return Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	525
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	526 /* Else extract the part in which all completions agree */
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	527 return Fsubseq (tcc.bestmatch, Qzero, make_fixnum (tcc.bestmatchsize));
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	528 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	529
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	530 struct all_completions_closure
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	531 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	532 Lisp_Object string;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	533 Charcount slength;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	534 Lisp_Object predicate;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	535 Lisp_Object allmatches;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	536 Boolint hash_tablep;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	537 };
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	538
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	539 static int
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	540 all_completions_mapper (Lisp_Object eltstring, Lisp_Object value, void *arg)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	541 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	542 struct all_completions_closure acc = (struct all_completions_closure ) arg;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	543 /* Is this element a possible completion? */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	544
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	545 if (SYMBOLP (eltstring))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	546 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	547 eltstring = XSYMBOL_NAME (eltstring);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	548 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	549
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	550 if (STRINGP (eltstring) && (acc->slength <= string_char_length (eltstring))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	551 /* Reject alternatives that start with space unless the input
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	552 starts with space. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	553 && ((acc->slength > 0 && string_ichar (acc->string, 0) == ' ')
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	554 \|\| string_ichar (eltstring, 0) != ' ')
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	555 && (0 > scmp (XSTRING_DATA (eltstring), XSTRING_DATA (acc->string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	556 acc->slength)))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	557 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	558 /* Yes. Now check whether predicate likes it. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	559 struct gcpro gcpro1, gcpro2;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	560 int loser;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	561 GCPRO2 (eltstring, acc->string);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	562 loser = ignore_completion_p (eltstring, acc->predicate, value,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	563 acc->hash_tablep);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	564 UNGCPRO;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	565 if (!loser)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	566 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	567 /* Ok => put it on the list. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	568 XSETCDR (acc->allmatches, Fcons (eltstring, Qnil));
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	569 acc->allmatches = XCDR (acc->allmatches);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	570 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	571 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	572
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	573 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	574 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	575
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	576 DEFUN ("all-completions", Fall_completions, 2, 3, 0, /*
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	577 Search for partial matches to STRING in COLLECTION.
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	578 COLLECTION must be an list, a hash table, an obarray, or a function.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	579
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	580 Each string (or symbol) in COLLECTION is tested to see if it (or its
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	581 name) begins with STRING. The value is a list of all the strings from
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	582 COLLECTION that match.
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	583
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	584 If COLLECTION is a list, the elements of the list that are not cons
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	585 cells and the cars of the elements of the list that are cons cells
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	586 \(which must be strings or symbols) form the set of possible
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	587 completions.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	588
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	589 If COLLECTION is a hash-table, all the keys that are strings or symbols
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	590 are the possible completions.
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	591
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	592 If COLLECTION is an obarray, the names of all symbols in the obarray
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	593 are the possible completions.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	594
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	595 If COLLECTION is a function, it is called with three arguments: the
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	596 values STRING, PREDICATE and t. Whatever it returns becomes the
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	597 value of `all-completions'.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	598
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	599 If optional third argument PREDICATE is non-nil, it is used to test
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	600 each possible match. The match is a candidate only if PREDICATE
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	601 returns non-nil. The argument given to PREDICATE is the alist element
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	602 or the symbol from the obarray. If COLLECTION is a hash table,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	603 PREDICATE is passed two arguments, the key and the value of the hash
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	604 table entry.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	605 */
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	606 (string, collection, predicate))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	607 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	608 /* This function can GC */
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	609 struct all_completions_closure acc;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	610 Lisp_Object allmatches = noseeum_cons (Qnil, Qnil);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	611 struct gcpro gcpro1;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	612
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	613 CHECK_STRING (string);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	614
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	615 if (!NILP (Ffunctionp (collection)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	616 {
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	617 return call3 (collection, string, predicate, Qt);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	618 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	619
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	620 if (!(LISTP (collection) \|\| VECTORP (collection) \|\| HASH_TABLEP (collection)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	621 {
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	622 signal_error (Qwrong_type_argument,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	623 "must be a list, vector, hash table or function",
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	624 collection);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	625 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	626 GCPRO1 (allmatches);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	627 acc.string = string;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	628 acc.slength = string_char_length (string);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	629 acc.predicate = predicate;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	630 acc.allmatches = allmatches;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	631 acc.hash_tablep = HASH_TABLEP (collection);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	632
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	633 map_completion (all_completions_mapper, collection, &acc, predicate);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	634
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	635 acc.allmatches = XCDR (allmatches);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	636 free_cons (allmatches);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	637 UNGCPRO;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	638 return acc.allmatches;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	639 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	640
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	641 struct test_completion_closure
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	642 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	643 Lisp_Object string;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	644 Lisp_Object predicate;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	645 Lisp_Object result;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	646 Boolint hash_tablep;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	647 };
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	648
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	649 static int
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	650 test_completion_mapper (Lisp_Object eltstring, Lisp_Object value, void *arg)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	651 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	652 struct test_completion_closure tcc = (struct test_completion_closure ) arg;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	653
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	654 if (SYMBOLP (eltstring))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	655 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	656 eltstring = XSYMBOL_NAME (eltstring);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	657 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	658
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	659 if (!STRINGP (eltstring))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	660 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	661 return 0;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	662 }
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	663
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	664 if (completion_ignore_case ?
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	665 0 == qxetextcasecmp (XSTRING_DATA (tcc->string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	666 XSTRING_LENGTH (tcc->string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	667 XSTRING_DATA (eltstring),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	668 XSTRING_LENGTH (eltstring))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	669 : 0 == qxememcmp4 (XSTRING_DATA (tcc->string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	670 XSTRING_LENGTH (tcc->string),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	671 XSTRING_DATA (eltstring),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	672 XSTRING_LENGTH (eltstring)))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	673 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	674 struct gcpro gcpro1, gcpro2, gcpro3;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	675 int loser;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	676 GCPRO3 (eltstring, tcc->string, tcc->predicate);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	677 loser = ignore_completion_p (eltstring, tcc->predicate, value,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	678 tcc->hash_tablep);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	679 UNGCPRO;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	680 if (!loser)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	681 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	682 tcc->result = Qt;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	683 return 1;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	684 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	685 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	686
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	687 return 0;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	688 }
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	689
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	690 DEFUN ("test-completion", Ftest_completion, 2, 3, 0, /*
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	691 Return non-nil if STRING is a valid completion in COLLECTION.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	692
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	693 COLLECTION must be a list, a hash table, an obarray, or a function.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	694
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	695 Each string (or symbol) in COLLECTION is tested to see if it (or its
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	696 name) begins with STRING. The value is a list of all the strings from
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	697 COLLECTION that match.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	698
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	699 If COLLECTION is a list, the elements of the list that are not cons
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	700 cells and the cars of the elements of the list that are cons cells
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	701 \(which must be strings or symbols) form the set of possible
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	702 completions.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	703
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	704 If COLLECTION is a hash-table, all the keys that are strings or symbols
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	705 are the possible completions.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	706
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	707 If COLLECTION is an obarray, the names of all symbols in the obarray
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	708 are the possible completions.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	709
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	710 If COLLECTION is a function, it is called with three arguments: the
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	711 values STRING, PREDICATE and the symbol `lambda'. Whatever it returns
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	712 is passed back by `test-completion'.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	713
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	714 If optional third argument PREDICATE is non-nil, it is used to test
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	715 for possible matches. The match is a candidate only if PREDICATE
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	716 returns non-nil. The argument given to PREDICATE is the alist element
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	717 or the symbol from the obarray. If COLLECTION is a hash table,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	718 PREDICATE is passed two arguments, the key and the value of the hash
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	719 table entry.
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	720 */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	721 (string, collection, predicate))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	722 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	723 struct test_completion_closure tcc;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	724
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	725 CHECK_STRING (string);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	726
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	727 if (!NILP (Ffunctionp (collection)))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	728 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	729 return call3 (collection, string, predicate, Qlambda);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	730 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	731
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	732 if (!(LISTP (collection) \|\| VECTORP (collection) \|\| HASH_TABLEP (collection)))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	733 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	734 signal_error (Qwrong_type_argument,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	735 "must be a list, vector, hash table or function",
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	736 collection);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	737 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	738
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	739 tcc.string = string;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	740 tcc.predicate = predicate;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	741 tcc.result = Qnil;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	742 tcc.hash_tablep = HASH_TABLEP (collection);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	743
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	744 if (VECTORP (collection) && !completion_ignore_case)
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	745 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	746 /* We're case sensitive -> no need for a linear search. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	747 Lisp_Object lookup = Fintern_soft (string, collection, Qzero);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	748
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	749 if (ZEROP (lookup))
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	750 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	751 return Qnil;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	752 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	753
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	754 return ignore_completion_p (XSYMBOL_NAME (lookup), tcc.predicate,
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	755 lookup, 0) ? Qnil : Qt;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	756
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	757 /* It would be reasonable to do something similar for the hash
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	758 tables, except, both symbol and string keys are vaild
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	759 completions there. So a negative #'gethash for the string
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	760 (with #'equal as the hash table tests) still means you have
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	761 to do the linear search, for any symbols with that string
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	762 name, which hash very differently; returning t is a little
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	763 quicker, but returning nil is just as slow, so our average
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	764 performance barely changes, at the cost of code
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	765 complexity. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	766 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	767 else
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	768 {
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	769 map_completion (test_completion_mapper, collection, &tcc, predicate);
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	770 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	771
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	772 return tcc.result;
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	773 }
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	774
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	775
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	776 /* Useless FSFmacs functions */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	777 /* More than useless. I've nuked minibuf_prompt_width so they won't
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	778 function at all in XEmacs at the moment. They are used to
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	779 implement some braindamage in FSF which we aren't including. --cet */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	780
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	781 #if 0
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 793 diff changeset	782 DEFUN ("minibuffer-prompt", Fminibuffer_prompt, 0, 0, 0, /*
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	783 Return the prompt string of the currently-active minibuffer.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	784 If no minibuffer is active, return nil.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	785 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	786 ())
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	787 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	788 return Fcopy_sequence (Vminibuf_prompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	789 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	790
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 793 diff changeset	791 DEFUN ("minibuffer-prompt-width", Fminibuffer_prompt_width, 0, 0, 0, /*
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	792 Return the display width of the minibuffer prompt.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	793 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	794 ())
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	795 {
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	796 return make_fixnum (minibuf_prompt_width);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	797 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	798 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	799
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	800
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	801 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	802 /* echo area */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	803 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	804
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	805 extern int stdout_needs_newline;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	806
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	807 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	808 clear_echo_area_internal (struct frame *f, Lisp_Object label, int from_print,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	809 int no_restore)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	810 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	811 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	812 if (!NILP (Ffboundp (Qclear_message)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	813 {
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 771 diff changeset	814 Lisp_Object frame = wrap_frame (f);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	815
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	816 return call4 (Qclear_message, label, frame, from_print ? Qt : Qnil,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	817 no_restore ? Qt : Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	818 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	819 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	820 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	821 stderr_out ("\n");
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	822 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	823 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	824 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	825
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	826 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	827 clear_echo_area (struct frame *f, Lisp_Object label, int no_restore)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	828 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	829 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	830 return clear_echo_area_internal (f, label, 0, no_restore);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	831 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	832
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	833 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	834 clear_echo_area_from_print (struct frame *f, Lisp_Object label, int no_restore)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	835 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	836 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	837 return clear_echo_area_internal (f, label, 1, no_restore);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	838 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	839
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	840 void
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	841 echo_area_append (struct frame f, const Ibyte nonreloc, Lisp_Object reloc,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	842 Bytecount offset, Bytecount length,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	843 Lisp_Object label)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	844 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	845 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	846 Lisp_Object obj;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	847 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	848 Lisp_Object frame;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	849
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 428 diff changeset	850 /* There is an inlining bug in egcs-20000131 c++ that can be worked
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 428 diff changeset	851 around as follows: */
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 428 diff changeset	852 #if defined (__GNUC__) && defined (__cplusplus)
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 428 diff changeset	853 alloca (4);
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 428 diff changeset	854 #endif
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 428 diff changeset	855
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	856 /* some callers pass in a null string as a way of clearing the echo area.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	857 check for length == 0 now; if this case, neither nonreloc nor reloc
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	858 may be valid. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	859 if (length == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	860 return;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	861
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	862 fixup_internal_substring (nonreloc, reloc, offset, &length);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	863
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	864 /* also check it here, in case the string was really blank. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	865 if (length == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	866 return;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	867
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	868 if (!NILP (Ffboundp (Qappend_message)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	869 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	870 if (STRINGP (reloc) && offset == 0 && length == XSTRING_LENGTH (reloc))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	871 obj = reloc;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	872 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	873 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	874 if (STRINGP (reloc))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	875 nonreloc = XSTRING_DATA (reloc);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	876 obj = make_string (nonreloc + offset, length);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	877 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	878
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 771 diff changeset	879 frame = wrap_frame (f);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	880 GCPRO1 (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	881 call4 (Qappend_message, label, obj, frame,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	882 EQ (label, Qprint) ? Qt : Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	883 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	884 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	885 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	886 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	887 if (STRINGP (reloc))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	888 nonreloc = XSTRING_DATA (reloc);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 793 diff changeset	889 write_string_1 (Qexternal_debugging_output, nonreloc + offset, length);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	890 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	891 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	892
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	893 void
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	894 echo_area_message (struct frame f, const Ibyte nonreloc,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	895 Lisp_Object reloc, Bytecount offset, Bytecount length,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	896 Lisp_Object label)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	897 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	898 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	899 clear_echo_area (f, label, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	900 echo_area_append (f, nonreloc, reloc, offset, length, label);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	901 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	902
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	903 int
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 2268 diff changeset	904 echo_area_active (struct frame *UNUSED (f))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	905 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	906 /* By definition, the echo area is active if the echo-area buffer
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	907 is not empty. No need to call Lisp code. (Anyway, this function
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	908 is called from redisplay.) */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	909 struct buffer *echo_buffer = XBUFFER (Vecho_area_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	910 return BUF_BEGV (echo_buffer) != BUF_ZV (echo_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	911 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	912
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	913 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	914 echo_area_status (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	915 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	916 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	917 if (!NILP (Ffboundp (Qcurrent_message_label)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	918 {
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 771 diff changeset	919 Lisp_Object frame = wrap_frame (f);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	920
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	921 return call1 (Qcurrent_message_label, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	922 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	923 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	924 return stdout_needs_newline ? Qmessage : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	925 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	926
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	927 Lisp_Object
2286 04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james] james parents: 2268 diff changeset	928 echo_area_contents (struct frame *UNUSED (f))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	929 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	930 /* See above. By definition, the contents of the echo-area buffer
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	931 are the contents of the echo area. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	932 return Fbuffer_substring (Qnil, Qnil, Vecho_area_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	933 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	934
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	935 /* Dump an informative message to the echo area. This function takes a
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	936 string in internal format. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	937 void
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	938 message_internal (const Ibyte *nonreloc, Lisp_Object reloc,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	939 Bytecount offset, Bytecount length)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	940 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	941 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	942 if (NILP (Vexecuting_macro))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	943 echo_area_message (selected_frame (), nonreloc, reloc, offset, length,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	944 Qmessage);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	945 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	946
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	947 void
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	948 message_append_internal (const Ibyte *nonreloc, Lisp_Object reloc,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	949 Bytecount offset, Bytecount length)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	950 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	951 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	952 if (NILP (Vexecuting_macro))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	953 echo_area_append (selected_frame (), nonreloc, reloc, offset, length,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	954 Qmessage);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	955 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	956
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	957 /* The next three functions are interfaces to message_internal() that
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	958 take strings in external format. message() does I18N3 translating
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	959 on the format string; message_no_translate() does not. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	960
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	961 static void
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	962 message_1 (const CIbyte *fmt, va_list args)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	963 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	964 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	965 if (fmt)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	966 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	967 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	968 /* message_internal() might GC, e.g. if there are after-change-hooks
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	969 on the echo area buffer */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	970 Lisp_Object obj = emacs_vsprintf_string (fmt, args);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	971 GCPRO1 (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	972 message_internal (0, obj, 0, -1);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	973 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	974 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	975 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	976 message_internal (0, Qnil, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	977 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	978
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	979 static void
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 853 diff changeset	980 message_append_1 (const CIbyte *fmt, va_list args)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	981 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	982 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	983 if (fmt)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	984 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	985 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	986 /* message_internal() might GC, e.g. if there are after-change-hooks
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	987 on the echo area buffer */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 665 diff changeset	988 Lisp_Object obj = emacs_vsprintf_string (fmt, args);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	989 GCPRO1 (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	990 message_append_internal (0, obj, 0, -1);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	991 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	992 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	993 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	994 message_append_internal (0, Qnil, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	995 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	996
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	997 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	998 clear_message (void)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	999 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1000 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1001 message_internal (0, Qnil, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1002 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1003
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1004 void
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1005 message (const char *fmt, ...)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1006 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1007 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1008 /* I think it's OK to pass the data of Lisp strings as arguments to
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1009 this function. No GC'ing will occur until the data has already
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1010 been copied. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1011 va_list args;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1012
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1013 va_start (args, fmt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1014 if (fmt)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1015 fmt = GETTEXT (fmt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1016 message_1 (fmt, args);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1017 va_end (args);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1018 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1019
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1020 void
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1021 message_append (const char *fmt, ...)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1022 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1023 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1024 va_list args;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1025
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1026 va_start (args, fmt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1027 if (fmt)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1028 fmt = GETTEXT (fmt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1029 message_append_1 (fmt, args);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1030 va_end (args);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1031 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1032
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1033 void
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1034 message_no_translate (const char *fmt, ...)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1035 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1036 /* This function can call lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1037 /* I think it's OK to pass the data of Lisp strings as arguments to
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1038 this function. No GC'ing will occur until the data has already
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1039 been copied. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1040 va_list args;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1041
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1042 va_start (args, fmt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1043 message_1 (fmt, args);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1044 va_end (args);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1045 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1046
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1047
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1048 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1049 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1050 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1051
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1052 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1053 syms_of_minibuf (void)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1054 {
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 448 diff changeset	1055 DEFSYMBOL (Qminibuffer_setup_hook);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1056
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 448 diff changeset	1057 DEFSYMBOL (Qcompletion_ignore_case);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1058
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1059 DEFSUBR (Fminibuffer_depth);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1060 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1061 DEFSUBR (Fminibuffer_prompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1062 DEFSUBR (Fminibuffer_prompt_width);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1063 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1064 DEFSUBR (Fset_minibuffer_preprompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1065 DEFSUBR (Fread_minibuffer_internal);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1066
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1067 DEFSUBR (Ftry_completion);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1068 DEFSUBR (Fall_completions);
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5581 diff changeset	1069 DEFSUBR (Ftest_completion);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1070
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 448 diff changeset	1071 DEFSYMBOL (Qappend_message);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 448 diff changeset	1072 DEFSYMBOL (Qclear_message);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 448 diff changeset	1073 DEFSYMBOL (Qdisplay_message);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 448 diff changeset	1074 DEFSYMBOL (Qcurrent_message_label);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1075 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1076
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1077 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1078 reinit_vars_of_minibuf (void)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1079 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1080 minibuf_level = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1081 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1082
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1083 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1084 vars_of_minibuf (void)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1085 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1086 staticpro (&Vminibuf_prompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1087 Vminibuf_prompt = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1088
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1089 /* Added by Jareth Hein (jhod@po.iijnet.or.jp) for input system support */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1090 staticpro (&Vminibuf_preprompt);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1091 Vminibuf_preprompt = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1092
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1093 DEFVAR_LISP ("minibuffer-setup-hook", &Vminibuffer_setup_hook /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1094 Normal hook run just after entry to minibuffer.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1095 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1096 Vminibuffer_setup_hook = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1097
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1098 DEFVAR_BOOL ("completion-ignore-case", &completion_ignore_case /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1099 Non-nil means don't consider case significant in completion.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1100 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1101 completion_ignore_case = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1102
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1103 DEFVAR_LISP ("completion-regexp-list", &Vcompletion_regexp_list /*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1104 List of regexps that should restrict possible completions.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1105 Each completion has to match all regexps in this list.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1106 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1107 Vcompletion_regexp_list = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1108 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1109
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1110 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1111 reinit_complex_vars_of_minibuf (void)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1112 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1113 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1114 #ifdef I18N3
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1115 /* #### This needs to be fixed up so that the gettext() gets called
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1116 at runtime instead of at load time. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1117 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1118 Vminibuffer_zero
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4704 diff changeset	1119 = Fget_buffer_create (build_ascstring (" Minibuf-0"));
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5089 diff changeset	1120 staticpro_nodump (&Vminibuffer_zero);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1121 Vecho_area_buffer
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4704 diff changeset	1122 = Fget_buffer_create (build_ascstring (" Echo Area"));
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5089 diff changeset	1123 staticpro_nodump (&Vecho_area_buffer);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1124 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1125
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1126 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1127 complex_vars_of_minibuf (void)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1128 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1129 reinit_complex_vars_of_minibuf ();
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1130 }

Mercurial > hg > xemacs-beta

annotate src/minibuf.c @ 5652:cc6f0266bc36