Skip to content
GitLab
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
0acc616c
Commit
0acc616c
authored
Oct 14, 2001
by
Ulrik Haugen
Browse files
kom-next- and -previous-link skip the button on the prompts.
parent
65405576
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
0acc616c
2001-10-14 Ulrik Haugen <qha@lysator.liu.se>
* lyskom-buttons.el (kom-previous-link, kom-next-link): look
for property lyskom-button in stead of lyskom-button-text.
(lyskom-generate-button): new arg sublte, callers changed.
2001-10-13 Ulrik Haugen <qha@lysator.liu.se>
* swedish-strings.el, english-strings.el (lyskom-message,
...
...
src/lyskom-buttons.el
View file @
0acc616c
...
...
@@ -82,12 +82,12 @@ on such functions see the documentation for lyskom-add-button-action."
(
defun
kom-previous-link
(
num
)
"Move the cursor to the previous active area in the LysKOM buffer."
(
interactive
"p"
)
(
lyskom-prev-area
num
'lyskom-button
-text
))
(
lyskom-prev-area
num
'lyskom-button
))
(
defun
kom-next-link
(
num
)
"Move the cursor to the next active area in the LysKOM buffer."
(
interactive
"p"
)
(
lyskom-next-area
num
'lyskom-button
-text
))
(
lyskom-next-area
num
'lyskom-button
))
(
defun
kom-button-press
()
...
...
@@ -402,12 +402,15 @@ the current match-data."
(
defun
lyskom-generate-button
(
type
arg
&optional
text
face
menu-title
)
"Generate the properties for a button of type TYPE with argument ARG.
Optional argument TEXT is the button text to be saved as a property and
FACE is the default text face for the button. Optional argument MENU-TITLE
defines the title for the popup menu. See lyskom-default-button for more
information."
(
defun
lyskom-generate-button
(
type
arg
&optional
text
face
menu-title
subtle
)
"Generate the properties for a button of type TYPE with argument
ARG. Optional argument TEXT is the button text to be saved as a
property and FACE is the default text face for the button. Optional
argument MENU-TITLE defines the title for the popup menu. See
lyskom-default-button for more information. Optional argument SUBTLE
means don't set the lyskom-button property if non-nil. that means
kom-next- and -previous-link won't notice the button"
(
let*
((
persno
(
cond
((
boundp
'lyskom-pers-no
)
lyskom-pers-no
)
((
and
(
boundp
'lyskom-buffer
)
lyskom-buffer
)
(
save-excursion
...
...
@@ -461,6 +464,7 @@ information."
'lyskom-buffer
lyskom-buffer
)))))
(
append
(
list
'rear-nonsticky
t
)
(
if
(
not
subtle
)
(
list
'lyskom-button
t
))
(
if
the-hint
(
cons
'lyskom-button-hint
(
cons
the-hint
props
))
...
...
@@ -477,7 +481,7 @@ MENU-TITLE is a list consisting of a format string or symbol and arguments
for the format string. The arguments are not when the menu is popped
up."
(
and
kom-text-properties
(
let
(
xarg
text
face
)
(
let
(
xarg
text
face
subtle
)
(
cond
((
eq
type
'conf
)
(
cond
((
lyskom-conf-stat-p
arg
)
(
if
(
conf-type->letterbox
(
conf-stat->conf-type
arg
))
...
...
@@ -541,14 +545,15 @@ up."
(
t
(
setq
xarg
nil
text
""
))))
((
eq
type
'timestamp
)
(
setq
face
'kom-text-face
)
(
setq
face
'kom-text-face
subtle
t
)
(
cond
((
null
arg
)
(
setq
xarg
(
current-time
)
text
(
format-time-string
"%Y-%m-%d %H:%M"
)))
(
t
(
setq
xarg
arg
text
(
format-time-string
"%Y-%m-%d %H:%M"
arg
)))))
(
t
(
setq
xarg
arg
text
""
)))
(
lyskom-generate-button
type
xarg
text
face
menu-title
))))
(
lyskom-generate-button
type
xarg
text
face
menu-title
subtle
))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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