* raw-io.el (binary-start-process-shell-command): Replace #' with `function'.

diff --git a/ChangeLog b/ChangeLog
index e7d5460..cf868d8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2000-12-22  Katsumi Yamaoka   <yamaoka@jpl.org>
 
+       * raw-io.el (binary-start-process-shell-command): Replace #' with
+       `function'.
+
+2000-12-22  Katsumi Yamaoka   <yamaoka@jpl.org>
+
        * raw-io.el: Require `pces'
        (binary-insert-file-contents): Alias to
        `insert-file-contents-as-binary'.

diff --git a/raw-io.el b/raw-io.el
index 19de7be..ebbea17 100644 (file)
--- a/raw-io.el
+++ b/raw-io.el
@@ -48,7 +48,7 @@
        (apply (function start-process-shell-command) name buffer args))
     (as-binary-process
      (start-process name buffer shell-file-name shell-command-switch
-                (mapconcat #'identity args " ")))))
+                (mapconcat (function identity) args " ")))))
 
 (defalias 'raw-text-insert-file-contents 'insert-file-contents-as-raw-text)