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
660eb093
Commit
660eb093
authored
Oct 11, 1996
by
Niels Möller
Browse files
Tog bort swasciistöd
parent
c9b3de56
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/filter-edit.el
View file @
660eb093
...
...
@@ -279,10 +279,7 @@ If NEG is non-nil, format the negation."
(
if
(
stringp
(
cdr
(
car
pat
)))
" %s %s \"%s\""
" %s %s %s"
))
(
cdr
(
assoc
(
car
(
car
pat
))
(
if
kom-emacs-knows-iso-8859-1
lyskom-filter-what
lyskom-swascii-filter-what
)))
(
cdr
(
assoc
(
car
(
car
pat
))
lyskom-filter-what
))
(
if
neg
" != "
" = "
)
...
...
@@ -307,10 +304,7 @@ If NEWLINE is non-nil, insert a newline after the header."
(
insert
(
format
"--- %s %s"
(
cdr
(
assq
action
(
if
kom-emacs-knows-iso-8859-1
lyskom-filter-actions
lyskom-swascii-filter-actions
)))
(
assq
action
lyskom-filter-actions
))
(
lyskom-get-string
(
if
permanent
'permanent
'temporary
))))
(
if
newline
(
insert
"\n"
))))
...
...
@@ -478,9 +472,7 @@ If NEWLINE is non-nil, insert a newline after the header."
(
let
((
buffer-read-only
nil
)
(
completion-ignore-case
t
)
(
rev-actions
(
lyskom-reverse-pairs
(
if
kom-emacs-knows-iso-8859-1
lyskom-filter-actions
lyskom-swascii-filter-actions
)))
(
lyskom-reverse-pairs
lyskom-filter-actions
))
action
permanent
filter
start
end
entry
)
(
if
filter-edit-currently-edited-filter-entry-list
(
progn
...
...
@@ -528,9 +520,7 @@ If NEWLINE is non-nil, insert a newline after the header."
(
pat
nil
)
(
buffer-read-only
nil
)
(
completion-ignore-case
t
)
(
rev-what
(
lyskom-reverse-pairs
(
if
kom-emacs-knows-iso-8859-1
lyskom-filter-what
lyskom-swascii-filter-what
))))
(
rev-what
(
lyskom-reverse-pairs
lyskom-filter-what
)))
(
setq
what
(
completing-read
(
lyskom-get-string
'filter-edit-filter-what
)
rev-what
...
...
@@ -839,9 +829,7 @@ If NOERROR is non-nil, return nil instead of signaling an error."
(
if
(
=
-1
entry-no
)
(
lyskom-error
(
lyskom-get-string
'filter-edit-outside-entry
)))
(
let*
((
entry
(
elt
filter-edit-currently-edited-filter-entry-list
entry-no
))
(
action-list
(
if
kom-emacs-knows-iso-8859-1
lyskom-filter-actions
lyskom-swascii-filter-actions
))
(
action-list
lyskom-filter-actions
)
(
action
(
car
(
cdr
(
memq
(
assq
...
...
src/filter.el
View file @
660eb093
...
...
@@ -419,18 +419,12 @@ invalid-value until a filter action has been selected.")
(
rassoc
(
completing-read
(
lyskom-get-string
'filter-action
)
(
lyskom-reverse-pairs
(
if
kom-emacs-knows-iso-8859-1
lyskom-filter-actions
lyskom-swascii-filter-actions
))
lyskom-filter-actions
)
nil
nil
(
cdr
(
car
(
if
kom-emacs-knows-iso-8859-1
lyskom-filter-actions
lyskom-swascii-filter-actions
)))
(
cdr
(
car
lyskom-filter-actions
))
t
)
(
if
kom-emacs-knows-iso-8859-1
lyskom-filter-actions
lyskom-swascii-filter-actions
)))))
lyskom-filter-actions
))))
(
defun
lyskom-filter-read-permanent
()
...
...
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