comparison lisp/cus-edit.el @ 776:79940b592197

[xemacs-hg @ 2002-03-15 07:43:14 by ben] .cvsignore: ignore .tmp files that are getting auto-created by VC. Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). alloc.c, emacs.c, lisp.h: add new -no-packages. make sure list of args for sorting is actually correct. clean up arg parsing code. xemacs.mak: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). Makefile: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). mule\chinese.el, mule\japan-util.el: fix warnings. behavior-defs.el: fix errors with require. bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs. cus-edit.el: pretty-print values. dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new -no-packages option. merge code duplication in dump-paths and startup. lisp-mode.el: indent macrolet and labels correctly. update comments about lisp-indent-function. flet already handled in cl. apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings. very-early-lisp.el: update docs. mule\chinese.el, mule\japan-util.el: fix warnings. mule\chinese.el, mule\japan-util.el: fix warnings. behavior-defs.el: fix errors with require. bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs. cus-edit.el: pretty-print values. dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new -no-packages option. merge code duplication in dump-paths and startup. lisp-mode.el: indent macrolet and labels correctly. update comments about lisp-indent-function. flet already handled in cl. apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings. very-early-lisp.el: update docs. mule\chinese.el, mule\japan-util.el: fix warnings. Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs).
author ben
date Fri, 15 Mar 2002 07:43:43 +0000
parents a307f9a2021d
children 616e133a0ce6
comparison
equal deleted inserted replaced
775:7d972c3de90a 776:79940b592197
3402 (when (or (and spec (eq (car spec) 'user) 3402 (when (or (and spec (eq (car spec) 'user)
3403 (eq (second spec) 'set)) comment 3403 (eq (second spec) 'set)) comment
3404 ;; support non-themed vars 3404 ;; support non-themed vars
3405 (and (null spec) (get symbol 'saved-value))) 3405 (and (null spec) (get symbol 'saved-value)))
3406 (princ "\n '(") 3406 (princ "\n '(")
3407 (prin1 symbol) 3407 (prin1 symbol)
3408 (princ " ") 3408 (princ " ")
3409 ;; This comment stuff is in the way #### 3409 ;; This comment stuff is in the way ####
3410 ;; Is (eq (third spec) (car saved-value)) ???? 3410 ;; Is (eq (third spec) (car saved-value)) ????
3411 ;; (prin1 (third spec)) 3411 ;; (prin1 (third spec))
3412 (prin1 (car (get symbol 'saved-value))) 3412 ;; XEmacs -- pretty-print value if available
3413 (if-fboundp 'pp
3414 (pp (car (get symbol 'saved-value)))
3415 (prin1 (car (get symbol 'saved-value))))
3413 (when (or now requests comment) 3416 (when (or now requests comment)
3414 (princ (if now " t" " nil"))) 3417 (princ (if now " t" " nil")))
3415 (when (or comment requests) 3418 (when (or comment requests)
3416 (princ " ") 3419 (princ " ")
3417 (prin1 requests)) 3420 (prin1 requests))