Mercurial > hg > xemacs-beta

comparison lisp/w3/w3.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents 8eaf7971accc
children 489f57a838ef
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions 1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/07/10 23:41:29 3 ;; Created: 1997/07/14 16:57:04
4 ;; Version: 1.139 4 ;; Version: 1.140
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.
2277 (setq buffer (current-buffer)) 2277 (setq buffer (current-buffer))
2278 (erase-buffer) 2278 (erase-buffer)
2279 (while todo 2279 (while todo
2280 (goto-char (point-min)) 2280 (goto-char (point-min))
2281 (insert "\n" (car todo)) 2281 (insert "\n" (car todo))
2282 (setq todo (cdr todo)))) 2282 (setq todo (cdr todo)))
2283 (if url
2284 (progn
2285 (goto-char (point-min))
2286 (insert (format "HTML Errors for: <URL:%s>\n" url))))
2287 (set (make-local-variable 'font-lock-keywords) w3-html-errors-font-lock-keywords)
2288 (set (make-local-variable 'font-lock-keywords-only) nil)
2289 (set (make-local-variable 'font-lock-keywords-case-fold-search) nil)
2290 (set (make-local-variable 'font-lock-syntax-table) nil)
2291 (set (make-local-variable 'font-lock-beginning-of-syntax-function) 'beginning-of-line)
2292 (run-hooks 'w3-display-errors-hook))
2283 (w3-notify-when-ready buffer))) 2293 (w3-notify-when-ready buffer)))
2284 2294
2285 (defun w3-mode () 2295 (defun w3-mode ()
2286 "Mode for viewing HTML documents. If called interactively, will 2296 "Mode for viewing HTML documents. If called interactively, will
2287 display the current buffer as HTML. 2297 display the current buffer as HTML.