view update-subdirs @ 29937:693c2c631d72

(sql-interactive-mode-map): Use `kbd' in calls to `define-key'; instead of checking `(emacs-version)' check for `set-keymap-parent' and `set-keymap-name' directly. Add entries for `;' and `o' which might be electric. (sql-electric-stuff): New user option. (sql-magic-go): New function which uses `sql-electric-stuff'. (sql-magic-semicolon): New function which uses `sql-electric-stuff'. (sql-accumulate-and-indent): Insert newline if `comint-accumulate' is not fboundp. (sql-oracle-options): New variable. (sql-oracle): Use it. (sql-imenu-generic-expression): Doc change. (sql-find-sqli-buffer): Make sure the default-value of sql-buffer is used. (sql-informix): Added command line parameter "-" to force sql-informix-program to use stdout.

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