Changeset 3383

Show
Ignore:
Timestamp:
08/09/04 22:39:03 (4 years ago)
Author:
miyoshi
Message:

(before-init-hook): Exclude unnecessary
extensions for image files.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/2.1/lisp/ChangeLog.Meadow

    r3379 r3383  
     12004-08-09  MIYOSHI Masanori  <miyoshi@meadowy.org> 
     2 
     3        * international/meadow.el (before-init-hook): Exclude unnecessary 
     4        extensions for image files. 
     5 
    162004-08-09  MIYOSHI Masanori  <miyoshi@meadowy.org> 
    27 

  • branches/2.1/lisp/international/meadow.el

    r3379 r3383  
    2727       (fboundp 'image-size))) 
    2828 
    29 ;; BMP support 
    30 (add-hook 'before-init-hook 
    31           (lambda () 
    32             (let ((image-type (if (memq 'BMP image-types) 
    33                                   'BMP  ; ImageMagick image decoder 
    34                                 'bmp))) ; built-in image decoder 
    35               (require 'image) 
    36               (require 'image-file) 
    37  
    38               (or (rassq image-type image-type-regexps) 
    39                   (setq image-type-regexps 
    40                         (cons (cons "\\`BM" image-type) image-type-regexps))) 
    41               (or (member "bmp" image-file-name-extensions) 
    42                   (setq image-file-name-extensions 
    43                         (cons "bmp" image-file-name-extensions)))) 
    44  
    45             ;; append extra extensions 
    46             (mapcar 
    47              (lambda (type) 
    48                (setq type (downcase (symbol-name type))) 
    49                (unless (member type image-file-name-extensions) 
    50                  (setq image-file-name-extensions 
    51                        (cons type image-file-name-extensions)))) 
    52              image-types))) 
     29(add-hook 
     30 'before-init-hook 
     31 (lambda () 
     32   ;; BMP support 
     33   (let ((image-type (if (memq 'BMP image-types) 
     34                         'BMP           ; ImageMagick image decoder 
     35                       'bmp)))          ; built-in image decoder 
     36     (require 'image) 
     37     (require 'image-file) 
     38 
     39     (or (rassq image-type image-type-regexps) 
     40         (setq image-type-regexps 
     41               (cons (cons "\\`BM" image-type) image-type-regexps))) 
     42     (or (member "bmp" image-file-name-extensions) 
     43         (setq image-file-name-extensions 
     44               (cons "bmp" image-file-name-extensions)))) 
     45 
     46   ;; append extra extensions 
     47   (mapcar 
     48    (lambda (type) 
     49      (unless (memq type '(TEXT TXT SHTML HTML HTM X K B M R C G O)) 
     50        (setq type (downcase (symbol-name type))) 
     51        (unless (member type image-file-name-extensions)) 
     52        (setq image-file-name-extensions 
     53              (cons type image-file-name-extensions)))) 
     54    image-types))) 
    5355 
    5456;;;