🚀 go-pugleaf

In article <9110102007.AA07087@bes.evi.com> andy@evi.COM (Andrew Dennison) writes:

   When the point is at the end of the line, I expect fixup-whitespace to
   eliminate all spaces. It leaves one. I have a fix:

   [....]

   Possible Fix:
   ------------------------------------------------------------------------
   ;; fix bug at EOL AOD 10/10/91
   (defun fixup-whitespace ()
     "MY Fixup white space between objects around point.
   Leave one space or none, according to the context."
     (interactive "*")
     (save-excursion
       (delete-horizontal-space)

       (if (or (looking-at "^\\|\\s)\\|$")
	       (save-excursion (forward-char -1)
			       (looking-at "\\s(\\|\\s'")
			       )
	       )
	   nil
	 (insert ?\ )
	 )
       )
     )
   ------------------------------------------------------------------------

I ran into the same problem; I don't remember the context but it was
really annoying.  My fix is the same as yours except that it doesn't use
`if':

    ;; Modification of version in simple.el
    ;; Fixed to delete white space at end of lines.
    (defun fixup-whitespace ()
      "Fixup white space between objects around point.
    Leave one space or none, according to the context."
      (interactive "*")
      (save-excursion
	(delete-horizontal-space)
	(or (looking-at "^\\|$\\|\\s)")
	    (save-excursion (forward-char -1)
			    (looking-at "\\s(\\|\\s'"))
	    (insert ?\ ))))

-- 
Later,

Joe Wells <jbw@cs.bu.edu>