diff options
| author | Stefan Monnier <[email protected]> | 2001-11-17 00:48:14 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2001-11-17 00:48:14 +0000 |
| commit | 08171162f7cb81d451752621cec46b898212c1ad (patch) | |
| tree | 8b95598243d55f0d9232d3f19e48fc28d534a37b /lisp/pcvs-util.el | |
| parent | b9e81d0ac4694217195906f7acb9fd05b5558487 (diff) | |
(cvs-prefix-define): Don't defconst a variable.
Diffstat (limited to 'lisp/pcvs-util.el')
| -rw-r--r-- | lisp/pcvs-util.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el index 264d3496e1..9b1768f32e 100644 --- a/lisp/pcvs-util.el +++ b/lisp/pcvs-util.el @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier <[email protected]> ;; 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) |