comparison lisp/minibuf.el @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents a543dd3d410f
children 42375619fa45
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
1 ;;; minibuf.el --- Minibuffer functions for XEmacs 1 ;;; minibuf.el --- Minibuffer functions for XEmacs
2 2
3 ;; Copyright (C) 1992, 1993, 1994, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1994, 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Tinker Systems. 4 ;; Copyright (C) 1995 Tinker Systems.
5 ;; Copyright (C) 1995, 1996, 2000 Ben Wing. 5 ;; Copyright (C) 1995, 1996, 2000, 2002 Ben Wing.
6 6
7 ;; Author: Richard Mlynarik 7 ;; Author: Richard Mlynarik
8 ;; Created: 2-Oct-92 8 ;; Created: 2-Oct-92
9 ;; Maintainer: XEmacs Development Team 9 ;; Maintainer: XEmacs Development Team
10 ;; Keywords: internal, dumped 10 ;; Keywords: internal, dumped
2259 (let ((table (read-color-completion-table))) 2259 (let ((table (read-color-completion-table)))
2260 (completing-read prompt table nil (and table must-match) 2260 (completing-read prompt table nil (and table must-match)
2261 initial-contents))) 2261 initial-contents)))
2262 2262
2263 2263
2264 ;; #### The doc string for read-non-nil-coding system gets lost if we
2265 ;; only include these if the mule feature is present. Strangely,
2266 ;; read-coding-system doesn't.
2267
2268 ;;(if (featurep 'mule)
2269
2270 (defun read-coding-system (prompt &optional default-coding-system) 2264 (defun read-coding-system (prompt &optional default-coding-system)
2271 "Read a coding-system (or nil) from the minibuffer. 2265 "Read a coding-system (or nil) from the minibuffer.
2272 Prompting with string PROMPT. 2266 Prompting with string PROMPT.
2273 If the user enters null input, return second argument DEFAULT-CODING-SYSTEM. 2267 If the user enters null input, return second argument DEFAULT-CODING-SYSTEM.
2274 DEFAULT-CODING-SYSTEM can be a string, symbol, or coding-system object." 2268 DEFAULT-CODING-SYSTEM can be a string, symbol, or coding-system object."
2288 (setq retval (intern (completing-read prompt obarray 2282 (setq retval (intern (completing-read prompt obarray
2289 'find-coding-system 2283 'find-coding-system
2290 t)))) 2284 t))))
2291 retval)) 2285 retval))
2292 2286
2293 ;;) ;; end of (featurep 'mule)
2294
2295 2287
2296 2288
2297 (defcustom force-dialog-box-use nil 2289 (defcustom force-dialog-box-use nil
2298 "*If non-nil, always use a dialog box for asking questions, if possible. 2290 "*If non-nil, always use a dialog box for asking questions, if possible.
2299 You should *bind* this, not set it. This is useful if you're doing 2291 You should *bind* this, not set it. This is useful if you're doing