Re: dabbrev problem...

[Andreas Röhler]

Am Donnerstag, 13. September 2007 21:51 schrieb cons:
> (defun complete-further (arg)
>   "Insert space if necessary and then call dabbrev-expand."
>   (interactive "*P")
>   (if (not (eq (preceding-char) ?\s))
>                 (insert ?\s))
>   (dabbrev-expand arg))



What about this:

(defun dabbrev-expand-before-point (arg)
  (interactive "*p")
    (skip-chars-backward " \t\r\n\f")
    (dabbrev-expand arg)
  (unless (eq (preceding-char) ?\ )
    (insert " ")))

Andreas Röhler