0

以下のコードですが、起動時に重複の削除機能が見つからないというエラーがあるようです。誰もがこれを修正する方法を知っていますか？同じページに問題のある2番目のコードがあります。基本的には動作させることができますが、ディレクトリ名を削除したいと思います。重複があるかどうかはあまり気にしません。このコードはこのページに投稿されました：

http://www.emacswiki.org/emacs/RecentFiles

(defun recentf-interactive-complete ()
"find a file in the recently open file using ido for completion"
(interactive)
(let* ((all-files recentf-list)
 (file-assoc-list (mapcar (lambda (x) (cons (file-name-nondirectory x) x)) all-files))
 (filename-list (remove-duplicates (mapcar 'car file-assoc-list) :test 'string=))
 (ido-make-buffer-list-hook
  (lambda ()
    (setq ido-temp-list filename-list)))
 (filename (ido-read-buffer "Find Recent File: "))
 (result-list (delq nil (mapcar (lambda (x) (if (string= (car x) filename) (cdr x))) file-assoc-list)))
 (result-length (length result-list)))
     (find-file 
  (cond 
   ((= result-length 0) filename)
   ((= result-length 1) (car result-list))
   ( t
     (let ( (ido-make-buffer-list-hook
         (lambda ()
           (setq ido-temp-list result-list))))
       (ido-read-buffer (format "%d matches:" result-length))))
4

1 に答える 1

2

「remove-duplicates」関数はcl-seq.elファイルにあり、Emacsの最近のすべてのバージョンに含まれています。これは「cl」パッケージの一部としてロードされるため、Emacsのinitファイルに次の行が必要です。

(require 'cl)
于 2011-08-31T06:27:56.697 に答える