From 8bce086749c63d6812a8df1e49592119091379ee Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Jul 1994 15:51:56 +0000 Subject: [PATCH] (dissociated-press): Error at start if buffer is empty. --- lisp/play/dissociate.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el index 6939f320f79..2f564151db7 100644 --- a/lisp/play/dissociate.el +++ b/lisp/play/dissociate.el @@ -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 -- 2.39.5