Commit 0977a633 authored by Linus Tolke's avatar Linus Tolke
Browse files

lyskom-error, konverterar till swascii

parent 89aabf80
No preview for this file type
No preview for this file type
......@@ -198,9 +198,9 @@ column, and can be inserted at another line with \\[kom-prioritize-yank]."
(beginning-of-line)
(cond
((< (count-lines (point-min) (point)) 2) ;In header?
(error (lyskom-get-string 'too-high-goto-2)))
(lyskom-error (lyskom-get-string 'too-high-goto-2)))
((< (count-lines (point) (point-max)) 2)
(error (lyskom-get-string 'too-low-go-up)))
(lyskom-error (lyskom-get-string 'too-low-go-up)))
((null count) ;Take care of interactive argument.
(setq count 1))
((numberp count))
......@@ -233,9 +233,9 @@ conferences (or as many as is on the stack, whichever is less)."
(interactive "P")
(cond
((null lyskom-prioritize-stack)
(error (lyskom-get-string 'all-confs-popped)))
(lyskom-error (lyskom-get-string 'all-confs-popped)))
((< (count-lines (point-min) (point)) 2)
(error (lyskom-get-string 'too-high-goto-2)))
(lyskom-error (lyskom-get-string 'too-high-goto-2)))
((null count) ;Interactive...
(setq count 1))
((numberp count))
......@@ -299,7 +299,7 @@ on the lines. Leaves point at the beginning of the moved line."
(defun lyskom-prioritize-handler (res)
"Arg: RES. Barf if RES is nil."
(or res (error (lyskom-get-string 'prio-died))))
(or res (lyskom-error (lyskom-get-string 'prio-died))))
(defun kom-prioritize-quit ()
......@@ -322,9 +322,9 @@ on the lines. Leaves point at the beginning of the moved line."
(beginning-of-line)
(cond
((< (count-lines (point-min) (point)) 2)
(error (lyskom-get-string 'too-high-goto-2)))
(lyskom-error (lyskom-get-string 'too-high-goto-2)))
((zerop (count-lines (point) (point-max)))
(error (lyskom-get-string 'too-low-go-up)))
(lyskom-error (lyskom-get-string 'too-low-go-up)))
(t
(save-excursion
(let
......@@ -357,9 +357,9 @@ If optional argument REVERSE is non-nil move line down instead."
(beginning-of-line)
(cond
((< (count-lines (point-min) (point)) 2)
(error (lyskom-get-string 'too-high-goto-2)))
(lyskom-error (lyskom-get-string 'too-high-goto-2)))
((zerop (count-lines (point) (point-max)))
(error (lyskom-get-string 'too-low-go-up)))
(lyskom-error (lyskom-get-string 'too-low-go-up)))
((null count)
(setq count 1))
((numberp count))
......
Supports Markdown
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