[XWEM]: Fix bug in `xwem-register-del'

[Steve Youngs]

I was going to ask for help with "auto-registering" clients because
they were giving me trouble.  But have a patch that fixes the problem
instead. :-)

This will explain the patch...

,----[ C-h f remassq RET ]
| `remassq' is a built-in function
| (remassq KEY ALIST)
| 
| Documentation:
| Delete by side effect any elements of ALIST whose car is `eq' to KEY.
| The modified ALIST is returned.  If the first member of ALIST has a car
| that is `eq' to KEY, there is no way to remove it by side effect;
| therefore, write `(setq foo (remassq key foo))' to be sure of changing
| the value of `foo'.
`----


--- xwem-register.el.orig       2004-11-22 19:54:39.000000000 +1000
+++ xwem-register.el    2004-11-28 19:30:00.000000000 +1000
@@ -82,7 +82,7 @@
 
 (defun xwem-register-del (reg)
   "Delete REG from registers list."
-  (remassq reg xwem-registers))
+  (setq xwem-registers (remassq reg xwem-registers)))
 
 ;;;###autoload(autoload 'xwem-register-client "xwem-register" "" t)
 (define-xwem-command xwem-register-client (register)


-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|                   Te audire no possum.                   |
|             Musa sapientum fixa est in aure.             |
|----------------------------------<address@hidden>---|

pgpcMqLISfZ4f.pgp
Description: PGP signature