xwem-devel
[Top] [All Lists]

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

From: Steve Youngs <steve@xxxxxxxx>
Subject: [AC] [PACKAGES (xwem)] Fix small bug in xwem-cl-match-p
Date: Mon, 06 Dec 2004 07:51:12 +1000
Cc: XEmacs Patches <xemacs-patches@xxxxxxxxxx>
Organization: The XWEM Project
User-agent: Gnus/5.110003 (No Gnus v0.3) XEmacs/21.4 (Security Through Obscurity, linux)
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@xxxxxxxxxxxxx>
+
+       From Richard Klinda <ignotus@xxxxxxxxxxx>
+       * 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             |
|---------------------------------------<steve@xxxxxxxx>---|

Attachment: pgp0UHBt4v6Nm.pgp
Description: PGP signature

<Prev in Thread] Current Thread [Next in Thread>
  • [AC] [PACKAGES (xwem)] Fix small bug in xwem-cl-match-p, Steve Youngs <=