Commit 82ac72e2 authored by Johan Sundström's avatar Johan Sundström
Browse files

Added completely silent filtering mode. This addresses the same issue as bug...

Added completely silent filtering mode. This addresses the same issue as bug 477, but in a much more crude manner.
parent 28630e9f
2003-04-07 Johan Sundstrm <jhs@lysator.liu.se>
* swedish-strings.el,english-strings.el (lyskom-filter-actions):
New filter action obliterate.
* view-text.el (lyskom-view-text): The new obliterate filter
action performs filtering without leaving a trace in the kom
buffer at all.
2003-04-06 David Byers <byers@lysator.liu.se>
Fix bug 678:
......
......@@ -2337,8 +2337,9 @@ environment to one that uses \"%#2s\" to encode text.
'((skip-text . "Skip")
(dontshow . "Don't show")
(read . "Exclude from filter")
(skip-tree . "Skip comments")))
(skip-tree . "Skip comments")
(obliterate . "Obliterate")))
(defconst lyskom-keybindings-missing nil)
(defvar lyskom-en-mode-map nil)
......
......@@ -2371,8 +2371,8 @@ teckenkodning.
'((skip-text . "Hoppa ver")
(dontshow . "Visa inte")
(read . "Undanta frn filtrering")
(skip-tree . "Hoppa ver kommentarer")))
(skip-tree . "Hoppa ver kommentarer")
(obliterate . "Utplna")))
(defconst lyskom-keybindings-missing nil)
......
......@@ -67,7 +67,11 @@ Note that this function must not be called asynchronously."
(start nil)
(todo nil)
(lyskom-last-text-format-flags nil))
(cond ((eq filter 'skip-text) (lyskom-filter-prompt text-no 'filter-text)
(cond ((eq filter 'obliterate)
(setq todo 'next-text)
(lyskom-mark-as-read (blocking-do 'get-text-stat text-no))
'next-text)
((eq filter 'skip-text) (lyskom-filter-prompt text-no 'filter-text)
(setq todo 'next-text)
(lyskom-mark-as-read (blocking-do 'get-text-stat text-no))
'next-text)
......
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