Mercurial > emacs

changeset 25144:edfd929009d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-auto-coding): Allow whitespace before and after the "variable: value" pair.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 01 Aug 1999 10:20:43 +0000
parents 5decc043e9bf
children 784d7bc2a991
files lisp/international/mule.el
diffstat 1 files changed, 12 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Sat Jul 31 16:46:58 1999 +0000
+++ b/lisp/international/mule.el	Sun Aug 01 10:20:43 1999 +0000
@@ -989,16 +989,18 @@
 		;; in its line.
 		(let* ((prefix (regexp-quote (match-string 1)))
 		       (suffix (regexp-quote (match-string 2)))
-		       (re-coding (concat
-				   "^" prefix
-				   "coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
-				   suffix "$"))
-		       (re-unibyte (concat
-				    "^" prefix
-				    "unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
-				    suffix "$"))
-		       (re-end (concat
-				"^" prefix "end *:[ \t]*" suffix "$"))
+		       (re-coding
+			(concat
+			 "^" prefix
+			 "[ \t]*coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
+			 suffix "$"))
+		       (re-unibyte
+			(concat
+			 "^" prefix
+			 "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
+			 suffix "$"))
+		       (re-end
+			(concat "^" prefix "[ \t]*end *:[ \t]*" suffix "$"))
 		       (pos (point)))
 		  (re-search-forward re-end tail-end 'move)
 		  (setq tail-end (point))