From 76767f4c45b00c6d95d6bfbbde02a1e5f49f32d6 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 7 May 2002 05:34:03 +0000 Subject: [PATCH] Fixed last change. --- wl/wl-util.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/wl/wl-util.el b/wl/wl-util.el index db27706..f620bbe 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -931,8 +931,7 @@ is enclosed by at least one regexp grouping construct." newtext))) (defun wl-line-parse-format (format spec-alist) - "Make a formatter from FORMAT and SPEC-ALIST. -WIDTH is the width of the result string." + "Make a formatter from FORMAT and SPEC-ALIST." (let (f spec specs stack) (setq f (with-temp-buffer @@ -946,7 +945,7 @@ WIDTH is the width of the result string." (cond ((string= (match-string 2) "(") (if (zerop (length (match-string 1))) - (error "No number specification for %( line format")) + (error "No number specification for %%( line format")) (push (list (match-beginning 0) ; start (match-end 0) ; start-content @@ -960,7 +959,7 @@ WIDTH is the width of the result string." form) (unless entry (error - "No matching %( parenthesis in summary line format")) + "No matching %%( parenthesis in summary line format")) (goto-char (car entry)) ; start (setq form (buffer-substring (nth 1 entry) ; start-content (- (match-beginning 0) 1))) -- 1.7.10.4