[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/coding.c,v [EMACS_22_BASE]
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/src/coding.c,v [EMACS_22_BASE] |
Date: |
Wed, 17 Oct 2007 01:29:33 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Glenn Morris <gm> 07/10/17 01:29:33
Index: coding.c
===================================================================
RCS file: /sources/emacs/emacs/src/coding.c,v
retrieving revision 1.351.2.2
retrieving revision 1.351.2.3
diff -u -b -r1.351.2.2 -r1.351.2.3
--- coding.c 25 Jul 2007 07:49:38 -0000 1.351.2.2
+++ coding.c 17 Oct 2007 01:29:32 -0000 1.351.2.3
@@ -372,6 +372,8 @@
Lisp_Object Qstart_process, Qopen_network_stream;
Lisp_Object Qtarget_idx;
+extern Lisp_Object Qcompletion_ignore_case;
+
/* If a symbol has this property, evaluate the value to define the
symbol as a coding system. */
Lisp_Object Qcoding_system_define_form;
@@ -6558,16 +6560,22 @@
DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 2, 0,
doc: /* Read a coding system from the minibuffer, prompting with string
PROMPT.
-If the user enters null input, return second argument DEFAULT-CODING-SYSTEM.
*/)
+If the user enters null input, return second argument DEFAULT-CODING-SYSTEM.
+Ignores case when completing coding systems (all Emacs coding systems
+are lower-case). */)
(prompt, default_coding_system)
Lisp_Object prompt, default_coding_system;
{
Lisp_Object val;
+ int count = SPECPDL_INDEX ();
+
if (SYMBOLP (default_coding_system))
default_coding_system = SYMBOL_NAME (default_coding_system);
+ specbind (Qcompletion_ignore_case, Qt);
val = Fcompleting_read (prompt, Vcoding_system_alist, Qnil,
Qt, Qnil, Qcoding_system_history,
default_coding_system, Qnil);
+ unbind_to (count, Qnil);
return (SCHARS (val) == 0 ? Qnil : Fintern (val, Qnil));
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/coding.c,v [EMACS_22_BASE],
Glenn Morris <=