--- /TECH.mail/zic/tmp/dired/dired-6.0/gmhist.el	Wed Apr 22 20:40:15 1992
+++ /TECH.mail/zic/Mule/new-lisp/gmhist.el	Mon Mar 22 10:45:44 1993
@@ -838,7 +838,7 @@
 
 Currently recognized key letters are:
 
-    a b B c C d D k m N n s S x X f F r p P v
+    a b B c C d D i k m N n s S x X f F r p P v Z z
 
 and initial `*'.
 
@@ -914,6 +914,10 @@
 	     (setq cur-arg (read-file-name-with-history-in
 			    hist
 			    xprompt)))
+	    ;	<<  ZIC	1993031940  {
+	    ((eq char ?i)
+	     (setq  cur-arg nil))
+	    ;	<<  ZIC	1993031940  }
 	    ((eq char ?k)		; Key sequence (string)
 	     (setq cur-arg (read-key-sequence (if (equal xprompt "")
 						 nil xprompt))))
@@ -962,7 +966,26 @@
 			    t))
 	     (if (eq char ?X)		; lisp expression, evaluated
 		 (setq cur-arg (eval cur-arg))))
-
+	    ;	<<  ZIC	NK1993031510	{
+	    ((eq    char    ?Z)
+	     (setq  cur-arg 
+		    (if	current-prefix-arg
+			(intern
+			 (completing-read-with-history-in
+			  hist   xprompt obarray	
+			  'non-nil-coding-system-p    t   nil)
+			 )
+		      nil)
+		    ))
+	    ((eq    char    ?z)
+	     (setq  cur-arg 
+		    (intern
+		     (completing-read-with-history-in
+		      hist   xprompt obarray	
+		      'coding-system-p    t   nil)
+		     )
+		    ))
+	    ;	<<  ZIC	NK1993031510	}
 	    (t
 	     (error "Invalid control letter `%c' in gmhist-interactive" char)))
       (or special
