mouse-2 bug in link.el in dictionary package

Hi all This is with o XEmacs 21.4 (patch 5) "Civil Service" [Lucid] (i686-pc-cygwin, Mule) of Fri Oct 26 2001 on VZELL Try the following: xemacs -q: M-x load-library dictionary M-x dictionary-search corba and then try and click with button 2 on Common Object Request Broker Architecture You'll get: Buffer is read-only: #<buffer "*Dictionary buffer*"> This is because: button2 runs `mouse-track' instead of button2 runs `link-mouse-click' as suggested by the source code in /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/link.el. Version 1.3.1 - 1.3.2 * replaced set-text-properties by remove-text-properties and add-text-properties because this function is not recommended within XEmacs (reported by Serge Boiko) It seems that this change is responsible for the error. Strange enough in the version 1.2.1, which I used, before dictionary evolved into an Xemacs package, the code was correct and used to work. Attached a patch (which at least works for me). Can anybody confirm this behaviour ? Ciao Volker diff -c /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/ChangeLog~ /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/ChangeLog *** /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/ChangeLog~ Fri Oct 26 17:05:16 2001 --- /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/ChangeLog Fri Oct 26 17:05:16 2001 *************** *** 1,3 **** --- 1,10 ---- + 2001-10-26 Dr. Volker Zell <Dr.Volker.Zell(a)oracle.com&gt; + + * link.el (link-create-link): Reverted replacement of set-text-properties by + remove-text-properties and add-text-properties. This change broke [mouse-2] + handling in dictionary buffers. (See changelog entry in README labeled + Version 1.3.1 - 1.3.2) + 2001-09-08 Steve Youngs <youngs(a)xemacs.org&gt; * Initial XEmacs Package version. diff -c /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/link.el~ /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/link.el *** /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/link.el~ Fri Oct 26 17:05:53 2001 --- /usr/local/lib/xemacs/xemacs-packages/lisp/dictionary/link.el Fri Oct 26 17:05:53 2001 *************** *** 42,49 **** link-data ,data help-echo ,help link-function ,function))) ! (remove-text-properties start end properties) ! (add-text-properties start end properties))) (defun link-insert-link (text face function &optional data help) "Insert the `text' at point to be formatted as link. --- 42,48 ---- link-data ,data help-echo ,help link-function ,function))) ! (set-text-properties start end properties))) (defun link-insert-link (text face function &optional data help) "Insert the `text' at point to be formatted as link.