Mercurial > hg > xemacs-beta

comparison lisp/comint/history.el @ 70:131b0175ea99 r20-0b30

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