From 4dd2b868d1a6a34d4e740d501f72b1de403d237f Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 7 Jun 1999 07:46:16 +0000 Subject: [PATCH] fix typos. --- ChangeLog | 4 ++-- pces-xfc.el | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) 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. -- 1.7.10.4