From: morioka Date: Mon, 7 Jun 1999 07:46:16 +0000 (+0000) Subject: fix typos. X-Git-Tag: apel-9_20~32 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4dd2b868d1a6a34d4e740d501f72b1de403d237f;p=elisp%2Fapel.git fix typos. --- diff --git a/ChangeLog b/ChangeLog index efbd91e..12e48bb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,8 +1,8 @@ 1999-06-04 MORIOKA Tomohiko - * pces-xfc.el (insert-file-contents-literacy-treats-binary): New + * pces-xfc.el (insert-file-contents-literally-treats-binary): New facility. - (insert-file-contents-literacy-treats-file-name-handler): New + (insert-file-contents-literally-treats-file-name-handler): New facility. (insert-file-contents-as-binary): Define as an alias for `insert-file-contents-literally' if it is not broken. diff --git a/pces-xfc.el b/pces-xfc.el index c02661e..b3385a0 100644 --- a/pces-xfc.el +++ b/pces-xfc.el @@ -48,8 +48,8 @@ (require 'broken) -(broken-facility insert-file-contents-literacy-treats-binary - "Function `insert-file-contents-literacy' decodes text." +(broken-facility insert-file-contents-literally-treats-binary + "Function `insert-file-contents-literally' decodes text." (let ((str "\xa1\xa3") (coding-system-for-write 'binary) (coding-system-for-read 'euc-jp)) @@ -66,7 +66,7 @@ ) str))) -(broken-facility insert-file-contents-literacy-treats-file-name-handler +(broken-facility insert-file-contents-literally-treats-file-name-handler "Function `insert-file-contents' doesn't call file-name-handler." (let (called) (with-temp-buffer @@ -83,8 +83,8 @@ called)) (static-if - (or (broken-p 'insert-file-contents-literacy-treats-binary) - (broken-p 'insert-file-contents-literacy-treats-file-name-handler)) + (or (broken-p 'insert-file-contents-literally-treats-binary) + (broken-p 'insert-file-contents-literally-treats-file-name-handler)) (defun insert-file-contents-as-binary (filename &optional visit beg end replace) "Like `insert-file-contents', but only reads in the file literally.