lyskom-error, konverterar till swascii

src/prioritize.el

@@ -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))