annotate lispref/mkinstalldirs @ 83887:5e1dbcacecd3

(fancy-about-text): New variable. (fancy-splash-delay, fancy-splash-max-time): Remove user options. (fancy-current-text, fancy-splash-stop-time) (fancy-splash-outer-buffer): Remove variables. (fancy-splash-head, fancy-splash-tail): Add new optional argument `startup' and use it to conditionally display different texts for Startup and About screens. Don't display Help commands on the About screen. (fancy-splash-screens-1): Remove function and move its content to `fancy-splash-screens' to the part that dislpays the About screen. (exit-splash-screen): Don't treat specially exiting from alternating screens. (fancy-splash-screens): Rename argument `static' to `startup'. Fix docstring. Remove code for displaying alternating screens. Use arg `startup' in calls to `fancy-splash-head', `fancy-splash-tail'. Remove let-bind for `fancy-splash-outer-buffer' and add let-bind for `inhibit-read-only'. (normal-splash-screen): Rename argument `static' to `startup'. Fix docstring. Use argument `startup' to conditionally display different texts for Startup and About screens. Don't display Help commands on the About screen. Remove `unwind-protect' `sit-for' delay and `kill-buffer' after it. (display-startup-echo-area-message): Remove call to `use-fancy-splash-screens-p' because image.el is preloaded and doesn't display "Loading image... done". (display-splash-screen): Rename argument `static' to `startup'. Fix docstring.
author Juri Linkov <juri@jurta.org>
date Tue, 04 Sep 2007 22:52:08 +0000
parents 746c40973d25
children eb7e8d483840
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
30517
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 #! /bin/sh
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2 # mkinstalldirs --- make directory hierarchy
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3 # Author: Noah Friedman <friedman@prep.ai.mit.edu>
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4 # Created: 1993-05-16
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5 # Public domain
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 errstatus=0
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9 for file
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 do
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 shift
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 pathcomp=
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 for d
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16 do
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 pathcomp="$pathcomp$d"
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 case "$pathcomp" in
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 -* ) pathcomp=./$pathcomp ;;
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 esac
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 if test ! -d "$pathcomp"; then
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23 echo "mkdir $pathcomp" 1>&2
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25 mkdir "$pathcomp" || lasterr=$?
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 if test ! -d "$pathcomp"; then
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 errstatus=$lasterr
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 fi
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 fi
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32 pathcomp="$pathcomp/"
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 done
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 done
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 exit $errstatus
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37
9362643130ae *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38 # mkinstalldirs ends here