diff options
| author | Richard M. Stallman | 1998-08-13 23:02:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-08-13 23:02:48 +0000 |
| commit | 4be9beaf4e4120f67dbf525a84789525bfef2ef8 (patch) | |
| tree | 7c05fde6cf156905b29a57c141c4103bd2a28bbe | |
| parent | 6f76277fc69bb3691cba04d0edbb7d5021a7e24b (diff) | |
| download | emacs-4be9beaf4e4120f67dbf525a84789525bfef2ef8.tar.gz emacs-4be9beaf4e4120f67dbf525a84789525bfef2ef8.zip | |
(quail-update-leim-list-file): Fix message syntax.
| -rw-r--r-- | lisp/international/quail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 8dae9fb627a..6f24ba5202f 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -1981,7 +1981,7 @@ of each directory." | |||
| 1981 | (error | 1981 | (error |
| 1982 | ;; Delete the remaining contents because it seems that | 1982 | ;; Delete the remaining contents because it seems that |
| 1983 | ;; this file is broken. | 1983 | ;; this file is broken. |
| 1984 | (message "Garbages in %s deleted" leim-list) | 1984 | (message "Garbage in %s deleted" leim-list) |
| 1985 | (delete-region pos (point-max))))))) | 1985 | (delete-region pos (point-max))))))) |
| 1986 | 1986 | ||
| 1987 | ;; Search for `quail' subdirector under each DIRNAMES. | 1987 | ;; Search for `quail' subdirector under each DIRNAMES. |
| @@ -1992,7 +1992,7 @@ of each directory." | |||
| 1992 | (setq dirname (expand-file-name quail-directory-name (car l))) | 1992 | (setq dirname (expand-file-name quail-directory-name (car l))) |
| 1993 | (if (file-readable-p dirname) | 1993 | (if (file-readable-p dirname) |
| 1994 | (setq quail-dirs (cons dirname quail-dirs)) | 1994 | (setq quail-dirs (cons dirname quail-dirs)) |
| 1995 | (message "%s doesn't has `%s' subdirectory, just ignored" | 1995 | (message "%s doesn't have `%s' subdirectory, just ignored" |
| 1996 | (car l) quail-directory-name) | 1996 | (car l) quail-directory-name) |
| 1997 | (setq quail-dirs (cons nil quail-dirs))) | 1997 | (setq quail-dirs (cons nil quail-dirs))) |
| 1998 | (setq l (cdr l))) | 1998 | (setq l (cdr l))) |