annotate update-subdirs @ 31640:27d41d6ec45d

Sync with maintainer's current version with changes for Emacs, but avoid runtime cl and levents. (toplevel): Change autoloads and compilation requires. (strokes-version, strokes-bug-address, strokes-lift): Values changed. (strokes-xpm-header, strokes-insinuated): New variable. (strokes): Add :link. (strokes-mode): Customized. (strokes-while-inhibiting-garbage-collector): New macro. (strokes-remassoc): Avoid remove-if. (strokes-fix-button2-command): Don't use ad-do-it. (strokes-insinuate): New function. (strokes-button-press-event-p, strokes-button-release-event-p): New functions, used instead of non-`strokes-' versions.. (strokes-mouse-event-p): Rewritten. (strokes-event-closest-point): Avoid event-point. (strokes-get-grid-position): Avoid cdadr, caadr (strokes-read-stroke, strokes-read-complex-stroke): Avoid levents functions. (strokes-help): Use with-output-to-temp-buffer. (strokes-window-configuration-changed-p): New function. (strokes-update-window-configuration): Use buffer-live-p, strokes-window-configuration-changed-p. (strokes-mode): Use strokes-insinuate. Alter mouse bindings. (strokes-char-face): New face. (strokes-char-table, strokes-base64-chars): New variable. (strokes-xpm-for-stroke, strokes-list-strokes) (strokes-xpm-char-on-p, strokes-xpm-char-bit-p) (strokes-xpm-encode-length-as-string, strokes-xpm-decode-char) (strokes-xpm-to-compressed-string, strokes-decode-buffer) (strokes-encode-buffer, strokes-xpm-for-compressed-string) (strokes-compose-complex-stroke, strokes-alphabetic-lessp): New functions.

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