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