Mercurial > emacs
changeset 41919:842512c9651c
(battery-insert-file-contents): Obsolete function removed.
(battery-read-function): Obsolete function removed.
(battery-linux-proc-apm): Use insert-file-contents.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Mon, 10 Dec 2001 10:22:02 +0000 |
| parents | 52fa3aece6f3 |
| children | bb72c55fd4de |
| files | lisp/battery.el |
| diffstat | 1 files changed, 1 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/battery.el Sun Dec 09 21:49:29 2001 +0000 +++ b/lisp/battery.el Mon Dec 10 10:22:02 2001 +0000 @@ -171,7 +171,7 @@ (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 @@ (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)