Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-hot.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 5a88923fcbfe
children
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
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/06/10 05:42:43 3 ;; Created: 1997/06/27 15:41:38
4 ;; Version: 1.15 4 ;; Version: 1.16
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.
237 (require-final-newline t)) 237 (require-final-newline t))
238 (previous-line 1) 238 (previous-line 1)
239 (beginning-of-line) 239 (beginning-of-line)
240 (delete-region (point) (progn (forward-line 2) (point))) 240 (delete-region (point) (progn (forward-line 2) (point)))
241 (insert (format "%s %s\n%s\n" (nth 1 obj) (current-time-string) 241 (insert (format "%s %s\n%s\n" (nth 1 obj) (current-time-string)
242 new)) 242 new))
243 (setq w3-hotlist (cons (list new (nth 1 obj)) 243 (setq w3-hotlist (cons (list new (nth 1 obj))
244 (w3-delete-from-alist title w3-hotlist))) 244 (w3-delete-from-alist title w3-hotlist)))
245 (write-file w3-hotlist-file) 245 (write-file w3-hotlist-file)
246 (kill-buffer (current-buffer)) 246 (kill-buffer (current-buffer))
247 (if (and w3-running-FSF19 (not (eq 'tty (device-type)))) 247 (if (not w3-running-xemacs)
248 (progn 248 (progn
249 (delete-menu-item '("Go")) 249 (delete-menu-item '("Go"))
250 (w3-build-FSF19-menu)))) 250 (w3-build-FSF19-menu))))
251 (message "%s was not found in %s" title w3-hotlist-file))))) 251 (message "%s was not found in %s" title w3-hotlist-file)))))
252 252