[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: .eps in image mode

From: Juanma Barranquero
Subject: Re: .eps in image mode
Date: Mon, 25 Dec 2006 04:15:20 +0100

On 12/24/06, Richard Stallman <address@hidden> 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 ----

! (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)
        (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)))
        (if (or (and (symbolp image-type)
                     (looking-at regexp))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]