Mercurial > emacs

changeset 21317:566100bc6eef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(battery-linux-proc-apm): Re-use the temporary buffer. (battery-insert-file-contents): Disable code conversion.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Mar 1998 04:39:53 +0000
parents 8bfa13d10dd1
children dd41afae56a4
files lisp/battery.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/battery.el	Mon Mar 30 04:29:36 1998 +0000
+++ b/lisp/battery.el	Mon Mar 30 04:39:53 1998 +0000
@@ -169,9 +169,9 @@
 	seconds minutes hours remaining-time buffer tem)
     (unwind-protect
 	(save-excursion
-	  (setq buffer (generate-new-buffer " *battery*"))
-	  (buffer-disable-undo buffer)
+	  (setq buffer (get-buffer-create " *battery*"))
 	  (set-buffer buffer)
+	  (erase-buffer)
 	  (battery-insert-file-contents "/proc/apm")
 	  (re-search-forward battery-linux-proc-apm-regexp)
 	  (setq driver-version (match-string 1))
@@ -205,8 +205,7 @@
 	      (setq minutes (/ seconds 60)
 		    hours (/ seconds 3600))
 	      (setq remaining-time
-		    (format "%d:%02d" hours (- minutes (* 60 hours)))))))
-      (and buffer (kill-buffer buffer)))
+		    (format "%d:%02d" hours (- minutes (* 60 hours))))))))
     (list (cons ?v (or driver-version "N/A"))
 	  (cons ?V (or bios-version "N/A"))
 	  (cons ?I (or bios-interface "N/A"))
@@ -249,6 +248,7 @@
 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