Commit 71c1d0c2 authored by Pontus Freyhult's avatar Pontus Freyhult

Bugfix: Revert didn't work properly

* filter-edit.el (lyskom-filter-edit-revert): Use
filter-edit-filter-list instead of lyskom-filter-list.
Update filter-edit-list-end marker.

Give some guidance when editing filters:
* english-strings.el, swedish-strings.el (lyskom-messages):
Added filter-edit-footer.

* filter-edit.el (kom-filter-edit): Output filter-edit-footer.
parent 7476779f
2005-03-02 Pontus Freyhult <pont@soua.net>
Bugfix: Revert didn't work properly
* filter-edit.el (lyskom-filter-edit-revert): Use
filter-edit-filter-list instead of lyskom-filter-list.
Update filter-edit-list-end marker.
Give some guidance when editing filters:
* english-strings.el, swedish-strings.el (lyskom-messages):
Added filter-edit-footer.
* filter-edit.el (kom-filter-edit): Output filter-edit-footer.
2005-02-25 Pontus Freyhult <pont@soua.net>
* swedish-strings.el, english-string.el (lyskom-custom-strings):
......
......@@ -1360,6 +1360,13 @@ before reading it.\n")
(filter-edit-restart-p . "You have made changes. Really revert? ")
(filter-edit-help . "p Up, n Down, i New line, M-i New filter, d Delete line, M-d Delete filter")
(filter-edit-header . "Edit filters on \"%s\"\n")
(filter-edit-footer . "
Up line: p New line: i Delete line: d
Up filter: P New filter: M-i Delete filter: M-d
Down line: n Save changes: s Change action: a
Down filter: N Revert changes: g Change permanence: t
Quit: q More help: C-h m
")
(filter-edit-saving . "Saving changes...")
(filter-edit-saving-done . "Saving changes...done")
(filter-edit-saving-error . "Couldn't save changes!")
......
......@@ -759,7 +759,8 @@ If NOERROR is non-nil, return nil instead of signaling an error."
(delete-region filter-edit-list-start filter-edit-list-end)
(goto-char filter-edit-list-start)
(insert "\n")
(lyskom-format-filter-list (copy-filter-list lyskom-filter-list))
(lyskom-format-filter-list (copy-filter-list filter-edit-filter-list))
(set-marker filter-edit-list-end (point))
(setq filter-edit-change-flag nil)
(lyskom-filter-edit-beginning-of-list))))
......@@ -894,7 +895,9 @@ undesired filters and to create complex filters."
(setq filter-edit-list-start (point-marker))
(insert "\n")
(lyskom-format-filter-list (copy-filter-list filter-edit-filter-list))
(setq filter-edit-list-end (point-max-marker)))
(setq filter-edit-list-end (point-max-marker))
(insert (make-string (1- (window-width)) ?=)
(format (lyskom-get-string 'filter-edit-footer))))
(setq lyskom-edit-return-to-configuration curwin)
(lyskom-filter-edit-beginning-of-list)))
......
......@@ -1411,6 +1411,13 @@ att l
(filter-edit-help .
"p,n Upp/ned, i/M-i Ny rad/filter, d/M-d Radera rad/filter, C-h m Mer hjlp")
(filter-edit-header . "ndra filter fr \"%s\"\n")
(filter-edit-footer . "
Upp rad: p Ny rad: i Ta bort rad: d
Upp filter: P Nytt filter: M-i Ta bort filter: M-d
Ned rad: n Spara ndringar: s ndra handling: a
Ned filter: N ngra ndringar: g ndra permanens: t
Avsluta: q Mer hjlp: C-h m
")
(filter-edit-saving . "Sparar ndringarna...")
(filter-edit-saving-done . "Sparar ndringarna...klart")
(filter-edit-saving-error . "Kunde inte spara ndringarna!")
......
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