Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-prefs.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents 9f59509498e1
children
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
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: 1997/03/21 15:52:22 3 ;; Created: 1997/04/24 15:41:27
4 ;; Version: 1.23 4 ;; Version: 1.24
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, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
54 (defun w3-preferences-restore-variables (vars) 54 (defun w3-preferences-restore-variables (vars)
55 (let ((temp nil)) 55 (let ((temp nil))
56 (while vars 56 (while vars
57 (setq temp (intern (format "w3-preferences-temp-%s" (car vars)))) 57 (setq temp (intern (format "w3-preferences-temp-%s" (car vars))))
58 (set (car vars) (symbol-value temp)) 58 (set (car vars) (symbol-value temp))
59 (if (fboundp 'custom-set-variables)
60 (eval (` (custom-set-variables '((, (car vars)) (quote (, (symbol-value temp))) t)))))
59 (setq vars (cdr vars))))) 61 (setq vars (cdr vars)))))
60 62
61 (defun w3-preferences-create-temp-variables (vars) 63 (defun w3-preferences-create-temp-variables (vars)
62 (let ((temp nil)) 64 (let ((temp nil))
63 (while vars 65 (while vars
536 (setq func (intern 538 (setq func (intern
537 (format "w3-preferences-save-%s-panel" (caar panels))) 539 (format "w3-preferences-save-%s-panel" (caar panels)))
538 panels (cdr panels)) 540 panels (cdr panels))
539 (if (fboundp func) 541 (if (fboundp func)
540 (funcall func))) 542 (funcall func)))
543 (if (fboundp 'custom-save-variables)
544 (custom-save-variables))
541 (w3-preferences-save-options) 545 (w3-preferences-save-options)
542 (message "Options saved") 546 (message "Options saved")
543 (sit-for 1) 547 (sit-for 1)
544 (kill-buffer (current-buffer)))) 548 (kill-buffer (current-buffer))))
545 549