🚀 go-pugleaf

In GNU Emacs 19.25.93.6 (sparc-sun-sunos4shr) of Sun Aug 14 1994 on naggum.no

when `insert-parentheses' is called at the beginning and/or end of the
buffer, it will insert spaces before and after the parens.  I didn't quite
expect this, and found the reason to be that `preceding-char' and
`following-char' return 0 at these boundary positions.  (char-syntax 0) in
turn says it's a whitespace, which I definitely don't think it is.  maybe
`preceding-char' and `following-char' should return nil?

this patch causes spurious blanks not be inserted at the beginning and the
end of the buffer.

</Erik>

---------------------------------------------------------------------------

Sun Aug 14 19:21:43 1994  Erik Naggum  <erik@naggum.no>

	* lisp.el (insert-parentheses): don't insert spaces at beginning
	and end of buffer.

*** lisp/lisp.el.~1~	Mon Jul 11 21:26:15 1994
--- lisp/lisp.el	Sun Aug 14 19:14:41 1994
***************
*** 218,223 ****
--- 218,224 ----
      (setq arg 0))
    (or (eq arg 0) (skip-chars-forward " \t"))
    (and parens-require-spaces
+        (not (bobp))
         (memq (char-syntax (preceding-char)) '(?w ?_ ?\) ))
         (insert " "))
    (insert ?\()
***************
*** 225,230 ****
--- 226,232 ----
      (or (eq arg 0) (forward-sexp arg))
      (insert ?\))
      (and parens-require-spaces
+ 	 (not (eobp))
  	 (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
  	 (insert " "))))