Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 3000:5df5ea55d3fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-18 20:49:41 by malcolmp] Sync of occur mode with GNU Emacs 22.0.50.1 (CVS)
author malcolmp
date Tue, 18 Oct 2005 20:49:43 +0000
parents 7031e143e4ee
children 38ef5a6da799
comparison
equal deleted inserted replaced
2999:77dd8b943765 3000:5df5ea55d3fc
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 ;; General Public License for more details. 22 ;; General Public License for more details.
23 23
24 ;; You should have received a copy of the GNU General Public License 24 ;; You should have received a copy of the GNU General Public License
25 ;; along with XEmacs; see the file COPYING. If not, write to the 25 ;; along with XEmacs; see the file COPYING. If not, write to the
26 ;; Free Software Foundation, 59 Temple Place - Suite 330, 26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
27 ;; Boston, MA 02111-1307, USA. 27 ;; Boston, MA 02110-1301, USA.
28 28
29 ;;; Synched up with: all the minibuffer history stuff is synched with 29 ;;; Synched up with: all the minibuffer history stuff is synched with
30 ;;; 19.30. Not sure about the rest. 30 ;;; 19.30. Not sure about the rest.
31 31
32 ;;; Commentary: 32 ;;; Commentary:
1493 nil) 1493 nil)
1494 ((not require-match) 1494 ((not require-match)
1495 (setq result default) 1495 (setq result default)
1496 nil) 1496 nil)
1497 ((not default) 1497 ((not default)
1498 t) 1498 nil)
1499 ((not (get-buffer default)) 1499 ((not (get-buffer default))
1500 t) 1500 t)
1501 (t 1501 (t
1502 (setq result default) 1502 (setq result default)
1503 nil)))) 1503 nil))))