Mercurial > hg > xemacs-beta

comparison lisp/comint/history.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; history.el --- Generic history stuff
2
1 ;; Copyright (C) 1989 Free Software Foundation, Inc. 3 ;; Copyright (C) 1989 Free Software Foundation, Inc.
2 4
3 ;; This file is part of XEmacs. 5 ;; This file is part of XEmacs.
4 6
5 ;; XEmacs is free software; you can redistribute it and/or modify it 7 ;; XEmacs is free software; you can redistribute it and/or modify it
13 ;; General Public License for more details. 15 ;; General Public License for more details.
14 16
15 ;; You should have received a copy of the GNU General Public License 17 ;; You should have received a copy of the GNU General Public License
16 ;; along with XEmacs; see the file COPYING. If not, write to the Free 18 ;; along with XEmacs; see the file COPYING. If not, write to the Free
17 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 19 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20
21 ;;; Synched up with: Not in FSF
22
23 ;;; Commentary:
18 24
19 ;; suggested generic history stuff -- tale 25 ;; suggested generic history stuff -- tale
20 26
21 ;; This is intended to provided easy access to a list of elements 27 ;; This is intended to provided easy access to a list of elements
22 ;; being kept as a history ring. 28 ;; being kept as a history ring.
65 ;; (set-marker foo-mark (point)) 71 ;; (set-marker foo-mark (point))
66 ;; (send-string foo-process str) 72 ;; (send-string foo-process str)
67 ;; (history-add 'foo-history str foo-history-size))) 73 ;; (history-add 'foo-history str foo-history-size)))
68 74
69 ;; ToDo: history-isearch 75 ;; ToDo: history-isearch
76
77 ;;; Code:
70 78
71 (provide 'history) 79 (provide 'history)
72 80
73 (defvar history-last-search "" 81 (defvar history-last-search ""
74 "The last regexp used by history-search which resulted in a match.") 82 "The last regexp used by history-search which resulted in a match.")
161 (if notemp 169 (if notemp
162 (save-excursion 170 (save-excursion
163 (insert menu) 171 (insert menu)
164 (display-buffer buffer)) 172 (display-buffer buffer))
165 (with-output-to-temp-buffer buffer (princ menu))))) 173 (with-output-to-temp-buffer buffer (princ menu)))))
174
175 ;;; history.el ends here