GNU bug report logs - #23670
24.5; error when complete coding system

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 23670 in the body.
You can then email your comments to 23670 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: ynyaaa <at> gmail.com
To: bug-gnu-emacs <at> gnu.org
Subject: 24.5; error when complete coding system
Date: Wed, 01 Jun 2016 20:21:16 +0900

Type C-x RET f utf- SPC, then an error occurs.

Internal error: utf-7-imap doesn't match \`utf\(.*?\)-\([-_./:| *]\|\([[:alpha:]]\)[[:digit:]]*?\)-




In GNU Emacs 24.5.1 (i686-pc-mingw32)
 of 2015-04-11 on LEG570
Windowing system distributor `Microsoft Corp.', version 6.0.6002
Configured using:
 `configure --prefix=/c/usr --host=i686-pc-mingw32'

Important settings:
  value of $LANG: JPN
  locale-coding-system: cp932

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent messages:

C-x C-g is undefined
Making completion list...

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml
mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util
mail-prsvr mail-utils help-mode easymenu advice help-fns time-date
japan-util tooltip electric uniquify ediff-hook vc-hooks lisp-float-type
mwheel dos-w32 ls-lisp w32-common-fns disp-table w32-win w32-vars
tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham
georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese hebrew greek romanian slovak czech european ethiopic
indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple
abbrev minibuffer nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote make-network-process
w32notify w32 multi-tty emacs)

Memory information:
((conses 8 77986 7181)
 (symbols 32 17691 0)
 (miscs 32 35 158)
 (strings 16 11343 3777)
 (string-bytes 1 285076)
 (vectors 8 10542)
 (vector-slots 4 465337 4108)
 (floats 8 58 191)
 (intervals 28 196 16)
 (buffers 508 13))

Message #8 received at 23670 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: ynyaaa <at> gmail.com
Cc: 23670 <at> debbugs.gnu.org
Subject: Re: bug#23670: 24.5; error when complete coding system
Date: Sat, 04 Jun 2016 19:01:03 +0300

> From: ynyaaa <at> gmail.com
> Date: Wed, 01 Jun 2016 20:21:16 +0900
> 
> 
> Type C-x RET f utf- SPC, then an error occurs.
> 
> Internal error: utf-7-imap doesn't match \`utf\(.*?\)-\([-_./:| *]\|\([[:alpha:]]\)[[:digit:]]*?\)-

Would minibuffer.el gurus please look into this?

Message #15 received at 23670-done <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: 23670-done <at> debbugs.gnu.org
Subject: Re: bug#23670: 24.5; error when complete coding system
Date: Wed, 01 Mar 2017 16:54:32 -0500

Version: 26.1

ynyaaa <at> gmail.com wrote:

> Type C-x RET f utf- SPC, then an error occurs.
>
> Internal error: utf-7-imap doesn't match \`utf\(.*?\)-\([-_./:| *]\|\([[:alpha:]]\)[[:digit:]]*?\)-

Thanks; fixed.

commit 79abec2
Date:   Wed Mar 1 16:53:08 2017 -0500

    Fix for coding-system completion (bug#23670)
    
    * lisp/international/mule.el (read-buffer-file-coding-system):
    Ensure that completion-pcm--delim-wild-regex is enclosed in parens,
    so that completion-pcm--pattern->regex can append "*?".

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 8754f7f..fa3ad80 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1311,8 +1311,8 @@ Internal use only.")
                                     preferred))))))
          (completion-ignore-case t)
          (completion-pcm--delim-wild-regex ; Let "u8" complete to "utf-8".
-          (concat completion-pcm--delim-wild-regex
-                  "\\|\\([[:alpha:]]\\)[[:digit:]]"))
+          (concat "\\(?:" completion-pcm--delim-wild-regex
+                  "\\|\\([[:alpha:]]\\)[[:digit:]]\\)"))
          (cs (completing-read
               (format "Coding system for saving file (default %s): " default)
               combined-table

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.