why not allow an argument to just-one-space?

why not allow an argument to just-one-space?

[Dan Jacobson]

Why not allow an argument to just-one-space, so it can be just two
spaces, etc.?

Re: why not allow an argument to just-one-space?

[Dan Jacobson]

1 year, 39 weeks  ago "Dan" == Dan Jacobson writes:
Dan> Why not allow an argument to just-one-space, so it can be just two
Dan> spaces, etc.?

Brilliant idea. I'll second that. Why, just today I wanted four
spaces.  Don't suppose this one is a priority for the globe trotting
authors.  Especially if somebody then posts some 'advice', blurring
the urge for a permanent enhancement.

Re: why not allow an argument to just-one-space?

[Francis Litterio]

Dan Jacobson wrote:

> 1 year, 39 weeks  ago "Dan" == Dan Jacobson writes:
> Dan> Why not allow an argument to just-one-space, so it can be just two
> Dan> spaces, etc.?
>
> Brilliant idea. I'll second that. Why, just today I wanted four
> spaces.  Don't suppose this one is a priority for the globe trotting
> authors.  Especially if somebody then posts some 'advice', blurring
> the urge for a permanent enhancement.

But won't the name, just-one-space, then be confusing?

Perhaps you want this:

(defun just-n-spaces (count)
  "..."
  (interactive "p")
  (just-one-space)
  (if (integerp count)
      (insert (make-string (1- count) 32))))

Re: why not allow an argument to just-one-space?

[Kevin Rodgers]

Dan Jacobson wrote:
> 1 year, 39 weeks  ago "Dan" == Dan Jacobson writes:
> Dan> Why not allow an argument to just-one-space, so it can be just two
> Dan> spaces, etc.?
> 
> Brilliant idea. I'll second that. Why, just today I wanted four
> spaces.  Don't suppose this one is a priority for the globe trotting
> authors.  Especially if somebody then posts some 'advice', blurring
> the urge for a permanent enhancement.

DIY:

(defadvice just-one-space (after prefix-arg (&optional n) activate)
   "With a prefix arg, leave that many spaces."
   (interactive "p")
   (when (> n 1)
     (insert (make-string (1- n) ?\ ))))

-- 
Kevin Rodgers

Re: why not allow an argument to just-one-space?

[Dan Jacobson]

OK
>>>>> "rms" == Richard Stallman <rms@gnu.org> writes:

rms> Does this do the job well?
rms> (defun just-one-space (n)
rms>   "Delete all spaces and tabs around point, leaving one space (or N spaces)."
rms>   (interactive "*p")
rms>   (let ((orig-pos (point)))
rms>     (skip-chars-backward " \t")
rms>     (constrain-to-field nil orig-pos)
rms>     (dotimes (i n)
rms>       (if (= (following-char) ?\ )
rms> 	  (forward-char 1)
rms> 	(insert ?\ )))
rms>     (delete-region
rms>      (point)
rms>      (progn
rms>        (skip-chars-forward " \t")
rms>        (constrain-to-field nil orig-pos t)))))