# HG changeset patch
# User Daniel Pfeiffer <occitan@esperanto.org>
# Date 1098872866 0
# Node ID bf99e505dd7af89d42f031bc01bd5d1959a1d080
# Parent  828726b6503bd01475f004dc4d2171a95ab90578
Set xml-mode also if no mode found from file name.

diff -r 828726b6503b -r bf99e505dd7a lisp/files.el
--- a/lisp/files.el	Wed Oct 27 09:13:50 2004 +0000
+++ b/lisp/files.el	Wed Oct 27 10:27:46 2004 +0000
@@ -1913,17 +1913,18 @@
 	(let ((name buffer-file-name))
 	  ;; Remove backup-suffixes from file name.
 	  (setq name (file-name-sans-versions name))
-	  (while (not done)
+	  (while name
 	    ;; Find first matching alist entry.
 	    (let ((case-fold-search
 		   (memq system-type '(vax-vms windows-nt cygwin))))
 	      (if (and (setq mode (assoc-default name auto-mode-alist
 						 'string-match))
+		       (setq done t)
 		       (consp mode)
 		       (cadr mode))
 		  (setq mode (car mode)
 			name (substring name 0 (match-beginning 0)))
-		(setq done t)))
+		(setq name)))
 	    (if mode
 		;; When JUST-FROM-FILE-NAME is set, we are working on behalf
 		;; of set-visited-file-name.  In that case, if the major mode