editors/custom-mule/files/patch-aa


1
2
3
4
5
6
7
8
9
10
11

--- 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))