;;; chart.el --- Draw charts (bar charts, etc)
-;;; Copyright (C) 1996, 1998, 1999, 2001 Eric M. Ludlam
+;;; Copyright (C) 1996, 1998, 1999, 2001 Eric M. Ludlam
;; Author: <firstname.lastname@example.org>
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's author (see below) or write to:
-;; The Free Software Foundation, Inc.
-;; Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;; Please send bug reports, etc. to email@example.com
(insert "cd " d ";du -sk * \n")
(message "Running `cd %s;du -sk *'..." d)
- (call-process-region (point-min) (point-max)
+ (call-process-region (point-min) (point-max) t
(message "Scanning output ...")
(num (buffer-substring (match-beginning 1) (match-end 1))))
(setq nmlst (cons nam nmlst)
;; * 1000 to put it into bytes
- cntlst (cons (* (string-to-
int num) 1000) cntlst))))
+ cntlst (cons (* (string-to- num) 1000) cntlst))))
(error "No files found!"))
(chart-bar-quickie 'vertical (format "Largest files in %s" d)