;;; gulp.el --- ask for updates for Lisp packages
-;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 2001-2011 Free Software Foundation, Inc.
;; Author: Sam Shteingold <shteingd@math.ucla.edu>
;; Maintainer: FSF
-;; Keywords: maintenance
+;; Keywords: maint
;; This file is part of GNU Emacs.
:group 'maint)
(defcustom gulp-discard "^;+ *Maintainer: *FSF *$"
- "*The regexp matching the packages not requiring the request for updates."
+ "The regexp matching the packages not requiring the request for updates."
:type 'regexp
:group 'gulp)
-(defcustom gulp-tmp-buffer "*gulp*" "The name of the temporary buffer."
+(defcustom gulp-tmp-buffer "*gulp*"
+ "The name of the temporary buffer."
:type 'string
:group 'gulp)
(defcustom gulp-max-len 2000
- "*Distance into a Lisp source file to scan for keywords."
+ "Distance into a Lisp source file to scan for keywords."
:type 'integer
:group 'gulp)
I'm going to start pretesting a new version of GNU Emacs soon, so I'd
like to ask if you have any updates for the Emacs packages you work on.
You're listed as the maintainer of the following package(s):\n\n")
- "*The starting text of a gulp message."
+ "The starting text of a gulp message."
:type 'string
:group 'gulp)
of information to include.
Thanks.")
- "*The closing text in a gulp message."
+ "The closing text in a gulp message."
:type 'string
:group 'gulp)
The list of addresses for which you decided not to send mail
is left in the `*gulp*' buffer at the end."
(interactive "DRequest updates for Lisp directory: \nP")
- (save-excursion
- (set-buffer (get-buffer-create gulp-tmp-buffer))
+ (with-current-buffer (get-buffer-create gulp-tmp-buffer)
(let ((m-p-alist (gulp-create-m-p-alist
(directory-files dir nil "^[^=].*\\.el$" t)
dir))
(provide 'gulp)
-;; arch-tag: 42750a11-460a-4efc-829f-342d075530e5
;;; gulp.el ends here