Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 1937:cac9e42fd31d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-03-04 21:06:58 by youngs] 2004-02-23 Steve Youngs <sryoungs@bigpond.net.au> * package-get.el (package-get-update-base-from-buffer): Force binary coding system for verifying GnuPG signature in the package-index file.
author youngs
date Thu, 04 Mar 2004 21:06:59 +0000
parents 5d8dcaecc32b
children f33f1487208d
comparison
equal deleted inserted replaced
1936:32d155870130 1937:cac9e42fd31d
580 "Update the package-get database with entries from BUFFER. 580 "Update the package-get database with entries from BUFFER.
581 BUFFER defaults to the current buffer. This command can be 581 BUFFER defaults to the current buffer. This command can be
582 used interactively, for example from a mail or news buffer." 582 used interactively, for example from a mail or news buffer."
583 (interactive) 583 (interactive)
584 (setq buf (or buf (current-buffer))) 584 (setq buf (or buf (current-buffer)))
585 (let (content-beg content-end) 585 (let ((coding-system-for-read 'binary)
586 (coding-system-for-write 'binary)
587 content-beg content-end)
586 (save-excursion 588 (save-excursion
587 (set-buffer buf) 589 (set-buffer buf)
588 (goto-char (point-min)) 590 (goto-char (point-min))
589 (setq content-beg (point)) 591 (setq content-beg (point))
590 (setq content-end (save-excursion (goto-char (point-max)) (point))) 592 (setq content-end (save-excursion (goto-char (point-max)) (point)))