view update-subdirs @ 33258:e2ec8e65cd35

Require texinfo. (defmacro, defgroup): Remove. (texinfo-section-to-generic-alist): Remove. Use texinfo-section-list instead (i.e. level is changed string->int). (texinfo-filter): New function. (texinfo-chapter-level-regexp, texinfo-subsubsection-level-regexp) (texinfo-subsection-level-regexp, texinfo-section-level-regexp): Use it. And use regexp-opt. (texinfo-find-higher-level-node, texinfo-hierarchic-level) (texinfo-update-menu-region-beginning) (texinfo-update-menu-same-level-regexps) (texinfo-update-menu-higher-regexps, texinfo-update-menu-lower-regexps) (texinfo-update-the-node, texinfo-sequentially-update-the-node): Update. (texinfo-update-node, texinfo-every-node-update) (texinfo-sequential-node-update): Remove autoload cookie.

#!/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