# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1217524686 0
# Node ID f239a0459b5cb2bebe47a7ea6b13c7eed17fdd2f
# Parent  989ae5dfb320a556d048c5ed64c3695ce6a6edce
(read-file-modes): Set default value to the original
mode string using absolute notation like u=rwx,g=rx,o=rx.
Use it as the `default' arg of `read-string'.

diff -r 989ae5dfb320 -r f239a0459b5c lisp/files.el
--- a/lisp/files.el	Thu Jul 31 17:17:35 2008 +0000
+++ b/lisp/files.el	Thu Jul 31 17:18:06 2008 +0000
@@ -5765,7 +5765,19 @@
 ORIG-FILE is the original file of which modes will be change."
   (let* ((modes (or (if orig-file (file-modes orig-file) 0)
 		    (error "File not found")))
-	 (value (read-string (or prompt "File modes (octal or symbolic): "))))
+	 (modestr (and (stringp orig-file)
+		       (nth 8 (file-attributes orig-file))))
+	 (default
+	   (and (stringp modestr)
+		(string-match "^.\\(...\\)\\(...\\)\\(...\\)$" modestr)
+		(replace-regexp-in-string
+		 "-" ""
+		 (format "u=%s,g=%s,o=%s"
+			 (match-string 1 modestr)
+			 (match-string 2 modestr)
+			 (match-string 3 modestr)))))
+	 (value (read-string (or prompt "File modes (octal or symbolic): ")
+			     nil nil default)))
     (save-match-data
       (if (string-match "^[0-7]+" value)
 	  (string-to-number value 8)