view mkinstalldirs @ 58059:ede0c20bdb75

This bug was fixed by RMS on 2004-11-02: ** scroll-preserve-screen-position doesn't work with a header-line-format From: [e-mail] Date: Tue, 17 Aug 2004 17:10:14 -0400 There seems to be an off-by-one error triggered by using a header line together with scroll-preserve-screen-position. The symptom: instead of staying in the same position on the screen when scrolling, the cursor moves one screen line down each time the buffer is scrolled. Put another way: repeatedly typing C-v M-v or using a mouse scroll wheel to scroll up and down causes the cursor to migrate slowly down the screen instead of staying put as it should. To reproduce: emacs -q --no-site-file (setq scroll-preserve-screen-position t) (setq header-line-format "") C-v M-v C-v M-v C-v M-v etc.

#! /bin/sh
# mkinstalldirs --- make directory hierarchy
# Author: Noah Friedman <[e-mail]>
# Created: 1993-05-16
# Public domain

errstatus=0

for file
do
   set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
   shift

   pathcomp=
   for d
   do
     pathcomp="$pathcomp$d"
     case "$pathcomp" in
       -* ) pathcomp=./$pathcomp ;;
     esac

     if test ! -d "$pathcomp"; then
        echo "mkdir $pathcomp" 1>&2

        (mkdir "$pathcomp" && chmod a+rx "$pathcomp") || lasterr=$?

        if test ! -d "$pathcomp"; then
  	  errstatus=$lasterr
        fi
     fi

     pathcomp="$pathcomp/"
   done
done

exit $errstatus

# mkinstalldirs ends here