Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(battery-insert-file-contents): Obsolete function removed.

Browse source 
(battery-read-function): Obsolete function removed.
(battery-linux-proc-apm): Use insert-file-contents.
This commit is contained in:
Noah Friedman 2001-12-10 10:22:22 +00:00
parent 5e18d63236
commit 440c4d7aa8
2 changed files with 10 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2001-12-10 Noah Friedman <friedman@splode.com>
* battery.el (battery-insert-file-contents): Obsolete function
removed.
(battery-read-function): Obsolete function removed.
(battery-linux-proc-apm): Use insert-file-contents.
2001-12-07 Stephen Eglen <stephen@gnu.org>
* iswitchb.el (iswitchb-visit-buffer): Use
@ -45,8 +52,8 @@
unibyte codes.
* language/european.el (diacritic-composition-pattern): New constant.
(diacritic-compose-region, diacritic-compose-string)
(diacritic-compose-buffer, diacritic-post-read-conversion)
(diacritic-compose-region, diacritic-compose-string)
(diacritic-compose-buffer, diacritic-post-read-conversion)
(diacritic-composition-function): New functions.
* international/utf-8.el (ucs-mule-to-mule-unicode): New

20
lisp/battery.el
View file

@ -171,7 +171,7 @@ The following %-sequences are provided:
(setq buffer (get-buffer-create " *battery*"))
(set-buffer buffer)
(erase-buffer)
(battery-insert-file-contents "/proc/apm")
(insert-file-contents "/proc/apm")
(re-search-forward battery-linux-proc-apm-regexp)
(setq driver-version (match-string 1))
(setq bios-version (match-string 2))
@ -242,24 +242,6 @@ The following %-sequences are provided:
(setq result (concat result "%")))
result))
(defun battery-insert-file-contents (file-name)
"Insert contents of file FILE-NAME after point.
FILE-NAME can be a non-ordinary file, for example, a named pipe.
Return t if file exists."
(let ((load-read-function 'battery-read-function)
(load-source-file-function nil)
(load-path '("."))
(load-history nil))
(save-excursion
(load file-name nil t t))))
(defun battery-read-function (&optional stream)
"Function for reading expressions from STREAM.
Value is always nil."
(let (char)
(while (not (< (setq char (get-file-char)) 0))
(insert char))))
(defconst battery-hex-map '((?0 . 0) (?1 . 1) (?2 . 2) (?3 . 3)
(?4 . 4) (?5 . 5) (?6 . 6) (?7 . 7)
(?8 . 8) (?9 . 9) (?a . 10) (?b . 11)