Permalink
Browse files

update.

  • Loading branch information...
1 parent f9ec870 commit 6d121e09f61a6be1b5589547f97febf20720ed13 morioka committed Jan 26, 1999
Showing with 116 additions and 187 deletions.
  1. +0 −17 ChangeLog
  2. +1 −2 install.el
  3. +0 −16 poem-20.el
  4. +0 −28 poem-ltn1.el
  5. +0 −30 poem-nemacs.el
  6. +115 −94 poem-om.el
View
@@ -1,20 +1,3 @@
-1999-02-04 Katsumi Yamaoka <yamaoka@jpl.org>
-
- * poem-20.el, poem-ltn1.el, poem-nemacs.el, poem-om.el
- (save-buffer-as-binary): New function.
- (save-buffer-as-raw-text-CRLF): New function.
- (save-buffer-as-coding-system): New function.
-
- * poem-om.el (poem-ccl-decode-raw-text): Rewrite again for plural
- `CR's.
-
-1999-02-04 Katsumi Yamaoka <yamaoka@jpl.org>
-
- * poem-om.el (poem-ccl-decode-raw-text): Rewrite for fixing a bug
- that the last datum will be missed if the input data is not ended
- with `CRLF'.
- (poem-ccl-encode-raw-text-CRLF): Use `read-if'.
-
1999-01-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* mcs-20.el (mime-charset-to-coding-system-default-method): New
View
@@ -142,8 +142,7 @@
;;;
(defvar install-prefix
- (if (or running-emacs-18 running-xemacs
- (string= system-configuration-options "NT")) ; for Meadow
+ (if (or running-emacs-18 running-xemacs)
(expand-file-name "../../.." exec-directory)
(expand-file-name "../../../.." data-directory)
)) ; install to shared directory (maybe "/usr/local")
View
@@ -89,16 +89,6 @@ except for line-break code."
format-alist)
(find-file-noselect filename nowarn rawfile)))
-(defun save-buffer-as-binary (&optional args)
- "Like `save-buffer', q.v., but don't encode."
- (let ((coding-system-for-write 'binary))
- (save-buffer args)))
-
-(defun save-buffer-as-raw-text-CRLF (&optional args)
- "Like `save-buffer', q.v., but save as network representation."
- (let ((coding-system-for-write 'raw-text-dos))
- (save-buffer args)))
-
(defun open-network-stream-as-binary (name buffer host service)
"Like `open-network-stream', q.v., but don't code conversion."
(let ((coding-system-for-read 'binary)
@@ -133,12 +123,6 @@ be applied to `coding-system-for-read'."
format-alist)
(find-file-noselect filename nowarn rawfile)))
-(defun save-buffer-as-coding-system (coding-system &optional args)
- "Like `save-buffer', q.v., but CODING-SYSTEM the first arg will be
-applied to `coding-system-for-write'."
- (let ((coding-system-for-write coding-system))
- (save-buffer args)))
-
;;; @ end
;;;
View
@@ -163,30 +163,6 @@ code conversion will not take place."
(defalias find-file-noselect-as-raw-text 'find-file-noselect)
-(defun save-buffer-as-binary (&optional args)
- "Like `save-buffer', q.v., but don't encode."
- (let ((emx-binary-mode t))
- (save-buffer args)))
-
-(defun save-buffer-as-raw-text-CRLF (&optional args)
- "Like `save-buffer', q.v., but save as network representation."
- (if (buffer-modified-p)
- (save-restriction
- (widen)
- (let ((the-buf (current-buffer))
- (filename (buffer-file-name)))
- (if filename
- (prog1
- (with-temp-buffer
- (insert-buffer the-buf)
- (goto-char (point-min))
- (while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t)
- (replace-match "\\1\r\n"))
- (setq buffer-file-name filename)
- (save-buffer args))
- (set-buffer-modified-p nil)
- (clear-visited-file-modtime)))))))
-
(defun open-network-stream-as-binary (name buffer host service)
"Like `open-network-stream', q.v., but don't code conversion."
(let ((emx-binary-mode t))
@@ -214,10 +190,6 @@ ignored."
ignored."
(find-file-noselect filename nowarn rawfile))
-(defun save-buffer-as-coding-system (coding-system &optional args)
- "Like `save-buffer', q.v., CODING-SYSTEM the first arg will be ignored."
- (save-buffer args))
-
;;; @ character
;;;
View
@@ -237,30 +237,6 @@ except for line-break code."
(set-process-kanji-code process 0)
process))
-(defun save-buffer-as-binary (&optional args)
- "Like `save-buffer', q.v., but don't encode."
- (as-binary-output-file
- (save-buffer args)))
-
-(defun save-buffer-as-raw-text-CRLF (&optional args)
- "Like `save-buffer', q.v., but save as network representation."
- (if (buffer-modified-p)
- (save-restriction
- (widen)
- (let ((the-buf (current-buffer))
- (filename (buffer-file-name)))
- (if filename
- (prog1
- (with-temp-buffer
- (insert-buffer the-buf)
- (goto-char (point-min))
- (while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t)
- (replace-match "\\1\r\n"))
- (setq buffer-file-name filename)
- (save-buffer-as-binary args))
- (set-buffer-modified-p nil)
- (clear-visited-file-modtime)))))))
-
;;; @ with code-conversion
;;;
@@ -289,12 +265,6 @@ be applied to `kanji-fileio-code'."
kanji-expected-code)
(find-file-noselect filename nowarn)))
-(defun save-buffer-as-coding-system (coding-system &optional args)
- "Like `save-buffer', q.v., but CODING-SYSTEM the first arg will be
-applied to `kanji-fileio-code'."
- (let ((kanji-fileio-code coding-system))
- (save-buffer args)))
-
;;; @ buffer representation
;;;
Oops, something went wrong.

0 comments on commit 6d121e0

Please sign in to comment.