bug-gnu-emacs
[Top][All Lists]
Advanced

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

followup to image.el patch


From: Matt Swift
Subject: followup to image.el patch
Date: Thu, 01 Aug 2002 21:28:05 -0400

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.2.1 (i386-msvc-nt5.0.2195)
 of 2002-03-19 on buffy
configured using `configure --with-msvc (12.00)'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Following up my bug report of two minutes ago: the docstring of `image-jpeg-p'
in image.el ought to be changed in the obvious way as well.


Recent input:
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-x C-e q C-/ C-x C-s M-1 M-< 
C-o C-o ; ; SPC b u g SPC r e p o r t e d SPC C-x C-f 
/ v a r / t m p / m <backspace> i m <tab> . <tab> <return> 
C-v C-v C-v M-z 0 2 - 0 8 - 0 1 M-b M-b C-a C-x C-s 
<help-echo> M-x r e p o r t - e m a c s - b u g <r
eturn>

Recent messages:
eval-after-load: 
Entering debugger...
 [2 times]
Back to top level.
Mark set
(defun image-jpeg-p (data) "Value is non-nil if DATA, a string, consists of 
JFIF or Exif image data." (when (string-match "\\`ÿÂØ" data) (catch (quote 
jfif) (let ((len (length data)) (i 2)) (while (< i len) (when (/= (aref data i) 
255) (throw (quote jfif) nil)) (setq i (1+ i)) (when (>= (+ i 2) len) (throw 
(quote jfif) nil)) (let ((nbytes (+ (lsh (aref data (+ i 1)) 8) (aref data (+ i 
2)))) (code (aref data i))) (when (and (>= code 224) (<= code 239)) (throw 
(quote jfif) (string-match "JFIF\\|Exif" (substring data i (+ i nbytes))))) 
(setq i (+ i 1 nbytes))))))))
Undo!
Wrote g:/swift/lib/emacs/lisp/fixes-21.2.el
Mark set
Wrote g:/swift/lib/emacs/lisp/fixes-21.2.el





reply via email to

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