[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#6490: 24.0.50; src/lread.c: old style backquote bug?
From: |
Makoto Fujiwara |
Subject: |
bug#6490: 24.0.50; src/lread.c: old style backquote bug? |
Date: |
Mon, 05 Jul 2010 08:58:47 +0900 |
User-agent: |
Wanderlust/2.15.9 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (Goj$(D+W(B) APEL/10.7 Emacs/24.0.50 (i386--netbsdelf) MULE/6.0 (花散里) |
| 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.