Re: .eps in image mode

["Juanma Barranquero" <lekktu@gmail.com>]

On 12/24/06, Richard Stallman <rms@gnu.org> wrote:

> Does this patch give the right results?

> *** image.el    19 Dec 2006 11:57:52 -0500      1.64
> --- image.el    23 Dec 2006 21:04:58 -0500

It certainly works for `magic-mode-alist', i.e., it forces PostScript
files not to be automatically detected as images.

As for this part, INCLUDE-MAYBES is declared as a new argument, but it
is not referenced outside of the docstring, so
`image-type-from-file-header' still returns nil for PostScript files:

> --- 225,246 ----
>
>
>   ;;;###autoload
> ! (defun image-type-from-buffer (&optional include-maybes)
>     "Determine the image type from data in the current buffer.
> ! Value is a symbol specifying the image type, or nil if none
> ! corresponds to the buffer contents.
> !
> ! If INCLUDE-MAYBES is nil (the default), we return nil for
> ! file types that should not always be treated as images
> ! even though they can be so treated."
>     (let ((types image-type-header-regexps)
>         type
>         (opoint (point)))
>       (goto-char (point-min))
>       (while types
>         (let ((regexp (car (car types)))
> !           (image-type (nth 1 (car types)))
> !           (not-always (nth 2 (car types)))
>             data)
>         (if (or (and (symbolp image-type)
>                      (looking-at regexp))

                    /L/e/k/t/u