[AC] [PACKAGES (xwem)] Fix small bug in xwem-cl-match-p

APPROVE COMMIT NOTE: This patch has been committed. xwem patch: ChangeLog files diff command: cvs -q diff -U 0 Files affected: ChangeLog Source files diff command: cvs -q diff -uN Files affected: lisp/xwem-manage.el Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/ChangeLog,v retrieving revision 1.65 diff -u -U0 -r1.65 ChangeLog --- ChangeLog 5 Dec 2004 06:56:01 -0000 1.65 +++ ChangeLog 5 Dec 2004 21:49:47 -0000 ＠＠ -0,0 +1,6 ＠＠ +2004-12-06 Steve Youngs <steve(a)youngs.au.com&gt; + + From Richard Klinda <ignotus(a)hixsplit.hu&gt; + * lisp/xwem-manage.el (xwem-cl-match-p): Guard against buffers + that don't have filenames assoctiated with them. + Index: lisp/xwem-manage.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/lisp/xwem-manage.el,v retrieving revision 1.6 diff -u -u -r1.6 xwem-manage.el --- lisp/xwem-manage.el 5 Dec 2004 05:52:29 -0000 1.6 +++ lisp/xwem-manage.el 5 Dec 2004 21:49:36 -0000 ＠＠ -320,7 +320,8 ＠＠ ((eq type 'buffer-name) (string-match param (buffer-name))) ((eq type 'buffer-filename) - (string-match param (buffer-file-name)))))))) + (and (buffer-file-name) + (string-match param (buffer-file-name))))))))) )) (if (or (and (eq gm-type 'and) (null ires)) -- |---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---| | In space, | | No one can hear you rip a stinky | |---------------------------------------&lt;steve(a)xwem.org&gt;---|