diff options
| author | Noah Friedman <friedman@splode.com> | 2001-12-10 10:22:22 +0000 |
|---|---|---|
| committer | Noah Friedman <friedman@splode.com> | 2001-12-10 10:22:22 +0000 |
| commit | 440c4d7aa858844a0ff64ce28e76c2628ad978a3 (patch) | |
| tree | e7bd31ab4e4f2e0974e00b670f19b18310987dc7 /lisp/battery.el | |
| parent | 5e18d6323651d57719001b2b54e8209a6d8f0044 (diff) | |
| download | emacs-440c4d7aa858844a0ff64ce28e76c2628ad978a3.tar.gz | |
(battery-insert-file-contents): Obsolete function removed.
(battery-read-function): Obsolete function removed.
(battery-linux-proc-apm): Use insert-file-contents.
Diffstat (limited to 'lisp/battery.el')
| -rw-r--r-- | lisp/battery.el | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/lisp/battery.el b/lisp/battery.el index b4e07f74a53..5980a839a4a 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -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) |