From: Stefan Monnier Date: Sat, 17 Nov 2001 00:48:14 +0000 (+0000) Subject: (cvs-prefix-define): Don't defconst a variable. X-Git-Tag: ttn-vms-21-2-B4~18460 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08171162f7cb81d451752621cec46b898212c1ad;p=emacs.git (cvs-prefix-define): Don't defconst a variable. --- diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el index 264d3496e15..9b1768f32e7 100644 --- a/lisp/pcvs-util.el +++ b/lisp/pcvs-util.el @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-util.el,v 1.13 2001/07/16 07:46:48 pj Exp $ +;; Revision: $Id: pcvs-util.el,v 1.14 2001/10/03 20:28:01 monnier Exp $ ;; This file is part of GNU Emacs. @@ -350,7 +350,7 @@ If it is \\[universal-argument] \\[universal-argument], behave just `(progn (defvar ,sym nil ,(concat (or docstring "") " See `cvs-prefix-set' for further description of the behavior.")) - (defconst ,cps + (defvar ,cps (let ((defaults ,defaults)) ;; sanity ensurance (unless (>= (length defaults) cvs-prefix-number)