/[emacs]/emacs/update-subdirs
ViewVC logotype

Diff of /emacs/update-subdirs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by gerd, Tue Feb 20 10:54:14 2001 UTC revision 1.3.16.1 by miles, Fri Apr 4 06:19:49 2003 UTC
# Line 24  cd $1 Line 24  cd $1
24  for file in *; do  for file in *; do
25      case $file in      case $file in
26          *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej)          *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej)
27            ;;                ;;
28          *)          *)
29              if [ -d $file ]; then              if [ -d $file ]; then
30                subdirs="\"$file\" $subdirs"                subdirs="\"$file\" $subdirs"
# Line 36  done Line 36  done
36  if [ "x$subdirs" = x ]; then  if [ "x$subdirs" = x ]; then
37    rm -f subdirs.el    rm -f subdirs.el
38  else  else
39    
40      echo ";; -*- no-byte-compile: t -*-" > subdirs.el
41    
42    echo ";; In load-path, after this directory should come    echo ";; In load-path, after this directory should come
43  ;; certain of its subdirectories.  Here we specify them." > subdirs.el  ;; certain of its subdirectories.  Here we specify them." >> subdirs.el
44    
45    echo "(normal-top-level-add-to-load-path '($subdirs))" >> subdirs.el    echo "(normal-top-level-add-to-load-path '($subdirs))" >> subdirs.el
46  fi  fi

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.16.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26