GNU bug report logs - #6490
24.0.50; src/lread.c: old style backquote bug?

Previous Next

Package: emacs;

Reported by: Tetsurou Okazaki <okazaki <at> be.to>

Date: Tue, 22 Jun 2010 09:18:02 UTC

Severity: normal

Merged with 6973, 7148, 7286, 10321

Found in versions 24.0.50, 24.0.92

Done: Stefan Monnier <monnier <at> iro.umontreal.ca>

Bug is archived. No further changes may be made.

Full log

Message #20 received at 6490 <at> debbugs.gnu.org (full text, mbox):

From: Makoto Fujiwara <makoto <at> ki.nu>
To: 6490 <at> debbugs.gnu.org
Cc: Tetsurou Okazaki <okazaki <at> be.to>, Stefan Monnier <monnier <at> IRO.UMontreal.CA>
Subject: Re: bug#6490: 24.0.50; src/lread.c: old style backquote bug?
Date: Mon, 05 Jul 2010 08:58:47 +0900

| To: Tetsurou Okazaki <okazaki <at> be.to>
| From: Stefan Monnier <monnier <at> IRO.UMontreal.CA>
| Subject: bug#6490: 24.0.50; src/lread.c: old style backquote bug?
| Date: Sun, 04 Jul 2010 23:50:26 +0200

	> To keep more compatibility with released Emacs, it is preferable to
	> allow a character such as \r or \n after the old style backquote.

Stefan> I haven't seen any such situation yet, and since old-style backquotes are
Stefan> on the way out (effectively obsolete since something like Emacs-20, and
Stefan> officially obsolete since Emacs-22.1), I'll wait to see actual cases
Stefan> before adding such exceptions,

You may found the typical example in flim-1.14.9/md4.el

     90 (defmacro md4-make-step (name func)
     91   (`
     92    (defun (, name) (a b c d xk s ac)
     93      (let*
     94          ((h1 (+ (car a) ((, func) (car b) (car c) (car d)) (car xk) (car ac)))
     95           (l1 (+ (cdr a) ((, func) (cdr b) (cdr c) (cdr d)) (cdr xk) (cdr ac)))
     96           (h2 (logand 65535 (+ h1 (lsh l1 -16))))
     97           (l2 (logand 65535 l1))
     98           ;; cyclic shift of 32 bits integer
     99           (h3 (logand 65535 (if (> s 15)
    100                                 (+ (lsh h2 (- s 32)) (lsh l2 (- s 16)))
    101                               (+ (lsh h2 s) (lsh l2 (- s 16))))))
    102           (l3 (logand 65535 (if (> s 15)
    103                                 (+ (lsh l2 (- s 32)) (lsh h2 (- s 16)))
    104                               (+ (lsh l2 s) (lsh h2 (- s 16)))))))
    105        (cons h3 l3)))))
    106
    107 (md4-make-step md4-round1 md4-F)

This is NOT compiled by the first patch. The second patch makes it, 
Thanks,
---
Makoto Fujiwara, 
Chiba, Japan, Narita Airport and Disneyland prefecture.
This bug report was last modified 13 years and 156 days ago.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.