# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1086137036 0
# Node ID 9d46d8e2e70b7a9e9d69c38c8e090f883ef8aab4
# Parent  cd90d2110ad47eeece4a1ae511418c8e6e75dce7
(register-char-codings): Make alias for `ignore'.  Move docstring to
obsolescence info and remove redundancy.

diff -r cd90d2110ad4 -r 9d46d8e2e70b lisp/international/mule.el
--- a/lisp/international/mule.el	Wed Jun 02 00:38:00 2004 +0000
+++ b/lisp/international/mule.el	Wed Jun 02 00:43:56 2004 +0000
@@ -592,11 +592,9 @@
 		 (make-char charset (+ i start) start)
 		 (make-char charset (+ i start) (+ start chars -1)))))))
 
-(defun register-char-codings (coding-system safe-chars)
-  "This is an obsolete function.
-It exists just for backward compatibility, and it does nothing.")
+(defalias 'register-char-codings 'ignore "")
 (make-obsolete 'register-char-codings
-	       "Unnecessary function.  Calling it has no effect."
+               "it exists just for backward compatibility, and does nothing."
 	       "21.3")
 
 (defconst char-coding-system-table nil
@@ -1401,7 +1399,7 @@
 	      (let* ((M (char-after (+ pos 4)))
 		     (L (char-after (+ pos 5)))
 		     (encoding (match-string 2))
-		     (encoding-info (assoc-string 
+		     (encoding-info (assoc-string
 				     encoding
 				     ctext-non-standard-encodings-alist t))
 		     (coding (if encoding-info
@@ -1445,7 +1443,7 @@
 		   (dolist (elt charset)
 		     (aset table (make-char elt) slot)))
 		  ((char-table-p charset)
-		   (map-char-table #'(lambda (k v) 
+		   (map-char-table #'(lambda (k v)
 				   (if (and v (> k 128)) (aset table k slot)))
 				   charset))))))
     table))
@@ -1501,7 +1499,7 @@
 				    (- (point) last-pos)))
 		       (save-excursion
 			 (goto-char last-pos)
-			 (insert (string-to-multibyte 
+			 (insert (string-to-multibyte
 				  (format "\e%%/%d%c%c%s"
 					  noctets
 					  (+ (/ len 128) 128)
@@ -1668,7 +1666,7 @@
 	  (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]" 
+	       "[\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:"
@@ -1688,7 +1686,7 @@
 		       "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t\r\n]+\\)[ \t]*"
 		       suffix "[\r\n]"))
 		     (re-end
-		      (concat "[\r\n]" prefix "[ \t]*End *:[ \t]*" suffix 
+		      (concat "[\r\n]" prefix "[ \t]*End *:[ \t]*" suffix
 			      "[\r\n]?"))
 		     (pos (1- (point))))
 		(forward-char -1)	; skip back \r or \n.