Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
8892a935
Commit
8892a935
authored
Sep 14, 2002
by
David Byers
Browse files
Började fixa bug 750
parent
9a08c440
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
8892a935
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.
...
...
src/lyskom-buttons.el
View file @
8892a935
...
...
@@ -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."
...
...
src/vars.el.in
View file @
8892a935
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment