bug#23670: 24.5; error when complete coding system

bug#23670: 24.5; error when complete coding system

[ynyaaa]

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

bug#23670: 24.5; error when complete coding system

[Eli Zaretskii]

> From: ynyaaa@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?

bug#23670: 24.5; error when complete coding system

[Glenn Morris]

Version: 26.1

ynyaaa@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