Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-prefs.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 9ee227acff29
children ec9a17fef872
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; w3-prefs.el --- Preferences panels for Emacs-W3 1 ;;; w3-prefs.el --- Preferences panels for Emacs-W3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/12/29 01:49:57 3 ;; Created: 1997/01/17 04:34:13
4 ;; Version: 1.12 4 ;; Version: 1.15
5 ;; Keywords: hypermedia, preferences 5 ;; Keywords: hypermedia, preferences
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
10 ;;; 10 ;;;
11 ;;; This file is part of GNU Emacs. 11 ;;; This file is part of GNU Emacs.
12 ;;; 12 ;;;
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;;; it under the terms of the GNU General Public License as published by 14 ;;; it under the terms of the GNU General Public License as published by
272 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 272 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
273 ;;; The compatibility panel 273 ;;; The compatibility panel
274 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 274 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
275 (defvar w3-preferences-compatibility-variables 275 (defvar w3-preferences-compatibility-variables
276 '( 276 '(
277 (css-ie-compatibility
278 . "Internet Explorer (tm) 3.0 compatible stylesheet parsing")
279 (w3-netscape-compatible-comments 277 (w3-netscape-compatible-comments
280 . "Allow Netscape compatible comments") 278 . "Allow Netscape compatible comments")
281 (w3-user-colors-take-precedence 279 (w3-user-colors-take-precedence
282 . "Ignore netscape document color control") 280 . "Ignore netscape document color control")
283 (url-honor-refresh-requests 281 (url-honor-refresh-requests
481 (while todo 479 (while todo
482 (setq func (intern (format "w3-preferences-init-%s-panel" (caar todo))) 480 (setq func (intern (format "w3-preferences-init-%s-panel" (caar todo)))
483 todo (cdr todo)) 481 todo (cdr todo))
484 (and (fboundp func) (funcall func))))) 482 (and (fboundp func) (funcall func)))))
485 483
484 ;;###autoload
486 (defun w3-preferences-edit () 485 (defun w3-preferences-edit ()
487 (interactive) 486 (interactive)
488 (if (not w3-preferences-map) 487 (if (not w3-preferences-map)
489 (setq w3-preferences-map (w3-preferences-setup-glyph-map))) 488 (setq w3-preferences-map (w3-preferences-setup-glyph-map)))
490 (let* ((prefs-buffer (get-buffer-create "W3 Preferences")) 489 (let* ((prefs-buffer (get-buffer-create "W3 Preferences"))