Mercurial > emacs

changeset 18183:dc9d056f204f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fstart_process):Pay attention to Vdefault_process_coding_system. (Fopen_network_stream): Likewise.
author Kenichi Handa <handa@m17n.org>
date Mon, 09 Jun 1997 12:59:28 +0000
parents 967f92654591
children ef6ecf102af3
files src/process.c
diffstat 1 files changed, 12 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/process.c	Mon Jun 09 12:59:22 1997 +0000
+++ b/src/process.c	Mon Jun 09 12:59:28 1997 +0000
@@ -1182,6 +1182,8 @@
 	  UNGCPRO;
 	  if (CONSP (coding_systems))
 	    val = XCONS (coding_systems)->car;
+	  else if (CONSP (Vdefault_process_coding_system))
+	    val = XCONS (Vdefault_process_coding_system)->car;
 	}
       XPROCESS (proc)->decode_coding_system = val;
 
@@ -1198,6 +1200,8 @@
 	    }
 	  if (CONSP (coding_systems))
 	    val = XCONS (coding_systems)->cdr;
+	  else if (CONSP (Vdefault_process_coding_system))
+	    val = XCONS (Vdefault_process_coding_system)->cdr;
 	}
       XPROCESS (proc)->encode_coding_system = val;
     }
@@ -1907,7 +1911,10 @@
 	  GCPRO1 (proc);
 	  coding_systems = Ffind_coding_system (5, args);
 	  UNGCPRO;
-	  val = (CONSP (coding_systems) ? XCONS (coding_systems)->car : Qnil);
+	  if (CONSP (coding_systems))
+	    val = XCONS (coding_systems)->car;
+	  else if (CONSP (Vdefault_process_coding_system))
+	    val = XCONS (Vdefault_process_coding_system)->car;
 	}
       XPROCESS (proc)->decode_coding_system = val;
 
@@ -1921,7 +1928,10 @@
 	      coding_systems = Ffind_coding_system (5, args);
 	      UNGCPRO;
 	    }
-	  val = (CONSP (coding_systems) ? XCONS (coding_systems)->cdr : Qnil);
+	  if (CONSP (coding_systems))
+	    val = XCONS (coding_systems)->cdr;
+	  else if (CONSP (Vdefault_process_coding_system))
+	    val = XCONS (Vdefault_process_coding_system)->cdr;
 	}
       XPROCESS (proc)->encode_coding_system = val;
     }