Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-hot.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 6a378aca36af
children fe104dbd9147
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
1 ;;; w3-hot.el --- Main functions for emacs-w3 on all platforms/versions 1 ;;; w3-hot.el --- Main functions for emacs-w3 on all platforms/versions
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/10 00:13:05 3 ;; Created: 1997/02/18 23:36:48
4 ;; Version: 1.11 4 ;; Version: 1.12
5 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia 5 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
158 (rename-buffer (concat "Hotlist during " regexp)))) 158 (rename-buffer (concat "Hotlist during " regexp))))
159 (unwind-protect 159 (unwind-protect
160 (progn 160 (progn
161 (w3-show-hotlist) 161 (w3-show-hotlist)
162 (rename-buffer (concat "Hotlist \"" regexp "\"")) 162 (rename-buffer (concat "Hotlist \"" regexp "\""))
163 (setq url-current-file (concat "hotlist/" regexp))) 163 (url-set-filename url-current-object (concat "hotlist/" regexp)))
164 (and save-buf (save-excursion 164 (and save-buf (save-excursion
165 (set-buffer save-buf) 165 (set-buffer save-buf)
166 (rename-buffer "Hotlist"))))))) 166 (rename-buffer "Hotlist")))))))
167 167
168 (defun w3-hotlist-refresh () 168 (defun w3-hotlist-refresh ()