head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	2003.07.31.17.36.54;	author shige;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Add elisp/emacsen ports in the ports tree @@ 2003/07/31
@
text
@$FreeBSD$
--- cus-face.el.orig	Wed Mar  4 19:52:39 1998
+++ cus-face.el	Mon Mar  9 08:05:33 1998
@@@@ -96,7 +96,7 @@@@
       "Define a new FACE on all frames, ignoring X resources."
       (interactive "SMake face: ")
       (or (internal-find-face name)
-	  (let ((face (make-vector 8 nil)))
+	  (let ((face (make-vector face-vector-length nil)))
 	    (aset face 0 'face)
 	    (aset face 1 name)
 	    (let* ((frames (frame-list))
@
