emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: List of possible coding systems


From: Kenichi Handa
Subject: Re: List of possible coding systems
Date: Wed, 12 Feb 2003 09:09:08 +0900 (JST)
User-agent: SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.2.92 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI)

In article <address@hidden>, "Stefan Monnier" <monnier+gnu/address@hidden> 
writes:

> 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 ?

I think it's a good idea.  In select-safe-coding-system, now
one can select a coding system not listed.  So, removing
them won't cause a big problem.

If there's no objection, could you please install it?

---
Ken'ichi HANDA
address@hidden


> 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



> _______________________________________________
> Emacs-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/emacs-devel





reply via email to

[Prev in Thread] Current Thread [Next in Thread]