From 7e46ded59dc9e84d72795a87837c66661f3fdcf6 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 25 Jun 2002 05:26:04 +0000 Subject: [PATCH] 2002-06-03 KOBAYASHI Shinji * bbdb-wl.el (bbdb-wl-canonicalize-spaces-and-dots): Remove the preceding spaces. --- utils/ChangeLog | 5 +++++ utils/bbdb-wl.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/utils/ChangeLog b/utils/ChangeLog index a493da8..b06e1b0 100644 --- a/utils/ChangeLog +++ b/utils/ChangeLog @@ -1,3 +1,8 @@ +2002-06-03 KOBAYASHI Shinji + + * bbdb-wl.el (bbdb-wl-canonicalize-spaces-and-dots): Remove + the preceding spaces. + 2002-06-03 TAKAHASHI Kaoru * ptexinfmt.el: discard @cartouche. @anchor discard for Mule 2.3. diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el index e225495..fa15d70 100644 --- a/utils/bbdb-wl.el +++ b/utils/bbdb-wl.el @@ -38,8 +38,10 @@ "Way to canonicalize full name.") (defun bbdb-wl-canonicalize-spaces-and-dots (string) - (while (string-match " +\\|[\f\t\n\r\v]+\\|\\." string) + (while (and string (string-match " +\\|[\f\t\n\r\v]+\\|\\." string)) (setq string (replace-match " " nil t string))) + (and string (string-match "^ *" string) + (setq string (replace-match "" nil t string))) string) ;;;###autoload -- 1.7.10.4