Merge from emacs--rel--22

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1081

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb3a907d6c3fdd0e89014d70614cc3235847dc5d..4489d7e247fcfe83693fb2a85b19524bf462dc5d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-25  Jason Rumney  <jasonr@gnu.org>
+
+       * files.el (file-name-invalid-regexp): Fix octal/decimal confusion.
+
 2008-02-25  Juri Linkov  <juri@jurta.org>
 
        * isearch.el (isearch-fail): Use "RosyBrown1" for a light

diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12
index e7666973521e89895ebe9ae8a02bc43805624d26..82814f2226d11ccd1f33a9e0c5897d1401f26087 100644 (file)
--- a/lisp/ChangeLog.12
+++ b/lisp/ChangeLog.12
@@ -2595,7 +2595,7 @@
        * bookmark.el (bookmark-buffer-file-name): Abbreviate the bookmark
        path.  Rewrite function in `cond' style for readability.
 
-       Suggested by: Stephen Eglen <S.J.Eglen{_AT_}damtp.cam.ac.uk>.
+       Suggested by Stephen Eglen <S.J.Eglen{_AT_}damtp.cam.ac.uk>.
        (The path shortening, that is, not the rearrangement.)
 
 2007-01-15  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>

diff --git a/lisp/files.el b/lisp/files.el
index 3950d5e7195e29b84eff48afb0a511e2dc21431e..908bc95356b55f6f278068bb4f9c86721a9f7c42 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -226,12 +226,12 @@ have fast storage with limited space, such as a RAM disk."
   (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
         (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
                 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|"  ; invalid characters
-                "[\000-\031]\\|"                 ; control characters
+                "[\000-\037]\\|"                 ; control characters
                 "\\(/\\.\\.?[^/]\\)\\|"          ; leading dots
                 "\\(/[^/.]+\\.[^/.]*\\.\\)"))    ; more than a single dot
        ((memq system-type '(ms-dos windows-nt cygwin))
         (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
-                "[|<>\"?*\000-\031]"))           ; invalid characters
+                "[|<>\"?*\000-\037]"))           ; invalid characters
        (t "[\000]"))
   "Regexp recognizing file names which aren't allowed by the filesystem.")
 

diff --git a/src/ChangeLog b/src/ChangeLog
index 928a2d9fd42d95f62ea4ab2f65d73b8c0e546fdd..71026e1d77e32965d5d1a4defd41cdd4cc151874 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-25  Jason Rumney  <jasonr@gnu.org>
+
+       * w32fns.c (enum_font_cb2): Don't use raster fonts for Unicode.
+
 2008-02-24  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * s/vms4-0.h:

diff --git a/src/w32fns.c b/src/w32fns.c
index 838367fe399aed79b24b28e893ff066c4a07b74d..ae6cc88ea6bb667dad376811a8134d8dbeff618e 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -6063,6 +6063,12 @@ enum_font_cb2 (lplf, lptm, FontType, lpef)
            && lpef->logfont.lfCharSet == DEFAULT_CHARSET
            && strcmp (charset, w32_to_x_charset (DEFAULT_CHARSET, NULL)) != 0)
          return 1;
+
+        /* Reject raster fonts if we are looking for a unicode font.  */
+        if (charset
+            && FontType == RASTER_FONTTYPE
+            && strncmp (charset, "iso10646", 8) == 0)
+          return 1;
       }
 
     if (charset)
@@ -6079,6 +6085,12 @@ enum_font_cb2 (lplf, lptm, FontType, lpef)
        Lisp_Object this_charset = Fcar (charset_list);
        charset = SDATA (this_charset);
 
+       /* Don't list  raster fonts as unicode.  */
+       if (charset
+           && FontType == RASTER_FONTTYPE
+           && strncmp (charset, "iso10646", 8) == 0)
+         continue;
+
        enum_font_maybe_add_to_list (lpef, &(lplf->elfLogFont),
                                     charset, width);