Mercurial > hg > xemacs-beta
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 |