/[emacs]/emacs/lisp/international/mule.el
ViewVC logotype

Diff of /emacs/lisp/international/mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.199 by rms, Wed Apr 21 19:17:03 2004 UTC revision 1.200 by lektu, Wed Jun 2 00:43:56 2004 UTC
# Line 592  character code range.  Thus FUNC should Line 592  character code range.  Thus FUNC should
592                   (make-char charset (+ i start) start)                   (make-char charset (+ i start) start)
593                   (make-char charset (+ i start) (+ start chars -1)))))))                   (make-char charset (+ i start) (+ start chars -1)))))))
594    
595  (defun register-char-codings (coding-system safe-chars)  (defalias 'register-char-codings 'ignore "")
   "This is an obsolete function.  
 It exists just for backward compatibility, and it does nothing.")  
596  (make-obsolete 'register-char-codings  (make-obsolete 'register-char-codings
597                 "Unnecessary function.  Calling it has no effect."                 "it exists just for backward compatibility, and does nothing."
598                 "21.3")                 "21.3")
599    
600  (defconst char-coding-system-table nil  (defconst char-coding-system-table nil
# Line 1401  Each element must be one of the names li Line 1399  Each element must be one of the names li
1399                (let* ((M (char-after (+ pos 4)))                (let* ((M (char-after (+ pos 4)))
1400                       (L (char-after (+ pos 5)))                       (L (char-after (+ pos 5)))
1401                       (encoding (match-string 2))                       (encoding (match-string 2))
1402                       (encoding-info (assoc-string                       (encoding-info (assoc-string
1403                                       encoding                                       encoding
1404                                       ctext-non-standard-encodings-alist t))                                       ctext-non-standard-encodings-alist t))
1405                       (coding (if encoding-info                       (coding (if encoding-info
# Line 1445  Each element must be one of the names li Line 1443  Each element must be one of the names li
1443                     (dolist (elt charset)                     (dolist (elt charset)
1444                       (aset table (make-char elt) slot)))                       (aset table (make-char elt) slot)))
1445                    ((char-table-p charset)                    ((char-table-p charset)
1446                     (map-char-table #'(lambda (k v)                     (map-char-table #'(lambda (k v)
1447                                     (if (and v (> k 128)) (aset table k slot)))                                     (if (and v (> k 128)) (aset table k slot)))
1448                                     charset))))))                                     charset))))))
1449      table))      table))
# Line 1501  text, and convert it in the temporary bu Line 1499  text, and convert it in the temporary bu
1499                                      (- (point) last-pos)))                                      (- (point) last-pos)))
1500                         (save-excursion                         (save-excursion
1501                           (goto-char last-pos)                           (goto-char last-pos)
1502                           (insert (string-to-multibyte                           (insert (string-to-multibyte
1503                                    (format "\e%%/%d%c%c%s\
"
                                   (format "\e%%/%d%c%c%s\
"
1504                                            noctets                                            noctets
1505                                            (+ (/ len 128) 128)                                            (+ (/ len 128) 128)
# Line 1668  function by default." Line 1666  function by default."
1666            (goto-char tail-start)            (goto-char tail-start)
1667            (re-search-forward "[\r\n]\^L" nil t)            (re-search-forward "[\r\n]\^L" nil t)
1668            (if (re-search-forward            (if (re-search-forward
1669                 "[\r\n]\\([^[\r\n]*\\)[ \t]*Local Variables:[ \t]*\\([^\r\n]*\\)[\r\n]"                 "[\r\n]\\([^[\r\n]*\\)[ \t]*Local Variables:[ \t]*\\([^\r\n]*\\)[\r\n]"
1670                 tail-end t)                 tail-end t)
1671                ;; The prefix is what comes before "local variables:" in its                ;; The prefix is what comes before "local variables:" in its
1672                ;; line.  The suffix is what comes after "local variables:"                ;; line.  The suffix is what comes after "local variables:"
# Line 1688  function by default." Line 1686  function by default."
1686                         "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t\r\n]+\\)[ \t]*"                         "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t\r\n]+\\)[ \t]*"
1687                         suffix "[\r\n]"))                         suffix "[\r\n]"))
1688                       (re-end                       (re-end
1689                        (concat "[\r\n]" prefix "[ \t]*End *:[ \t]*" suffix                        (concat "[\r\n]" prefix "[ \t]*End *:[ \t]*" suffix
1690                                "[\r\n]?"))                                "[\r\n]?"))
1691                       (pos (1- (point))))                       (pos (1- (point))))
1692                  (forward-char -1)       ; skip back \r or \n.                  (forward-char -1)       ; skip back \r or \n.

Legend:
Removed from v.1.199  
changed lines
  Added in v.1.200

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26