From b2673b8f3f8ec721abf190faee2ae47b80ca8bd5 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 29 Jan 1996 23:10:03 +0000 Subject: (outline-process-exposed): Fix error format string. --- lisp/allout.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/allout.el b/lisp/allout.el index 8302dc5b207..db41d4af169 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -3265,9 +3265,8 @@ representations of topic entries produced by outline-listify-exposed." ;; Specified but not a buffer - get it: (let ((got (get-buffer frombuf))) (if (not got) - (error (concat "outline-process-exposed: source buffer " - frombuf - " not found.")) + (error "outline-process-exposed: source buffer %s not found." + frombuf) (setq frombuf got)))) ;; not specified - default it: (setq frombuf (current-buffer))) -- cgit v1.2.1