From: Richard Stallman <rms@gnu.org>
Cc: emacs-devel@gnu.org
Subject: Re: enhanced select-safe-coding-system
Date: Wed, 1 May 2002 01:14:52 -0600 (MDT) [thread overview]
Message-ID: <200205010714.g417Eq607434@aztec.santafe.edu> (raw)
In-Reply-To: <rzqk7qp2log.fsf@djlvig.dl.ac.uk> (message from Dave Love on 30 Apr 2002 17:30:55 +0100)
Your code was based on an older version did not have some other
changes that are in the sources now. I merged it, and the changes
you made seem to be these.
Does anyone see a problem with these changes?
Handa, do they look correct to you?
*** mule-cmds.el.~1.190.~ Sat Apr 27 23:22:23 2002
--- mule-cmds.el Wed May 1 01:33:40 2002
***************
*** 636,641 ****
--- 636,651 ----
(setcar l mime-charset))
(setq l (cdr l))))
+ ;; Don't offer variations with locking shift, which you
+ ;; basically never want.
+ (let (l)
+ (dolist (elt codings (setq codings (nreverse l)))
+ (unless (or (eq 'coding-category-iso-7-else
+ (coding-system-category elt))
+ (eq 'coding-category-iso-8-else
+ (coding-system-category elt)))
+ (push elt l))))
+
;; Make sure the offending buffer is displayed.
(or (stringp from)
(pop-to-buffer bufname))
***************
*** 705,711 ****
(if (eq coding-system t)
(setq coding-system buffer-file-coding-system))
! coding-system))
(setq select-safe-coding-system-function 'select-safe-coding-system)
--- 715,737 ----
(if (eq coding-system t)
(setq coding-system buffer-file-coding-system))
! ;; Check we're not inconsistent with what coding cookies &c would
! ;; give when file is re-read.
! (unless (stringp from)
! (let ((auto-cs (save-restriction
! (widen)
! (save-excursion
! (goto-char (point-min))
! (set-auto-coding (or buffer-file-name "")
! (buffer-size))))))
! (if (and auto-cs
! (not (coding-system-equal (coding-system-base coding-system)
! (coding-system-base auto-cs))))
! (unless (yes-or-no-p
! (format "Selected encoding %s disagrees with \
! %s specified by file contents. Really save (else edit coding cookies \
! and try again)? " coding-system auto-cs))
! (error "Save aborted"))))) coding-system))
(setq select-safe-coding-system-function 'select-safe-coding-system)
next parent reply other threads:[~2002-05-01 7:14 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <rzqk7qp2log.fsf@djlvig.dl.ac.uk>
2002-05-01 7:14 ` Richard Stallman [this message]
2002-05-01 16:27 ` enhanced select-safe-coding-system Eli Zaretskii
2002-05-01 18:51 ` Stefan Monnier
2002-05-02 22:16 ` Richard Stallman
2002-05-02 22:41 ` Dave Love
2002-05-03 7:54 ` Eli Zaretskii
2002-05-04 23:01 ` Dave Love
2002-05-02 22:39 ` Dave Love
2002-05-03 13:27 ` Stefan Monnier
2002-05-04 3:36 ` Richard Stallman
2002-05-05 23:06 ` Stefan Monnier
2002-05-04 22:56 ` Dave Love
2002-05-05 23:24 ` Stefan Monnier
2002-05-08 22:17 ` Dave Love
2002-05-14 19:41 ` Richard Stallman
2002-05-14 19:52 ` Stefan Monnier
2002-05-16 7:21 ` Richard Stallman
2002-05-04 3:36 ` Richard Stallman
2002-05-04 23:11 ` Dave Love
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200205010714.g417Eq607434@aztec.santafe.edu \
--to=rms@gnu.org \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.