Mercurial > hg > xemacs-beta

comparison lisp/packages/iswitchb.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents a2f645c6b9f8
children
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
4 4
5 ;; Author: Stephen Eglen <stephen@cns.ed.ac.uk> 5 ;; Author: Stephen Eglen <stephen@cns.ed.ac.uk>
6 ;; Maintainer: Stephen Eglen <stephen@cns.ed.ac.uk> 6 ;; Maintainer: Stephen Eglen <stephen@cns.ed.ac.uk>
7 ;; Keywords: extensions 7 ;; Keywords: extensions
8 ;; location: http://www.cogs.susx.ac.uk/users/stephene/emacs 8 ;; location: http://www.cogs.susx.ac.uk/users/stephene/emacs
9 ;; RCS: $Id: iswitchb.el,v 1.1 1997/09/27 16:57:40 steve Exp $ 9 ;; RCS: $Id: iswitchb.el,v 1.2 1997/10/12 01:39:45 steve Exp $
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
1047 ;; default is shown for both whenever we delete all of our text 1047 ;; default is shown for both whenever we delete all of our text
1048 ;; though, indicating its just a problem the first time we enter the 1048 ;; though, indicating its just a problem the first time we enter the
1049 ;; function. To solve this, we use another entry hook for emacs to 1049 ;; function. To solve this, we use another entry hook for emacs to
1050 ;; show the default the first time we enter the minibuffer. 1050 ;; show the default the first time we enter the minibuffer.
1051 1051
1052 (defun iswitchb-init-Xemacs-trick () 1052 (defun iswitchb-init-XEmacs-trick ()
1053 "Display default buffer when first entering minibuffer. 1053 "Display default buffer when first entering minibuffer.
1054 This is a hack for XEmacs, and should really be handled by `iswitchb-exhibit'." 1054 This is a hack for XEmacs, and should really be handled by `iswitchb-exhibit'."
1055 (if (iswitchb-entryfn-p) 1055 (if (iswitchb-entryfn-p)
1056 (progn 1056 (progn
1057 (iswitchb-exhibit) 1057 (iswitchb-exhibit)
1059 1059
1060 1060
1061 ;; add this hook for XEmacs only. 1061 ;; add this hook for XEmacs only.
1062 (if iswitchb-xemacs 1062 (if iswitchb-xemacs
1063 (add-hook 'iswitchb-minibuffer-setup-hook 1063 (add-hook 'iswitchb-minibuffer-setup-hook
1064 'iswitchb-init-Xemacs-trick)) 1064 'iswitchb-init-XEmacs-trick))
1065 1065
1066 1066
1067 ;;; XEmacs / backspace key 1067 ;;; XEmacs / backspace key
1068 ;; For some reason, if the backspace key is pressed in xemacs, the 1068 ;; For some reason, if the backspace key is pressed in xemacs, the
1069 ;; line gets confused, so I've added a simple key definition to make 1069 ;; line gets confused, so I've added a simple key definition to make