Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-prefs.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents e04119814345
children 8d2a9b52c682
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
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/14 06:31:17 3 ;; Created: 1997/03/14 23:49:47
4 ;; Version: 1.19 4 ;; Version: 1.20
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.
217 (doc nil)) 217 (doc nil))
218 (widget-insert "\n") 218 (widget-insert "\n")
219 (while todo 219 (while todo
220 (setq cur (car todo) 220 (setq cur (car todo)
221 todo (cdr todo) 221 todo (cdr todo)
222 doc (documentation-property cur 'variable-documentation)) ;; (get cur 'variable-documentation)) 222 doc (documentation-property cur 'variable-documentation))
223 (if (string-match "^\\*" doc) 223 (if (string-match "^\\*" doc)
224 (setq doc (substring doc 1 nil))) 224 (setq doc (substring doc 1 nil)))
225 (setq pt (point)) 225 (setq pt (point))
226 (widget-insert "\n" (symbol-name cur) " - " doc) 226 (widget-insert "\n" (symbol-name cur) " - " doc)
227 (fill-region-as-paragraph pt (point)) 227 (fill-region-as-paragraph pt (point))