diff lisp/simple.el @ 110448:0e1478bb5f00

* lisp/simple.el (blink-matching-open): Use syntax-class. * lisp/emacs-lisp/lisp.el (up-list): Don't do nothing silently.

--- a/lisp/simple.el	Mon Sep 20 16:57:01 2010 +0200
+++ b/lisp/simple.el	Mon Sep 20 23:45:09 2010 +0200
@@ -5525,9 +5525,10 @@
                         ;; backward-sexp skips backward over prefix chars,
                         ;; so move back to the matching paren.
                         (while (and (< (point) (1- oldpos))
-                                    (let ((code (car (syntax-after (point)))))
-                                      (or (eq (logand 65536 code) 6)
-                                          (eq (logand 1048576 code) 1048576))))
+                                    (let ((code (syntax-after (point))))
+                                      (or (eq (syntax-class code) 6)
+                                          (eq (logand 1048576 (car code))
+                                              1048576))))
                           (forward-char 1))
                         (point))
                     (error nil))))))