[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Patch for bug in facemenu.el
From: |
Luc Teirlinck |
Subject: |
Patch for bug in facemenu.el |
Date: |
Wed, 1 Sep 2004 20:52:12 -0500 (CDT) |
Do `emacs -q'
C-x C-f enr.text M-x enriched-mode
Insert: qqq
C-x h
M-g l
Now all q's are in bold italic.
C-x h
M-x facemenu-set-foreground RET green
Now the q's are green, but no longer bold or italic.
I believe that this is a bug.
The following small patch would fix this.
===File ~/facemenu.el-diff==================================
*** facemenu.el 20 May 2004 12:11:30 -0500 1.72
--- facemenu.el 01 Sep 2004 17:39:21 -0500
***************
*** 617,623 ****
(check-face (car face-list)))))
(i mask-len)
(useful nil))
! (while (> (setq i (1- i)) 1)
(and (not (memq (aref face-atts i) '(nil unspecified)))
(memq (aref mask-atts i) '(nil unspecified))
(aset mask-atts i (setq useful t))))
--- 617,623 ----
(check-face (car face-list)))))
(i mask-len)
(useful nil))
! (while (>= (setq i (1- i)) 0)
(and (not (memq (aref face-atts i) '(nil unspecified)))
(memq (aref mask-atts i) '(nil unspecified))
(aset mask-atts i (setq useful t))))
============================================================
- Patch for bug in facemenu.el,
Luc Teirlinck <=