Mercurial > hg > xemacs-beta
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)) |