[Qemacs-commit] qemacs archive.c

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        14/04/17 17:21:01

Modified files:
        .              : archive.c 

Log message:
        use man mode for compressed man pages

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/archive.c?cvsroot=qemacs&r1=1.5&r2=1.6

Patches:
Index: archive.c
===================================================================
RCS file: /sources/qemacs/qemacs/archive.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- archive.c   17 Apr 2014 17:16:57 -0000      1.5
+++ archive.c   17 Apr 2014 17:21:01 -0000      1.6
@@ -368,9 +368,15 @@
 
 static int man_mode_probe(ModeDef *mode, ModeProbeData *p)
 {
+    if (match_extension(p->real_filename,
+                        "1.gz|2.gz|3.gz|4.gz|5.gz|6.gz|7.gz|8.gz")) {
+        goto has_man;
+    }
+   
     if (match_extension(p->real_filename, "1|2|3|4|5|6|7|8")
     &&  !strchr(p->filename, '.')
     &&  (p->buf[0] == '.' || !memcmp(p->buf, "'\\\"", 3))) {
+    has_man:
         if (p->b && p->b->priv_data) {
             /* buffer loaded, re-selecting mode causes buffer reload */
             return 9;