[Emacs-diffs] Changes to emacs/lisp/international/mule.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.188.2.10 
emacs/lisp/international/mule.el:1.188.2.11
*** emacs/lisp/international/mule.el:1.188.2.10 Fri Apr 16 12:50:30 2004
--- emacs/lisp/international/mule.el    Mon Jun 28 07:29:47 2004
***************
*** 1374,1382 ****
              (let* ((M (char-after (+ pos 4)))
                     (L (char-after (+ pos 5)))
                     (encoding (match-string 2))
!                    (encoding-info (assoc-ignore-case 
                                     encoding
!                                    ctext-non-standard-encodings-alist))
                     (coding (if encoding-info
                                 (nth 1 encoding-info)
                               (setq encoding (intern (downcase encoding)))
--- 1374,1382 ----
              (let* ((M (char-after (+ pos 4)))
                     (L (char-after (+ pos 5)))
                     (encoding (match-string 2))
!                    (encoding-info (assoc-string
                                     encoding
!                                    ctext-non-standard-encodings-alist t))
                     (coding (if encoding-info
                                 (nth 1 encoding-info)
                               (setq encoding (intern (downcase encoding)))
***************
*** 1418,1424 ****
                   (dolist (elt charset)
                     (aset table (make-char elt) slot)))
                  ((char-table-p charset)
!                  (map-char-table #'(lambda (k v) 
                                   (if (and v (> k 128)) (aset table k slot)))
                                   charset))))))
      table))
--- 1418,1424 ----
                   (dolist (elt charset)
                     (aset table (make-char elt) slot)))
                  ((char-table-p charset)
!                  (map-char-table #'(lambda (k v)
                                   (if (and v (> k 128)) (aset table k slot)))
                                   charset))))))
      table))
***************
*** 1467,1473 ****
                                    (- (point) last-pos)))
                       (save-excursion
                         (goto-char last-pos)
!                        (insert (string-to-multibyte 
                                  (format "\e%%/%d%c%c%s"
                                          noctets
                                          (+ (/ len 128) 128)
--- 1467,1473 ----
                                    (- (point) last-pos)))
                       (save-excursion
                         (goto-char last-pos)
!                        (insert (string-to-multibyte
                                  (format "\e%%/%d%c%c%s"
                                          noctets
                                          (+ (/ len 128) 128)
***************
*** 1636,1642 ****
          (goto-char tail-start)
          (re-search-forward "[\r\n]\^L" nil t)
          (if (re-search-forward
!              "[\r\n]\\([^[\r\n]*\\)[ \t]*Local Variables:[ 
\t]*\\([^\r\n]*\\)[\r\n]" 
               tail-end t)
              ;; The prefix is what comes before "local variables:" in its
              ;; line.  The suffix is what comes after "local variables:"
--- 1636,1642 ----
          (goto-char tail-start)
          (re-search-forward "[\r\n]\^L" nil t)
          (if (re-search-forward
!              "[\r\n]\\([^[\r\n]*\\)[ \t]*Local Variables:[ 
\t]*\\([^\r\n]*\\)[\r\n]"
               tail-end t)
              ;; The prefix is what comes before "local variables:" in its
              ;; line.  The suffix is what comes after "local variables:"
***************
*** 1656,1662 ****
                       "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t\r\n]+\\)[ \t]*"
                       suffix "[\r\n]"))
                     (re-end
!                     (concat "[\r\n]" prefix "[ \t]*End *:[ \t]*" suffix 
                              "[\r\n]?"))
                     (pos (1- (point))))
                (forward-char -1)       ; skip back \r or \n.
--- 1656,1662 ----
                       "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t\r\n]+\\)[ \t]*"
                       suffix "[\r\n]"))
                     (re-end
!                     (concat "[\r\n]" prefix "[ \t]*End *:[ \t]*" suffix
                              "[\r\n]?"))
                     (pos (1- (point))))
                (forward-char -1)       ; skip back \r or \n.