Re: ":version" entries in defcustoms

[Simon Josefsson <jas@extundo.com>]

Reiner Steib <4.uce.03.r.s@nurfuerspam.de> writes:

> Could someone add the versions in (some of) the news files or better
> write some function to do this semi-automatically.  ;-)

How about this?

;;; versionfix.el --- Add :version cookies to defcustom without them.
;; Copyright (C) 2004 Free Software Foundation, Inc.

;; Author: Simon Josefsson
;; Keywords: custom

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this file; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;;; Code:

(defun version-fix (version)
  (interactive "sVersion: ")
  (goto-char (point-min))
  (let (a b)
    (while (and (setq a (re-search-forward "^(defcustom" nil t))
		(setq b (progn (goto-char (match-beginning 0))
			       (forward-sexp)
			       (point))))
      (save-restriction
	(narrow-to-region a b)
	(goto-char (point-min))
	(unless (re-search-forward ":version \"[0-9.]+\"" nil t)
	  (goto-char (point-min))
	  (if (re-search-forward ":group" nil t)
	      (goto-char (match-beginning 0))
	    (goto-char (1- (point-max))))
	  (insert (format ":version \"%s\"\n  " version)))))))

;; versionfix.el ends here