🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.bug
Article #98956

Patches for new Elisp

#98956
From: Lee Iverson
Date: Thu, 17 Jan 1991 17:43
182 lines
7413 bytes
These patches fix problems with argument processing for @defspec (poor
interaction with @dots{}) for the new elisp.tar.Z (Jan 17 01:57)
distribution.  It also includes the patch recommended by Darryl Okahata
(darrylo%hpnmd@hp-sde.sde.hp.com) updated for this new makeinfo.

--
Lee Iverson			McGill Research Centre for Intelligent Machines
leei@mcrcim.mcgill.edu		Computer Vision and Robotics Lab
				McGill University, Montreal

*** display.texi.~1~	Wed Oct 10 20:14:05 1990
--- display.texi	Thu Jan 17 12:17:13 1991
***************
*** 334,340 ****
  and then present it to the user for perusal rather than for editing.
  Many of the help commands use this feature.
  
! @defspec with-output-to-temp-buffer buffer-name forms@dots{}
    This function executes @var{forms} while arranging to insert any
  output they print into the buffer named @var{buffer-name}.  The buffer
  is then shown in some window for viewing, displayed but not selected.
--- 334,340 ----
  and then present it to the user for perusal rather than for editing.
  Many of the help commands use this feature.
  
! @defspec with-output-to-temp-buffer buffer-name {forms@dots{}}
    This function executes @var{forms} while arranging to insert any
  output they print into the buffer named @var{buffer-name}.  The buffer
  is then shown in some window for viewing, displayed but not selected.
*** macros.texi.~1~	Tue Oct  9 16:55:01 1990
--- macros.texi	Thu Jan 17 12:15:47 1991
***************
*** 158,164 ****
  practice, all Lisp macros have names, and they are usually defined with
  the special form @code{defmacro}.
  
! @defspec defmacro name argument-list body-forms@dots{}
  @code{defmacro} defines the symbol @var{name} as a macro that looks
  like this:
  
--- 158,164 ----
  practice, all Lisp macros have names, and they are usually defined with
  the special form @code{defmacro}.
  
! @defspec defmacro name argument-list {body-forms@dots{}}
  @code{defmacro} defines the symbol @var{name} as a macro that looks
  like this:
  
*** positions.texi.~1~	Thu May 31 15:07:46 1990
--- positions.texi	Thu Jan 17 12:16:39 1991
***************
*** 634,640 ****
    The forms for saving and restoring the configuration of windows are
  described elsewhere (@pxref{Window Configurations}).
  
! @defspec save-excursion forms@dots{}
  @cindex mark excursion
  @cindex point excursion
  @cindex current buffer excursion
--- 634,640 ----
    The forms for saving and restoring the configuration of windows are
  described elsewhere (@pxref{Window Configurations}).
  
! @defspec save-excursion {forms@dots{}}
  @cindex mark excursion
  @cindex point excursion
  @cindex current buffer excursion
***************
*** 733,739 ****
  @end example
  @end deffn
  
! @defspec save-restriction forms@dots{}
  This special form saves the current bounds of the accessible portion,
  evaluates @var{forms}, and finally restores the saved bounds, thus
  restoring the same state of narrowing (or absence thereof) formerly in
--- 733,739 ----
  @end example
  @end deffn
  
! @defspec save-restriction {forms@dots{}}
  This special form saves the current bounds of the accessible portion,
  evaluates @var{forms}, and finally restores the saved bounds, thus
  restoring the same state of narrowing (or absence thereof) formerly in
*** variables.texi.~1~	Sun Dec  2 13:51:32 1990
--- variables.texi	Thu Jan 17 12:16:41 1991
***************
*** 152,158 ****
    The special forms @code{let} and @code{let*} exist to create
  local bindings.
  
! @defspec let (bindings@dots{}) forms@dots{}
  This function binds variables according to @var{bindings} and then
  evaluates all of the @var{forms} in textual order.  The @code{let}-form
  returns the value of the last form in @var{forms}.
--- 152,158 ----
    The special forms @code{let} and @code{let*} exist to create
  local bindings.
  
! @defspec let ({bindings@dots{}}) {forms@dots{}}
  This function binds variables according to @var{bindings} and then
  evaluates all of the @var{forms} in textual order.  The @code{let}-form
  returns the value of the last form in @var{forms}.
***************
*** 178,184 ****
  @end example
  @end defspec
  
! @defspec let* (bindings@dots{}) forms@dots{}
  This special form is like @code{let}, except that each symbol in
  @var{bindings} is bound as soon as its new value is computed, before the
  computation of the values of the following local bindings.  Therefore,
--- 178,184 ----
  @end example
  @end defspec
  
! @defspec let* ({bindings@dots{}}) {forms@dots{}}
  This special form is like @code{let}, except that each symbol in
  @var{bindings} is bound as soon as its new value is computed, before the
  computation of the values of the following local bindings.  Therefore,
*** windows.texi.~1~	Thu May 31 15:00:59 1990
--- windows.texi	Thu Jan 17 12:15:46 1991
***************
*** 1220,1226 ****
  @end example
  @end defun
  
! @defspec save-window-excursion forms@dots{}
    This special form executes @var{forms} in sequence, preserving window
  sizes and contents, including the value of point and the portion of the
  buffer which is visible.  However, it does not restore the value of
--- 1220,1226 ----
  @end example
  @end defun
  
! @defspec save-window-excursion {forms@dots{}}
    This special form executes @var{forms} in sequence, preserving window
  sizes and contents, including the value of point and the portion of the
  buffer which is visible.  However, it does not restore the value of
*** makeinfo.c.orig	Thu Dec 20 14:42:03 1990
--- makeinfo.c	Thu Jan 17 12:13:22 1991
***************
*** 1151,1156 ****
--- 1151,1161 ----
    result = xmalloc (i + 1);
    strncpy (result, &input_text[input_text_offset - i], i);
    result[i] = '\0';
+ #if 0
+   if ( input_text_offset + 3 > size_of_input_text )
+     printf( "Text = %s\n", input_text );
+   printf("Tok  = (%d of %d) %d %s\n", input_text_offset, size_of_input_text, i, result );
+ #endif
    return (result);
  }
  
***************
*** 2892,2898 ****
--- 2897,2905 ----
       boolean indirect_p;
  {
    TAG_ENTRY *node = tag_table;
+   boolean old_indent = no_indent;
  
+   no_indent = true;		/* we do not want paragraph indentation here */
    filling_enabled = false;
    must_start_paragraph = 0;
    close_paragraph ();
***************
*** 2910,2915 ****
--- 2917,2923 ----
      }
    add_word ("\037\nEnd Tag Table\n");
    flush_output ();
+   no_indent = old_indent;	/* restore old paragraph indentation */
  }
  
  char *
-- 

Lee Iverson			McGill Research Centre for Intelligent Machines
leei@mcrcim.mcgill.edu		Computer Vision and Robotics Lab
				McGill University, Montreal
Technical Details
Message-ID: <1991Jan17.174315.25922@thunder.mcrcim.mcgill.edu>
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!tut.cis.ohio-state.edu!mcrcim.mcgill.edu!leei

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fb2f1,1962bd3d74128c29,start
X-Google-Attributes: gidfb2f1,public
X-Google-ArrivalTime: 1991-01-17 09:43:15 PST
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!tut.cis.ohio-state.edu!mcrcim.mcgill.edu!leei
From: leei@mcrcim.mcgill.edu (Lee Iverson)
Newsgroups: gnu.emacs.bug
Subject: Patches for new Elisp
Message-ID: <1991Jan17.174315.25922@thunder.mcrcim.mcgill.edu>
Date: 17 Jan 91 17:43:15 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: McGill University, McRCIM
Lines: 182
Approved: bug-gnu-emacs@prep.ai.mit.edu