Преглед на файлове

Fix to use cl-assert

master
10sr преди 6 години
родител
ревизия
dc3fdee407
Подписан от: 10sr GPG ключ ID: 7BEC428194130EB2
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. +2
    -2
      emacs.el

+ 2
- 2
emacs.el Целия файл

@@ -1853,7 +1853,7 @@ and search from projectile root (if projectile is available)."
(defun recently-write ()
"Write to file."
;; Failsafe to avoid purging all existing entries
(assert recently-list)
(cl-assert recently-list)
(with-temp-buffer
(prin1 recently-list
(current-buffer))
@@ -1895,7 +1895,7 @@ read."
if (string-match re path) return nil
finally return t)
(recently-reload)
(let* ((l (copy-list recently-list))
(let* ((l (cl-copy-list recently-list))
(l (delete path
l))
(l (cl-loop for e in l


Зареждане…
Отказ
Запис