Minor improvement in 'get-locale-names' on MS-Windows

* lisp/international/mule-cmds.el (get-locale-names): Delete
duplicate locales from the list returned by the MS-Windows
implementation.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index dc09dad2cb498e8d75fddc981fd61383387d7e17..8494d5409164014fcdc5f3a16cff0797b587dae8 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2616,7 +2616,7 @@ is returned.  Thus, for instance, if charset \"ISO8859-2\",
    ;; On Windows we have a built-in method to get the names.
    ((and (fboundp 'w32-get-locale-info)
          (fboundp 'w32-get-valid-locale-ids))
-    (mapcar #'w32-get-locale-info (w32-get-valid-locale-ids)))
+    (delete-dups (mapcar #'w32-get-locale-info (w32-get-valid-locale-ids))))
    ;; Unix-ey hosts should have a command to output locales currently
    ;; defined by the OS.
    ((executable-find "locale")