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
Peter Liljenberg
lyskom-elisp-client
Commits
bee01e39
Commit
bee01e39
authored
Jul 13, 2002
by
Johan Sundström
Browse files
Fix for bug 625.
parent
3450c702
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
bee01e39
2002-07-13 Johan Sundström <jhs@lysator.liu.se>
* utilities.el (lyskom-pick-text-no-strategy-alist): Behave as it
used to; comment the last but one seen text when no prefix
argument was given. Fixes bug 625.
(lyskom-get-previous-text): New support function.
2002-07-13 Johan Sundström <jhs@lysator.liu.se>
* lyskom-rest.el (kom-view): Hopefully my last plusp sin.
...
...
src/utilities.el
View file @
bee01e39
...
...
@@ -619,6 +619,9 @@ non-negative integer and 0 means the given text-no."
(
defun
lyskom-get-last-read-text
(
&optional
arg
prompt
default
constraint
)
(
lyskom-default-value
'lyskom-current-text
))
(
defun
lyskom-get-previous-text
(
&optional
arg
prompt
default
constraint
)
lyskom-previous-text
)
(
defun
lyskom-get-text-at-point
(
&optional
arg
prompt
default
constraint
)
(
or
(
lyskom-text-at-point
)
(
lyskom-get-string
'no-text-at-point
)))
...
...
@@ -673,7 +676,9 @@ non-negative integer and 0 means the given text-no."
(
lyskom-error
(
lyskom-get-string
'bad-text-no-prefix
)
arg
)))))))
(
defconst
lyskom-old-farts-text-prompt-strategy
'
((
t
.
((
t
.
lyskom-get-last-read-text
)
'
((
kom-comment-previous
.
((
t
.
lyskom-get-previous-text
)
(
nil
.
lyskom-get-previous-text
)))
(
t
.
((
t
.
lyskom-get-last-read-text
)
(
nil
.
lyskom-get-last-read-text
)
(
0
.
lyskom-get-text-at-point
)
(
-
lyskom-get-text-above-point
(
lambda
(
&optional
args
)
1
))
...
...
@@ -689,7 +694,9 @@ non-negative integer and 0 means the given text-no."
kom buffer."
)
(
defvar
lyskom-pick-text-no-strategy-alist
'
((
t
.
((
t
.
lyskom-get-text-at-point
)
; default for prompts
'
((
kom-comment-previous
.
((
t
.
lyskom-get-previous-text
)
(
nil
.
lyskom-get-previous-text
)))
(
t
.
((
t
.
lyskom-get-text-at-point
)
; default for prompts
(
nil
.
lyskom-get-text-at-point
)
; no prefix arg
(
0
.
lyskom-prompt-for-text-no
)
(
-
lyskom-get-text-above-point
(
lambda
(
&optional
arg
)
1
))
...
...
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