Commit ef15f270 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent fbfed6f0
......@@ -407,14 +407,14 @@ sigtype=void
if [ "${signal_h_file}" ]; then
sigpattern='[ ]*([ ]*\*[ ]*signal[ ]*('
# We make a symbolic link whose name ends in .c, so the compiler
# We make a copy whose name ends in .c, so the compiler
# won't complain about having only been given a .h file.
ln -s ${signal_h_file} ${tempcname}
cp ${signal_h_file} ${tempcname}
if ${cc} -E ${tempcname} | grep "int${sigpattern}" > /dev/null; then
rm ${tempcname}
rm -f ${tempcname}
echo "Examining the machine- and system-dependent files to find out"
......@@ -601,7 +601,7 @@ echo "# This file is generated by \`${progname}.'
# running \`${progname}' instead.
" >> config.status
echo "${message}" | sed -e 's/^/# /' >> config.status
echo "'./${progname}' ${arguments} "'$@' >> config.status
echo "'${progname}' ${arguments} "'$@' >> config.status
# Remind people not to edit this.
chmod -w config.status
chmod +x config.status
......@@ -135,7 +135,7 @@ digest-doc: digest-doc.c
sorted-doc: sorted-doc.c
$(CC) ${CFLAGS} sorted-doc.c $(LOADLIBES) -o sorted-doc
b2m: b2m.c
b2m: b2m.c ../src/config.h
$(CC) ${CFLAGS} b2m.c $(LOADLIBES) -o b2m
movemail: movemail.c ../src/config.h
......@@ -341,7 +341,8 @@ Has a preference of looking backwards."
(buffer-substring (match-beginning 1)
(match-end 1)))))))))
(provide 'add-log)
;;; add-log.el ends here
......@@ -69,9 +69,10 @@ nil means use indentation.")
(defvar mail-abbrevs-loaded nil)
(defvar mail-mode-map nil)
(defvar mail-signature nil
"*Text inserted at end of mail buffer when a message is initialized.
If t, it means to insert the contents of the file `~/.signature'.")
(defvar mail-signature-file "~/.signature"
"*Name of file to insert at the end of the mail buffer.
The text is inserted when the message is initialized.")
(defvar mail-reply-buffer nil)
(defvar mail-send-actions nil
......@@ -122,14 +123,10 @@ so you can edit or delete these lines.")
(insert "BCC: " (user-login-name) "\n"))
(if mail-archive-file-name
(insert "FCC: " mail-archive-file-name "\n"))
(insert mail-header-separator "\n")
;; Read the .signature file if we haven't already done so
;; (and if the user has not overridden it).
(cond ((eq mail-signature t)
(insert "--\n")
(insert-file-contents "~/.signature"))
(insert mail-signature)))
(insert mail-header-separator "\n\n")
;; Read the .signature file.
(if mail-signature-file
(insert-file-contents (expand-file-name mail-signature-file)))
(goto-char (point-max))
(or (bolp) (newline)))
(if to (goto-char (point-max)))
......@@ -480,7 +477,7 @@ the user from the mailer."
(search-forward (concat "\n" mail-header-separator "\n")))
(defun mail-signature (atpoint)
"Sign letter with contents of ~/.signature file."
"Sign letter with contents of mail-signature-file."
(interactive "P")
(or atpoint
......@@ -490,7 +487,7 @@ the user from the mailer."
(or atpoint
(delete-region (point) (point-max)))
(insert "\n\n--\n")
(insert-file-contents (expand-file-name "~/.signature"))))
(insert-file-contents (expand-file-name mail-signature-file))))
(defun mail-fill-yanked-message (&optional justifyp)
"Fill the paragraphs of a message yanked into this one.
......@@ -554,8 +551,8 @@ and don't delete any header fields."
When this function returns, the buffer `*mail*' is selected.
The value is t if the message was newly initialized; otherwise, nil.
By default, the signature file `~/.signature' is inserted at the end;
see the variable `mail-signature'.
By default, the file named by the variable `mail-signature-file' is
inserted at the end; by default, this is \"~/.signature\".
While editing message, type \\[mail-send-and-exit] to send the message and exit.
......@@ -36,8 +36,8 @@ while [ $# -gt 0 ]; do
# remove all files newer than the given timestamp file. This is useful
# for creating incremental or patch distributions
* )
......@@ -77,7 +77,7 @@ fi
echo "Creating staging directory: \`${tempparent}'"
mkdir ${tempparent}
# This trap ensures that the staging directory will be cleaned up even
......@@ -105,7 +105,7 @@ for subdir in lisp lisp/term local-lisp external-lisp \
echo "Making links to \`lisp'."
# Don't distribute =*.el files, site-init.el, or site-load.el.
# Don't distribute =*.el files, site-init.el, site-load.el, or default.el.
(cd lisp
ln [a-zA-Z]*.el ../${tempdir}/lisp
ln [a-zA-Z]*.elc ../${tempdir}/lisp
......@@ -114,7 +114,8 @@ echo "Making links to \`lisp'."
ln ChangeLog README ../${tempdir}/lisp
cd ../${tempdir}/lisp
rm -f site-init site-init.el site-init.elc
rm -f site-load site-load.el site-load.elc)
rm -f site-load site-load.el site-load.elc
rm -f default default.el default.elc)
echo "Making links to \`lisp/term'."
# Don't distribute =*.el files.
......@@ -142,7 +143,10 @@ echo "Making links to \`src'."
ln .gdbinit .dbxinit ../${tempdir}/src
ln *.com *.opt vms-pp.trans vmsbuild ../${tempdir}/src
cd ../${tempdir}/src
rm -f config.h paths.h Makefile)
rm -f config.h paths.h Makefile
if [ -z "${newer}" ]; then
etags *.h *.c ../lisp/*.el
echo "Making links to \`src/m'."
(cd src/m
......@@ -165,7 +169,7 @@ echo "Making links to \`oldXMenu'."
ln README Makefile Imakefile ChangeLog ../${tempdir}/oldXMenu)
echo "Making links to \`etc'."
# Don't distribute TAGS, DOC files, backups, autosaves, or tex litter.
# Don't distribute DOC files, backups, autosaves, or tex litter.
(cd etc
ln [0-9a-zA-Z]* ../${tempdir}/etc
cd ../${tempdir}/etc
......@@ -173,7 +177,7 @@ echo "Making links to \`etc'."
for dummy in DOC-dummy dummy~ \#dummy\# dummy.dvi dummy.log; do
ln MACHINES ${dummy}
rm -f TAGS DOC* *~ \#*\# *.dvi *.log core)
rm -f DOC* *~ \#*\# *.dvi *.log core)
# For now, we comment these out, since I'm not changing them any.
#!! echo "Making links to \`cpp'."
......@@ -9,8 +9,8 @@ Works only when an inferior emacs is executing.
define xtype
print (enum Lisp_Type) (($ >> 24) & 0x7f)
p $$
output (enum Lisp_Type) (($ >> 24) & 0x7f)
echo \n
document xtype
Print the type of $, assuming it is an Elisp value.
......@@ -32,12 +32,11 @@ end
define xwindow
print (struct window *) ($ & 0x00ffffff)
print ($->left)@4
print $$
printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
document xwindow
Print $ as a window pointer, assuming it is an Elisp window value.
Print the window's position as { left, top, height, width }.
Print the window's position as "WIDTHxHEIGHT+LEFT+TOP".
define xmarker
......@@ -49,8 +48,8 @@ end
define xbuffer
print (struct buffer *) ($ & 0x00ffffff)
print &((struct Lisp_String *) (($->name) & 0x00ffffff))->data
print $$
output &((struct Lisp_String *) (($->name) & 0x00ffffff))->data
echo \n
document xbuffer
Set $ as a buffer pointer, assuming it is an Elisp buffer value.
......@@ -59,8 +58,8 @@ end
define xsymbol
print (struct Lisp_Symbol *) ($ & 0x00ffffff)
print &$->name->data
print $$
output &$->name->data
echo \n
document xsymbol
Print the name and address of the symbol $.
......@@ -69,8 +68,8 @@ end
define xstring
print (struct Lisp_String *) ($ & 0x00ffffff)
print ($->size > 10000) ? "big string" : ($->data[0])@($->size)
print $$
output ($->size > 10000) ? "big string" : ($->data[0])@($->size)
echo \n
document xstring
Print the contents and address of the string $.
......@@ -78,9 +77,9 @@ This command assumes that $ is an Elisp string value.
define xvector
set $temp = (struct Lisp_Vector *) ($ & 0x00ffffff)
print ($temp->size > 10000) ? "big vector" : ($temp->contents[0])@($temp->size)
print $temp
print (struct Lisp_Vector *) ($ & 0x00ffffff)
output ($->size > 1000) ? "big vector" : ($->contents[0])@($->size)
echo \n
document xvector
Print the contents and address of the vector $.
......@@ -96,8 +95,8 @@ end
define xcons
print (struct Lisp_Cons *) ($ & 0x00ffffff)
print *$
print $$
output *(struct Lisp_Cons *) ($ & 0x00ffffff)
echo \n
document xcons
Print the contents of $, assuming it is an Elisp cons.
......@@ -121,6 +120,7 @@ set print pretty on
unset environment TERMCAP
unset environment TERM
echo TERMCAP and TERM environment variables unset.\n
show environment DISPLAY
set args -q
......@@ -667,8 +667,8 @@ extern void defvar_int ();
#define DEFVAR_LISP_NOPRO(lname, vname, doc) defvar_lisp_nopro (lname, vname)
#define DEFVAR_BOOL(lname, vname, doc) defvar_bool (lname, vname)
#define DEFVAR_INT(lname, vname, doc) defvar_int (lname, vname)
#define DEFVAR_PER_BUFFER(lname, vname, doc) \
defvar_per_buffer (lname, vname)
#define DEFVAR_PER_BUFFER(lname, vname, type, doc) \
defvar_per_buffer (lname, vname, type, 0)
/* Structure for recording Lisp call stack for backtrace purposes */
......@@ -63,9 +63,12 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
* Define HAVE_SELECT if the system supports the `select' system call.
* SVr3.2 X ports include an emulation.
/* #define HAVE_SELECT */
#endif /* HAVE_X_WINDOWS */
* Define HAVE_PTYS if the system supports pty devices.
......@@ -192,24 +195,39 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define ADDR_CORRECT(x) (x)
/* Prevent -lg from being used for debugging. Not implemented? */
#define LIBS_DEBUG
/* Use terminfo instead of termcap. */
#define TERMINFO
/* AT&T SVr3 X wants to be linked with shared libraries */
#define LIB_X11_LIB -lX11_s
/* X needs to talk on the network, so search the network library. */
#define LIBX10_SYSTEM -lnsl_s
#define LIBX11_SYSTEM -lnsl_s
#define LIBX11_SYSTEM -lnls -lnsl_s -lpt -lc_s
/* Some variants have TIOCGETC, but the structures to go with it
are not declared. */
/* Some variants have TIOCGWINSZ, but the structures to go with it
are not declared. */
/* SVr3 does not have utimes(2) */
#define USE_UTIME
/* If we're using the System V X port, BSD bstring functions will be handy */
#define BSTRING
#endif /* HAVE_X_WINDOWS */
/* Enable support for shared libraries in unexec. */
......@@ -217,4 +235,3 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* On USG systems signal handlers return void */
#define SIGTYPE void
......@@ -68,7 +68,7 @@ and this notice must be preserved on all copies. */
#undef SIGIO
/* libc has this stuff, but not utimes. */
/* libc has this stuff, but still not utimes. */
......@@ -77,8 +77,6 @@ and this notice must be preserved on all copies. */
#define HAVE_DUP2
#define USE_UTIME
/* <sys/stat.h> *defines* stat(2) as a static function. If "static"
* is blank, then many files will have a public definition for stat(2).
......@@ -102,7 +102,9 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define EMACS_TIME int
#define EMACS_SECS(time) (time)
#define EMACS_USECS(time) 0
#define EMACS_SET_SECS(time, seconds) ((time) = (seconds))
#define EMACS_SET_USECS(time, usecs) 0
#define EMACS_GET_TIME(t) ((t) = time ((long *) 0))
#define EMACS_ADD_TIME(dest, src1, src2) ((dest) = (src1) + (src2))
......@@ -118,7 +120,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define EMACS_SET_UTIMES(path, atime, mtime) \
{ \
struct time_t tv[2]; \
time_t tv[2]; \
tv[0] = EMACS_SECS (atime); \
tv[1] = EMACS_SECS (mtime); \
utime ((path), tv); \
......@@ -169,6 +169,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Just ignore this for now and hope for the best */
#define EMACS_GET_TTY_PGRP(fd, pgid) 0
#define EMACS_SET_TTY_PGRP(fd, pgif) 0
......@@ -40,6 +40,14 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define MAXHEIGHT 80
#ifdef HAVE_X11
/* It turns out that we can auto-detect whether we're being compiled
with X11R3 or X11R4 by looking for the flag macros for R4 structure
members that R3 doesn't have. */
#ifdef PBaseSize
#define HAVE_X11R4
#define PIX_TYPE unsigned long
#define XDISPLAY x_current_display,
#define XFlushQueue() XFlush(x_current_display)
......@@ -311,6 +319,19 @@ struct x_display
/* What kind of text cursor is drawn in this window right now? (If
there is no cursor (phys_cursor_x < 0), then this means nothing. */
enum text_cursor_kinds text_cursor_kind;
/* These are the current window manager hints. It seems that
XSetWMHints, when presented with an unset bit in the `flags'
member of the hints structure, does not leave the corresponding
attribute unchanged; rather, it resets that attribute to its
default value. For example, unless you set the `icon_pixmap'
field and the `IconPixmapHint' bit, XSetWMHints will forget what
your icon pixmap was. This is rather troublesome, since some of
the members (for example, `input' and `icon_pixmap') want to stay
the same throughout the execution of Emacs. So, we keep this
structure around, just leaving values in it and adding new bits
to the mask as we go. */
XWMHints wm_hints;
/* When X windows are used, a glyf may be a 16 bit unsigned datum.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment