aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/international/quail.el4
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)))