Mercurial > emacs
view update-subdirs @ 31190:85a616c90339
(set-face-attribute):
Update doc string.
(face-attribute-name-alist):
Add :inherit.
(face-valid-attribute-values):
Handle :inherit.
(face-read-string):
Rephrase prompt to be less confusing.
Assume that DEFAULT is a string, since we must return a string.
(face-read-integer):
Use `format' to turn DEFAULT into an acceptable default for face-read-string.
Match NEW-VALUE against the string "unspecified", not the symbol
`unspecified', since that's what face-read-string returns.
(read-face-attribute):
Lookup a name for old-value in valid, and use it as a default if we find one.
Treat all values from face-read-string as strings.
If the default is used, don't do any more processing on the value,
just use the old value directly.
(read-face-and-attribute, modify-face):
Tweak prompt.
(read-face-name):
Don't assume prompt ends with a space.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 26 Aug 2000 10:58:32 +0000 |
parents | 3ede6c50d7f5 |
children | f440b9766968 |
line wrap: on
line source
#!/bin/sh # Write into $1/subdirs.el a list of subdirs of directory $1. cd $1 for file in *; do case $file in *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej) ;; *) if [ -d $file ]; then subdirs="\"$file\" $subdirs" fi ;; esac done if [ "x$subdirs" = x ]; then rm -f subdirs.el else echo ";; In load-path, after this directory should come ;; certain of its subdirectories. Here we specify them." > subdirs.el echo "(normal-top-level-add-to-load-path '($subdirs))" >> subdirs.el fi