(dissociated-press): Error at start if buffer is empty.

This commit is contained in:
Richard M. Stallman 1994-07-26 15:51:56 +00:00
parent bd37f91150
commit 8bce086749

View file

@ -45,6 +45,8 @@ Default is 2."
(move-amount (if (> arg 0) arg (- arg)))
(search-function (if (> arg 0) 'search-forward 'word-search-forward))
(last-query-point 0))
(if (= (point-max) (point-min))
(error "The buffer contains no text to start from"))
(switch-to-buffer outbuf)
(erase-buffer)
(while