Commit 8892a935 authored by David Byers's avatar David Byers
Browse files

Började fixa bug 750

parent 9a08c440
2002-09-14 David Byers <david.byers@swipnet.se>
Start fixing bug 750:
* lyskom-buttons.el (kom-button-press): Handle missing default
action by showing the keyboard menu.
* vars.el.in (lyskom-button-actions): Removed default action for
aux-edit-menu.
(lyskom-button-actions): Removed no-op default action for
add-recipient-or-xref.
Fix bug 752:
* commands1.el (kom-list-re): Use lyskom-a-or-b-or-c-p to choose
what to search in.
......
......@@ -100,7 +100,14 @@ on such functions see the documentation for lyskom-add-button-action."
(defun kom-button-press ()
"Simulate a mouse button press at point."
(interactive)
(lyskom-button-press (point)))
(let* ((type (get-text-property (point) 'lyskom-button-type))
(data (assq type lyskom-button-actions))
(hint (get-text-property (point) 'lyskom-button-hint))
(act (or (and kom-use-button-hints hint)
(and data (elt data 2)))))
(cond ((null data) (lyskom-button-press (point)))
((null act) (lyskom-button-menu (point) 'key))
(t (lyskom-button-press (point))))))
(defun kom-menu-button-press-or-self-insert-command ()
"Simulate a menu mouse button press at point, if there is a button."
......
......@@ -1521,7 +1521,7 @@ appear more than once"
nil)
(aux-edit-menu
nil
aux-edit-menu-text
nil
((lyskom-edit-toggle-secret-aux-action . lyskom-edit-toggle-secret-aux)
(lyskom-edit-toggle-anonymous-aux-action . lyskom-edit-toggle-anonymous-aux)
(lyskom-edit-toggle-inherit-aux-action . lyskom-edit-toggle-inherit-aux)
......@@ -1569,7 +1569,7 @@ appear more than once"
(car (cdr recpt-and-buffer)))))))
(add-recipient-or-xref
add-recipient-or-xref
(lambda (buffer argument text) nil)
nil
((lyskom-button-recpt-add-recipient
. (lambda (buffer buffer text)
(set-buffer buffer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment