Mercurial > hg > xemacs-beta

comparison lisp/packages/recent-files.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 34a5b81f86ba
children
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
1 ;;; recent-files.el --- Maintain menu of recently opened files. 1 ;;; recent-files.el --- Maintain menu of recently opened files.
2 ;;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/recent-files.el,v 1.2 1997/04/19 23:21:11 steve Exp $ 2 ;;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/recent-files.el,v 1.3 1997/09/17 05:19:36 steve Exp $
3 ;;; 3 ;;;
4 ;;; Copyright (C) 1994, 1995 Juergen Nickelsen <nickel@cs.tu-berlin.de> 4 ;;; Copyright (C) 1994, 1995 Juergen Nickelsen <nickel@cs.tu-berlin.de>
5 ;;; 5 ;;;
6 ;; Keywords: menu, file 6 ;; Keywords: menu, file
7 7
206 206
207 ;;; User options 207 ;;; User options
208 208
209 (defgroup recent-files nil 209 (defgroup recent-files nil
210 "Maintain a menu of recently opened files." 210 "Maintain a menu of recently opened files."
211 :group 'data) 211 :group 'files
212 :group 'menu)
212 213
213 (defgroup recent-files-menu nil 214 (defgroup recent-files-menu nil
214 "Menu options of recent-files." 215 "Menu options of recent-files."
215 :prefix "recent-files-" 216 :prefix "recent-files-"
216 :group 'recent-files) 217 :group 'recent-files)
413 414
414 (defun recent-files-version () 415 (defun recent-files-version ()
415 "Return a string identifying the current verion of recent-files. 416 "Return a string identifying the current verion of recent-files.
416 If called interactively, show it in the echo area." 417 If called interactively, show it in the echo area."
417 (interactive) 418 (interactive)
418 (let ((version "$Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/recent-files.el,v 1.2 1997/04/19 23:21:11 steve Exp $")) 419 (let ((version "$Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/recent-files.el,v 1.3 1997/09/17 05:19:36 steve Exp $"))
419 (if (interactive-p) 420 (if (interactive-p)
420 (message version) 421 (message version)
421 version))) 422 version)))
422 423
423 424