Mercurial > hg > xemacs-beta

comparison lisp/packages/recent-files.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 376386a54a3c
children 34a5b81f86ba
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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-19/lisp/packages/recent-files.el,v 1.1.1.1 1996/12/18 03:31:56 steve Exp $ 2 ;;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/recent-files.el,v 1.1.1.1 1996/12/18 22:42:54 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
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details. 18 ;; General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free 21 ;; along with XEmacs; see the file COPYING. If not, write to the
22 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
23 24
24 ;;; Synched up with: Not in FSF. 25 ;;; Synched up with: Not in FSF.
25 ;;; 26 ;;;
26 ;;; recent-files.el is free software; you can redistribute it and/or 27 ;;; recent-files.el is free software; you can redistribute it and/or
27 ;;; modify it under the terms of the GNU General Public License as 28 ;;; modify it under the terms of the GNU General Public License as
362 363
363 (defun recent-files-version () 364 (defun recent-files-version ()
364 "Return a string identifying the current verion of recent-files. 365 "Return a string identifying the current verion of recent-files.
365 If called interactively, show it in the echo area." 366 If called interactively, show it in the echo area."
366 (interactive) 367 (interactive)
367 (let ((version "$Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs-19/lisp/packages/recent-files.el,v 1.1.1.1 1996/12/18 03:31:56 steve Exp $")) 368 (let ((version "$Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/recent-files.el,v 1.1.1.1 1996/12/18 22:42:54 steve Exp $"))
368 (if (interactive-p) 369 (if (interactive-p)
369 (message version) 370 (message version)
370 version))) 371 version)))
371 372
372 373