mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(Ffind_operation_coding_system): Revert the change from 2006-05-29.

Browse source
This commit is contained in:
Eli Zaretskii 2006-07-29 10:59:50 +00:00
parent 21f7b9d857
commit 0ef973bb13
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/coding.c
View file

@ -7539,7 +7539,7 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...) */)
return Fcons (val, val); return Fcons (val, val);
if (! NILP (Ffboundp (val))) if (! NILP (Ffboundp (val)))
{ {
val = safe_call1 (val, Flist (nargs, args)); val = call1 (val, Flist (nargs, args));
if (CONSP (val)) if (CONSP (val))
return val; return val;
if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val))) if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val)))