Commit 4edfb9c7 authored by David Kågedal's avatar David Kågedal
Browse files

* prioritize.el (kom-prioritize): Använd inhibit-read-only.

(lyskom-prioritize-redraw-entry): Dito.
(lyskom-prioritize-redraw-buffer): Dito.
(lyskom-prioritize-move-entry): Dito.
(kom-prioritize-reprioritize): Dito.
parent b0d36878
......@@ -197,7 +197,7 @@
(defun lyskom-prioritize-move-entry (from to &optional dontset forceup)
(let ((buffer-read-only nil))
(let ((inhibit-read-only t))
(if (/= from to)
(let ((entry (lyskom-prioritize-get-entry-from-no from))
(after nil)
......@@ -502,7 +502,7 @@ the same as the entry above it, but to not move it."
0 255
(lyskom-get-string 'reprioritize-to)
t))
(buffer-read-only nil)
(inhibit-read-only t)
(where 1)
(elem nil))
......@@ -625,7 +625,7 @@ of conferences you are a member of."
(lyskom-prioritize-sort-entries)
(lyskom-prioritize-redraw-buffer)
(goto-char (point-max))
(let ((buffer-read-only nil))
(let ((inhibit-read-only t))
(insert " "))
(lyskom-prioritize-goto-entry
(lyskom-prioritize-get-entry-from-no 1))))))))
......
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