Bläddra i källkod

Refactor

master
10sr 6 år sedan
förälder
incheckning
bd56debc5e
Signerad av: 10sr GPG-nyckel ID: 7BEC428194130EB2
1 ändrade filer med 18 tillägg och 16 borttagningar
  1. +18
    -16
      emacs.el

+ 18
- 16
emacs.el Visa fil

@@ -1814,30 +1814,32 @@ This mode is a simplified version of `adoc-mode'."
(file-attributes recently-file))))))

(defun recently-add (path)
"Add file to list."
"Add PATH to list."
(cl-assert (string= path
(expand-file-name path)))
(recently-reload)
(let* ((l recently-list)
(let* ((l (copy-list recently-list))
(l (delete path
l))
(l (cl-loop for e in l
unless (file-in-directory-p path e)
collect e)))
(setq recently-list
(cons path
l)))
(recently-truncate)
(recently-write))

(defun recently-truncate ()
"Truncate list."
(when (> (length recently-list)
recently-max)
(setq recently-list
(cl-subseq recently-list
collect e))
(l (recently-truncate (cons path
l)
recently-max)))
(unless (equal recently-list
l)
(setq recently-list l)
(recently-write))))

(defun recently-truncate (list len)
"Truncate LIST to LEN."
(when (> (length list)
len)
(setq list
(cl-subseq list
0
recently-max))))
len))))

(defun recently-find-file-hook ()
"Add current file."


Laddar…
Avbryt
Spara