List of possible coding systems

[Stefan Monnier]

How about the change below ?
It removes `raw-text', `emacs-mule', and `no-conversion' from the
list of possible coding-systems to choose from (when prompting
the user during file-save) unless nothing else can be used.

I've found that people tend to misunderstand what those things
are and that such coding systems are only useful internally
or when used from elisp, but not as the coding-system
to use to save a given file.

Any objection ?


        Stefan


Index: international/mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.221
diff -u -r1.221 mule-cmds.el
--- international/mule-cmds.el  4 Feb 2003 13:09:38 -0000       1.221
+++ international/mule-cmds.el  10 Feb 2003 22:16:19 -0000
@@ -748,6 +746,14 @@
                      (eq 'coding-category-iso-8-else
                          (coding-system-category elt)))
            (push elt l))))
+
+      ;; Remove raw-text, emacs-mule and no-conversion unless nothing
+      ;; else is available.
+      (setq codings
+           (or (delq 'raw-text
+                     (delq 'emacs-mule
+                           (delq 'no-conversion codings)))
+               '(raw-text emacs-mule no-conversion)))
 
       (let ((window-configuration (current-window-configuration)))
        (save-excursion