bug#6490: 24.0.50; src/lread.c: old style backquote bug?

[Makoto Fujiwara <makoto@ki.nu>]

| To: Tetsurou Okazaki <okazaki@be.to>
| From: Stefan Monnier <monnier@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.