Changeset 3379

Show
Ignore:
Timestamp:
08/09/04 07:15:43 (4 years ago)
Author:
miyoshi
Message:

* international/meadow.el (before-init-hook): Append extra
extensions for image files.

* image.el (image-type-from-data): Call mw32-get-image-magick() to
determine the image type.

* image-file.el (auto-image-file-mode): Bind max-specpdl-size to
10000 temporarily for variable binding depth not to exceed
max-specpdl-size.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/2.1/lisp/ChangeLog.Meadow

    r3372 r3379  
     12004-08-09  MIYOSHI Masanori  <miyoshi@meadowy.org> 
     2 
     3        * international/meadow.el (before-init-hook): Append extra 
     4        extensions for image files. 
     5 
     6        * image.el (image-type-from-data): Call mw32-get-image-magick() to 
     7        determine the image type. 
     8 
     9        * image-file.el (auto-image-file-mode): Bind max-specpdl-size to 
     10        10000 temporarily for variable binding depth not to exceed 
     11        max-specpdl-size. 
     12 
    1132004-07-24  MIYOSHI Masanori  <miyoshi@meadowy.org> 
    214 

  • branches/2.1/lisp/image-file.el

    r3104 r3379  
    180180  ;; Add new handler, if enabled 
    181181  (when auto-image-file-mode 
    182     (push (cons (image-file-name-regexp) 'image-file-handler) 
    183           file-name-handler-alist))) 
     182    (if (featurep 'meadow) 
     183        (let ((max-specpdl-size 10000)) 
     184          (push (cons (image-file-name-regexp) 'image-file-handler) 
     185                file-name-handler-alist)) 
     186      (push (cons (image-file-name-regexp) 'image-file-handler) 
     187            file-name-handler-alist)))) 
    184188 
    185189 

  • branches/2.1/lisp/image.el

    r3104 r3379  
    8686          (setq type image-type)) 
    8787        (setq types (cdr types)))) 
    88     type)) 
     88    (if (featurep 'meadow) 
     89        (or type (mw32-get-image-magick data)) 
     90      type))) 
    8991 
    9092 

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

    r3298 r3379  
    4141              (or (member "bmp" image-file-name-extensions) 
    4242                  (setq image-file-name-extensions 
    43                         (cons "bmp" 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))) 
    4453 
    4554;;;