🚀 go-pugleaf

In GNU Emacs 18.57.6 of Wed Feb  6 1991 on satyr (usg-unix-v)

The following code produces an error when byte-compiled, but no error
if not byte-compiled.

The text of the error is:
"Symbol's value as variable is void: display-time-filter"

To reproduce this bug, put the following shar in its own directory and
unpack it. Type ``make'' to reproduce the bug. Type ``make no-bug'' to
see the correct behavior.

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  Makefile foo.el
# Wrapped by kayvan@satyr on Mon Feb 18 02:15:57 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'Makefile' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'Makefile'\"
else
echo shar: Extracting \"'Makefile'\" \(213 characters\)
sed "s/^X//" >'Makefile' <<'END_OF_FILE'
X#
X# Bug for byte-compiler bug
X#
Xall: foo.elc bug no-bug
X
Xfoo.elc: foo.el
X	emacs -batch -q -f batch-byte-compile foo.el
X
Xbug:
X	emacs -batch -q -l foo.elc -f fix-time
X
Xno-bug:
X	emacs -batch -q -l foo.el -f fix-time
END_OF_FILE
if test 213 -ne `wc -c <'Makefile'`; then
    echo shar: \"'Makefile'\" unpacked with wrong size!
fi
# end of 'Makefile'
fi
if test -f 'foo.el' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'foo.el'\"
else
echo shar: Extracting \"'foo.el'\" \(587 characters\)
sed "s/^X//" >'foo.el' <<'END_OF_FILE'
X(display-time)
X(defvar display-time-filter-initialized nil "For once-only setup")
X(defun fix-time()
X(if display-time-filter-initialized         ;; only do this stuff once!
X    nil
X  (fset 'old-display-time-filter            ;; we're about to redefine it...
X        (symbol-function 'display-time-filter))
X  (setq display-time-filter-initialized t)
X  (defun display-time-filter (proc string)  ;; ...here's the revised definition
X    "Revised version of the original function: this version calls a hook."
X      (old-display-time-filter proc string)
X      (run-hooks 'display-time-hook))))
END_OF_FILE
if test 587 -ne `wc -c <'foo.el'`; then
    echo shar: \"'foo.el'\" unpacked with wrong size!
fi
# end of 'foo.el'
fi
echo shar: End of shell archive.
exit 0