Mercurial > emacs
view update-subdirs @ 80402:bc43e42e2fb4
(url-digest-auth): Changed an if so that the interaction between the
PROMPT and OVERWRITE arguments can no longer result in the user being
queried twice for the same login and password information.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 31 Mar 2008 22:02:24 +0000 |
parents | a9b80f99c836 |
children | 107ccd98fa12 |
line wrap: on
line source
#!/bin/sh # Write into $1/subdirs.el a list of subdirs of directory $1. # Copyright (C) 1994, 1995, 1997, 1999, 2001, 2002, 2003, 2004, 2005, # 2006, 2007, 2008 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # # GNU Emacs is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3, or (at your option) # any later version. # # GNU Emacs is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Emacs; see the file COPYING. If not, write to the # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, # Boston, MA 02110-1301, USA. 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 ";; -*- no-byte-compile: t -*-" > subdirs.el 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)) ;; Local" "Variables: ;; version-control: never ;; no-byte-compile: t ;; End:" >> subdirs.el fi # arch-tag: 56ebcf1b-5c30-4934-b0b4-72d374064704