M-x epkg-describe-package dired+ "Wrong type argument: arrayp, melpa-wiki-recipe"

[xuchunyang]

M-x epkg-describe-package fails for some packages such as dired+

Debugger entered--Lisp error: (wrong-type-argument arrayp melpa-wiki-recipe)
  aref(melpa-wiki-recipe 10)
  (progn (aref class-obj 10))
  (copy-sequence (progn (aref class-obj 10)))
  (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj)
  (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values))
  (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this)
  (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this))
  (let* ((val (closql--extern-unbound row)) (x769 (car val)) (x770 (cdr val))) (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this)))
  (progn (let* ((val (closql--extern-unbound row)) (x769 (car val)) (x770 (cdr val))) (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this))))
  (closure (t) (class db row &optional resolve) (progn (let* ((val (closql--extern-unbound row)) (x769 (car val)) (x770 (cdr val))) (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this)))))(melpa-recipe #<epkg-database epkg-database-40d318b4> (wiki "dired+" "git@github:emacsmirror/emacswiki.org.git" nil "https://github.com/emacsmirror/emacswiki.org" nil nil nil nil nil nil "dired+"))
  apply((closure (t) (class db row &optional resolve) (progn (let* ((val (closql--extern-unbound row)) (x769 (car val)) (x770 (cdr val))) (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this))))) melpa-recipe (#<epkg-database epkg-database-40d318b4> (wiki "dired+" "git@github:emacsmirror/emacswiki.org.git" nil "https://github.com/emacsmirror/emacswiki.org" nil nil nil nil nil nil "dired+")))
  closql--remake-instance(melpa-recipe #<epkg-database epkg-database-40d318b4> (wiki "dired+" "git@github:emacsmirror/emacswiki.org.git" nil "https://github.com/emacsmirror/emacswiki.org" nil nil nil nil nil nil "dired+"))
  (closure ((db . #<epkg-database epkg-database-40d318b4>) (columns) (class . melpa-recipe) (value . unbound) (c . 27) (class . #s(eieio--class :name epkg-wiki-package :docstring nil :parents (#s(eieio--class :name epkg-subset-package :docstring nil :parents (#s(eieio--class :name epkg-gitish-package :docstring nil :parents (#s(eieio--class :name epkg-mirrored-package :docstring nil :parents (#s(eieio--class :name epkg-package :docstring nil :parents (#s(eieio--class :name closql-object :docstring nil :parents nil :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil)] :index-table #<hash-table eq 1/65 0x40d37101> :children (melpa-recipe gelpa-recipe epkg-package) :initarg-tuples ((:closql-database . closql-database)) :class-slots [#s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform nil :type t :props nil)] :class-allocation-values [nil nil nil nil nil nil] :default-object-cache #<closql-object closql-object-40bf9270> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x45d101b5> :children (epkg-mocking-package epkg-mirrored-package) :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name url-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil)] :class-allocation-values [nil nil nil nil nil "epkg-" "-package" packages name nil nil] :default-object-cache #<epkg-package epkg-package-46ee2ba8> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x45dad841> :children (epkg-gitish-package epkg-file-package) :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform "https://github.com/emacsmirror/%m" :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform "git@github.com:emacsmirror/%m.git" :type t :props nil) #s(cl-slot-descriptor :name url-format :initform nil :type t :props nil)] :class-allocation-values [nil nil name packages "-package" "epkg-" nil nil "https://github.com/emacsmirror/%m" "git@github.com:emacsmirror/%m.git" nil] :default-object-cache #<epkg-mirrored-package epkg-mirrored-package-45ddf308> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x44ef1ddd> :children (epkg-hg-package epkg-subset-package epkg-git-package) :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name url-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform "git@github.com:emacsmirror/%m.git" :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform "https://github.com/emacsmirror/%m" :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil)] :class-allocation-values [nil "git@github.com:emacsmirror/%m.git" "https://github.com/emacsmirror/%m" nil nil "epkg-" "-package" packages name nil nil] :default-object-cache #<epkg-gitish-package epkg-gitish-package-40c64f48> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x46062f49> :children (epkg-elpa-branch-package epkg-elpa-package epkg-wiki-package) :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform "https://github.com/emacsmirror/%m" :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform "git@github.com:emacsmirror/%m.git" :type t :props nil) #s(cl-slot-descriptor :name url-format :initform nil :type t :props nil)] :class-allocation-values [nil nil name packages "-package" "epkg-" nil nil "https://github.com/emacsmirror/%m" "git@github.com:emacsmirror/%m.git" nil] :default-object-cache #<epkg-subset-package epkg-subset-package-46edaa08> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x44e8d301> :children nil :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name url-format :initform "git@github:emacsmirror/emacswiki.org.git" :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform "git@github.com:emacsmirror/%m.git" :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform "https://github.com/emacsmirror/%m" :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform "https://emacswiki.org/emacs/download/%n.el" :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform "https://github.com/emacsmirror/emacswiki.org" :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil)] :class-allocation-values ["git@github:emacsmirror/emacswiki.org.git" "git@github.com:emacsmirror/%m.git" "https://github.com/emacsmirror/%m" "https://emacswiki.org/emacs/download/%n.el" "https://github.com/emacsmirror/emacswiki.org" "epkg-" "-package" packages name nil nil] :default-object-cache #<epkg-wiki-package epkg-wiki-package-46e4f700> :options (:custom-groups nil))) (slot . melpa-recipes) (obj . #<epkg-wiki-package epkg-wiki-package-46f16d34>) t) (row) (closql--remake-instance class db row))((wiki "dired+" "git@github:emacsmirror/emacswiki.org.git" nil "https://github.com/emacsmirror/emacswiki.org" nil nil nil nil nil nil "dired+"))
  mapcar((closure ((db . #<epkg-database epkg-database-40d318b4>) (columns) (class . melpa-recipe) (value . unbound) (c . 27) (class . #s(eieio--class :name epkg-wiki-package :docstring nil :parents (#s(eieio--class :name epkg-subset-package :docstring nil :parents (#s(eieio--class :name epkg-gitish-package :docstring nil :parents (#s(eieio--class :name epkg-mirrored-package :docstring nil :parents (#s(eieio--class :name epkg-package :docstring nil :parents (#s(eieio--class :name closql-object :docstring nil :parents nil :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil)] :index-table #<hash-table eq 1/65 0x40d37101> :children (melpa-recipe gelpa-recipe epkg-package) :initarg-tuples ((:closql-database . closql-database)) :class-slots [#s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform nil :type t :props nil)] :class-allocation-values [nil nil nil nil nil nil] :default-object-cache #<closql-object closql-object-40bf9270> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x45d101b5> :children (epkg-mocking-package epkg-mirrored-package) :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name url-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil)] :class-allocation-values [nil nil nil nil nil "epkg-" "-package" packages name nil nil] :default-object-cache #<epkg-package epkg-package-46ee2ba8> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x45dad841> :children (epkg-gitish-package epkg-file-package) :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform "https://github.com/emacsmirror/%m" :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform "git@github.com:emacsmirror/%m.git" :type t :props nil) #s(cl-slot-descriptor :name url-format :initform nil :type t :props nil)] :class-allocation-values [nil nil name packages "-package" "epkg-" nil nil "https://github.com/emacsmirror/%m" "git@github.com:emacsmirror/%m.git" nil] :default-object-cache #<epkg-mirrored-package epkg-mirrored-package-45ddf308> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x44ef1ddd> :children (epkg-hg-package epkg-subset-package epkg-git-package) :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name url-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform "git@github.com:emacsmirror/%m.git" :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform "https://github.com/emacsmirror/%m" :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil)] :class-allocation-values [nil "git@github.com:emacsmirror/%m.git" "https://github.com/emacsmirror/%m" nil nil "epkg-" "-package" packages name nil nil] :default-object-cache #<epkg-gitish-package epkg-gitish-package-40c64f48> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x46062f49> :children (epkg-elpa-branch-package epkg-elpa-package epkg-wiki-package) :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform "https://github.com/emacsmirror/%m" :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform "git@github.com:emacsmirror/%m.git" :type t :props nil) #s(cl-slot-descriptor :name url-format :initform nil :type t :props nil)] :class-allocation-values [nil nil name packages "-package" "epkg-" nil nil "https://github.com/emacsmirror/%m" "git@github.com:emacsmirror/%m.git" nil] :default-object-cache #<epkg-subset-package epkg-subset-package-46edaa08> :options (:custom-groups nil :abstract t))) :slots [#s(cl-slot-descriptor :name closql-database :initform nil :type t :props nil) #s(cl-slot-descriptor :name name :initform nil :type t :props nil) #s(cl-slot-descriptor :name hash :initform nil :type t :props nil) #s(cl-slot-descriptor :name url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-url :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirror-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-user :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-name :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-branch :initform nil :type t :props nil) #s(cl-slot-descriptor :name upstream-tree :initform nil :type t :props nil) #s(cl-slot-descriptor :name library :initform nil :type t :props nil) #s(cl-slot-descriptor :name repopage :initform nil :type t :props nil) #s(cl-slot-descriptor :name homepage :initform nil :type t :props nil) #s(cl-slot-descriptor :name mirrorpage :initform nil :type t :props nil) #s(cl-slot-descriptor :name wikipage :initform nil :type t :props nil) #s(cl-slot-descriptor :name license :initform nil :type t :props nil) #s(cl-slot-descriptor :name created :initform nil :type t :props nil) #s(cl-slot-descriptor :name updated :initform nil :type t :props nil) #s(cl-slot-descriptor :name summary :initform nil :type t :props nil) #s(cl-slot-descriptor :name commentary :initform nil :type t :props nil) #s(cl-slot-descriptor :name libraries :initform unbound :type t :props ((:closql-columns . [package library]))) #s(cl-slot-descriptor :name provided :initform unbound :type t :props ((:closql-columns . [package feature drop join]))) #s(cl-slot-descriptor :name required :initform unbound :type t :props ((:closql-columns . [package feature hard ease drop]))) #s(cl-slot-descriptor :name keywords :initform unbound :type t :props ((:closql-columns . [package keyword]))) #s(cl-slot-descriptor :name authors :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name maintainers :initform unbound :type t :props ((:closql-columns . [package name email]))) #s(cl-slot-descriptor :name melpa-recipes :initform unbound :type t :props ((:closql-class . melpa-recipe))) #s(cl-slot-descriptor :name gelpa-recipes :initform unbound :type t :props ((:closql-class . gelpa-recipe))) #s(cl-slot-descriptor :name builtin-libraries :initform unbound :type t :props ((:closql-columns . [package library feature]))) #s(cl-slot-descriptor :name patched :initform nil :type t :props nil) #s(cl-slot-descriptor :name stars :initform nil :type t :props nil) #s(cl-slot-descriptor :name downloads :initform nil :type t :props nil)] :index-table #<hash-table eq 32/65 0x44e8d301> :children nil :initarg-tuples ((:closql-database . closql-database) (:name . name) (:url . url) (:upstream-branch . upstream-branch) (:upstream-tree . upstream-tree) (:library . library) (:patched . patched) (:stars . stars) (:downloads . downloads)) :class-slots [#s(cl-slot-descriptor :name url-format :initform "git@github:emacsmirror/emacswiki.org.git" :type t :props nil) #s(cl-slot-descriptor :name mirror-url-format :initform "git@github.com:emacsmirror/%m.git" :type t :props nil) #s(cl-slot-descriptor :name mirrorpage-format :initform "https://github.com/emacsmirror/%m" :type t :props nil) #s(cl-slot-descriptor :name homepage-format :initform "https://emacswiki.org/emacs/download/%n.el" :type t :props nil) #s(cl-slot-descriptor :name repopage-format :initform "https://github.com/emacsmirror/emacswiki.org" :type t :props nil) #s(cl-slot-descriptor :name closql-class-prefix :initform "epkg-" :type t :props nil) #s(cl-slot-descriptor :name closql-class-suffix :initform "-package" :type t :props nil) #s(cl-slot-descriptor :name closql-table :initform packages :type t :props nil) #s(cl-slot-descriptor :name closql-primary-key :initform name :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-key :initform nil :type t :props nil) #s(cl-slot-descriptor :name closql-foreign-table :initform nil :type t :props nil)] :class-allocation-values ["git@github:emacsmirror/emacswiki.org.git" "git@github.com:emacsmirror/%m.git" "https://github.com/emacsmirror/%m" "https://emacswiki.org/emacs/download/%n.el" "https://github.com/emacsmirror/emacswiki.org" "epkg-" "-package" packages name nil nil] :default-object-cache #<epkg-wiki-package epkg-wiki-package-46e4f700> :options (:custom-groups nil))) (slot . melpa-recipes) (obj . #<epkg-wiki-package epkg-wiki-package-46f16d34>) t) (row) (closql--remake-instance class db row)) ((wiki "dired+" "git@github:emacsmirror/emacswiki.org.git" nil "https://github.com/emacsmirror/emacswiki.org" nil nil nil nil nil nil "dired+")))
  (aset obj c (mapcar (function (lambda (row) (closql--remake-instance class db row))) (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i4)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-foreign-key) (closql--oref obj (eieio-oref-default obj 'closql-primary-key)) (eieio-oref-default class 'closql-primary-key))))
  (cond (class (aset obj c (mapcar (function (lambda (row) (closql--remake-instance class db row))) (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i4)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-foreign-key) (closql--oref obj (eieio-oref-default obj 'closql-primary-key)) (eieio-oref-default class 'closql-primary-key))))) (columns (if (eq value eieio-unbound) (let* ((val (cl-coerce columns 'list)) (x757 (car val)) (x758 (cdr val))) (let ((select x758) (where x757)) (progn (setq value (emacsql db [:select $i1 :from $i2 :where (= $i3 $s4) :order-by [(asc $i3)]] (vconcat select) slot where (closql--oref obj (eieio-oref-default obj 'closql-primary-key)))) (aset obj c (if (= (length select) 1) (mapcar (function car) value) value))))) value)) (t (eieio-barf-if-slot-unbound value obj slot 'oref)))
  (let ((value (aref obj c)) (class (closql--slot-get obj slot :closql-class)) (columns (closql--slot-get obj slot :closql-columns)) (db (closql--oref obj 'closql-database))) (cond (class (aset obj c (mapcar (function (lambda (row) (closql--remake-instance class db row))) (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i4)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-foreign-key) (closql--oref obj (eieio-oref-default obj 'closql-primary-key)) (eieio-oref-default class 'closql-primary-key))))) (columns (if (eq value eieio-unbound) (let* ((val (cl-coerce columns 'list)) (x757 (car val)) (x758 (cdr val))) (let ((select x758) (where x757)) (progn (setq value (emacsql db [:select $i1 :from $i2 :where (= $i3 $s4) :order-by [(asc $i3)]] (vconcat select) slot where (closql--oref obj (eieio-oref-default obj 'closql-primary-key)))) (aset obj c (if (= (length select) 1) (mapcar (function car) value) value))))) value)) (t (eieio-barf-if-slot-unbound value obj slot 'oref))))
  (if (not c) (if (setq c (eieio--class-slot-name-index class slot)) (aref (progn (aref class 9)) c) (slot-missing obj slot 'oref)) (progn (or (eieio-object-p obj) (signal 'wrong-type-argument (list 'eieio-object obj 'obj))) nil) (let ((value (aref obj c)) (class (closql--slot-get obj slot :closql-class)) (columns (closql--slot-get obj slot :closql-columns)) (db (closql--oref obj 'closql-database))) (cond (class (aset obj c (mapcar (function (lambda (row) (closql--remake-instance class db row))) (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i4)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-foreign-key) (closql--oref obj (eieio-oref-default obj 'closql-primary-key)) (eieio-oref-default class 'closql-primary-key))))) (columns (if (eq value eieio-unbound) (let* ((val (cl-coerce columns 'list)) (x757 (car val)) (x758 (cdr val))) (let ((select x758) (where x757)) (progn (setq value (emacsql db [:select $i1 :from $i2 :where (= $i3 $s4) :order-by [(asc $i3)]] (vconcat select) slot where (closql--oref obj (eieio-oref-default obj 'closql-primary-key)))) (aset obj c (if (= (length select) 1) (mapcar (function car) value) value))))) value)) (t (eieio-barf-if-slot-unbound value obj slot 'oref)))))
  (let* ((class (cond ((symbolp obj) (error "eieio-oref called on a class: %s" obj) (let ((c (get obj 'cl--class))) (if (and (memq (type-of c) cl-struct-eieio--class-tags) t) (eieio-class-un-autoload obj)) c)) (t (eieio--object-class obj)))) (c (eieio--slot-name-index class slot))) (if (not c) (if (setq c (eieio--class-slot-name-index class slot)) (aref (progn (aref class 9)) c) (slot-missing obj slot 'oref)) (progn (or (eieio-object-p obj) (signal 'wrong-type-argument (list 'eieio-object obj 'obj))) nil) (let ((value (aref obj c)) (class (closql--slot-get obj slot :closql-class)) (columns (closql--slot-get obj slot :closql-columns)) (db (closql--oref obj 'closql-database))) (cond (class (aset obj c (mapcar (function (lambda (row) (closql--remake-instance class db row))) (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i4)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-foreign-key) (closql--oref obj (eieio-oref-default obj 'closql-primary-key)) (eieio-oref-default class 'closql-primary-key))))) (columns (if (eq value eieio-unbound) (let* ((val (cl-coerce columns 'list)) (x757 (car val)) (x758 (cdr val))) (let ((select x758) (where x757)) (progn (setq value (emacsql db [:select $i1 :from $i2 :where (= $i3 $s4) :order-by [(asc $i3)]] (vconcat select) slot where (closql--oref obj (eieio-oref-default obj 'closql-primary-key)))) (aset obj c (if (= (length select) 1) (mapcar (function car) value) value))))) value)) (t (eieio-barf-if-slot-unbound value obj slot 'oref))))))
  closql-oref(#<epkg-wiki-package epkg-wiki-package-46f16d34> melpa-recipes)
  (if (closql-object--eieio-childp obj) (closql-oref obj slot) (funcall fn obj slot))
  eieio-oref--closql-oref(#f(compiled-function (obj slot) "Return the value in OBJ at SLOT in the object vector." #<bytecode 0x40f009cb>) #<epkg-wiki-package epkg-wiki-package-46f16d34> melpa-recipes)
  apply(eieio-oref--closql-oref #f(compiled-function (obj slot) "Return the value in OBJ at SLOT in the object vector." #<bytecode 0x40f009cb>) (#<epkg-wiki-package epkg-wiki-package-46f16d34> melpa-recipes))
  eieio-oref(#<epkg-wiki-package epkg-wiki-package-46f16d34> melpa-recipes)
  slot-boundp(#<epkg-wiki-package epkg-wiki-package-46f16d34> melpa-recipes)
  (if (slot-boundp obj slot) nil (closql--oset obj slot (closql-oref obj slot)))
  (let ((slot (car --dolist-tail--))) (setq slot (progn (or (and (memq (type-of slot) cl-struct-cl-slot-descriptor-tags) t) (signal 'wrong-type-argument (list 'cl-slot-descriptor slot))) (aref slot 1))) (if (slot-boundp obj slot) nil (closql--oset obj slot (closql-oref obj slot))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((slot (car --dolist-tail--))) (setq slot (progn (or (and (memq (type-of slot) cl-struct-cl-slot-descriptor-tags) t) (signal 'wrong-type-argument (list 'cl-slot-descriptor slot))) (aref slot 1))) (if (slot-boundp obj slot) nil (closql--oset obj slot (closql-oref obj slot))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- (eieio-class-slots (eieio--object-class obj)))) (while --dolist-tail-- (let ((slot (car --dolist-tail--))) (setq slot (progn (or (and (memq (type-of slot) cl-struct-cl-slot-descriptor-tags) t) (signal 'wrong-type-argument (list 'cl-slot-descriptor slot))) (aref slot 1))) (if (slot-boundp obj slot) nil (closql--oset obj slot (closql-oref obj slot))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (progn (let ((--dolist-tail-- (eieio-class-slots (eieio--object-class obj)))) (while --dolist-tail-- (let ((slot (car --dolist-tail--))) (setq slot (progn (or (and (memq (type-of slot) cl-struct-cl-slot-descriptor-tags) t) (signal 'wrong-type-argument (list 'cl-slot-descriptor slot))) (aref slot 1))) (if (slot-boundp obj slot) nil (closql--oset obj slot (closql-oref obj slot))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
  (closure (t) (obj) (progn (let ((--dolist-tail-- (eieio-class-slots (eieio--object-class obj)))) (while --dolist-tail-- (let ((slot (car --dolist-tail--))) (setq slot (progn (or (and (memq (type-of slot) cl-struct-cl-slot-descriptor-tags) t) (signal 'wrong-type-argument (list 'cl-slot-descriptor slot))) (aref slot 1))) (if (slot-boundp obj slot) nil (closql--oset obj slot (closql-oref obj slot))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))(#<epkg-wiki-package epkg-wiki-package-46f16d34>)
  apply((closure (t) (obj) (progn (let ((--dolist-tail-- (eieio-class-slots (eieio--object-class obj)))) (while --dolist-tail-- (let ((slot (car --dolist-tail--))) (setq slot (progn (or (and (memq (type-of slot) cl-struct-cl-slot-descriptor-tags) t) (signal 'wrong-type-argument (list 'cl-slot-descriptor slot))) (aref slot 1))) (if (slot-boundp obj slot) nil (closql--oset obj slot (closql-oref obj slot))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) #<epkg-wiki-package epkg-wiki-package-46f16d34> nil)
  closql--resolve-slots(#<epkg-wiki-package epkg-wiki-package-46f16d34>)
  (progn (closql--resolve-slots this))
  (if resolve (progn (closql--resolve-slots this)))
  (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this)
  (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this))
  (let* ((val (closql--extern-unbound row)) (x769 (car val)) (x770 (cdr val))) (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this)))
  (progn (let* ((val (closql--extern-unbound row)) (x769 (car val)) (x770 (cdr val))) (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this))))
  (closure (t) (class db row &optional resolve) (progn (let* ((val (closql--extern-unbound row)) (x769 (car val)) (x770 (cdr val))) (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this)))))(epkg-package #<epkg-database epkg-database-40d318b4> (wiki "dired+" "c634998e6111e04b187e4d1f5009df0457a29e84" "git@github:emacsmirror/emacswiki.org.git" "git@github.com:emacsmirror/dired-plus.git" "dired-plus" nil "dired+" nil nil nil "https://github.com/emacsmirror/emacswiki.org" "https://www.emacswiki.org/emacs/download/dired%2b.el" "https://github.com/emacsmirror/dired-plus" "https://emacswiki.org/DiredPlus" "GPL-2+" "19990319" "20171125" "Extensions to Dired" "Extensions to Dired.\n\n This file extends functionalities provided by standard GNU Emacs\n files `dired.el', `dired-aux.el', and `dired-x.el'.\n\n Key bindings changed.  Menus redefined.  `diredp-mouse-3-menu'\n popup menu added.  New commands.  Some commands enhanced.\n\n All of the new functions, variables, and faces defined here have\n the prefix `diredp-' (for Dired Plus) in their names.\n\n\n Wraparound Navigation\n ---------------------\n\n In vanilla Dired, `dired-next-marked-file' (`M-}' or `* C-n') and\n `dired-previous-marked-file' (`M-{' or `* C-p') wrap around when\n you get to the end or the beginning of the Dired buffer.  Handy.\n\n But the other navigation commands do not wrap around.  In `Dired+'\n they do, provided option `diredp-wrap-around-flag' is non-nil,\n which it is by default.  This means the following commands:\n\n   `diredp-next-line'     - `n', `C-n', `down', `SPC'\n   `diredp-previous-line' - `p', `C-p', `up'\n   `diredp-next-dirline'  - `>'\n   `diredp-prev-dirline'  - `<'\n   `diredp-next-subdir'   - `C-M-n'\n   `diredp-prev-subdir'   - `C-M-p'\n\n\n Font-Lock Highlighting\n ----------------------\n\n If you want a maximum or minimum fontification for Dired mode,\n then customize option `font-lock-maximum-decoration'.  If you want\n a different fontification level for Dired than for other modes,\n you can do this too by customizing\n `font-lock-maximize-decoration'.\n\n A few of the user options defined here have an effect on\n font-locking, and this effect is established only when Dired+ is\n loaded, which defines the font-lock keywords for Dired.  These\n options include `diredp-compressed-extensions',\n `diredp-ignore-compressed-flag', and `dired-omit-extensions'.\n This means that if you change the value of such an option then you\n will see the change only in a new Emacs session.\n\n (You can see the effect in the same session if you use `C-M-x' on\n the `defvar' sexp for `diredp-font-lock-keywords-1', and then you\n toggle font-lock off and back on.)\n\n\n Act on All Files\n ----------------\n\n Most of the commands (such as `C' and `M-g') that operate on the\n marked files have the added feature here that multiple `C-u' use\n not the files that are marked or the next or previous N files, but\n *all* of the files in the Dired buffer.  Just what \"all\" files\n means changes with the number of `C-u', as follows:\n\n   `C-u C-u'         - Use all files present, but no directories.\n   `C-u C-u C-u'     - Use all files and dirs except `.' and `..'.\n   `C-u C-u C-u C-u' - use all files and dirs, `.' and `..'.\n\n   (More than four `C-u' act the same as two.)\n\n This feature can be particularly useful when you have a Dired\n buffer with files chosen from multiple directories.\n\n Note that in most cases this behavior is described only in the doc\n string of function `dired-get-marked-files'.  It is generally\n *not* described in the doc strings of the various commands,\n because that would require redefining each command separately\n here.  Instead, we redefine macro `dired-map-over-marks' and\n function `dired-get-filename' in order to achieve this effect.\n\n Commands such as `dired-do-load' for which it does not make sense\n to act on directories generally treat more than two `C-u' the same\n as two `C-u'.\n\n Exceptions to the general behavior described here are called out\n in the doc strings.  In particular, the behavior of a prefix arg\n for `dired-do-query-replace-regexp' is different, so that you can\n use it also to specify word-delimited replacement.\n\n\n Act on Marked (or All) Files Here and Below\n -------------------------------------------\n\n The prefix argument behavior just described does not apply to the\n `diredp-*-recursive' commands.  These commands act on the marked\n files in the current Dired buffer or on all files in the directory\n if none are marked.\n\n But these commands also handle marked subdirectories recursively,\n in the same way.  That is, they act also on the marked files in\n any marked subdirectories, found recursively.  If there is no\n Dired buffer for a given marked subdirectory then all of its files\n and subdirs are acted on.\n\n With a prefix argument, all marks are ignored.  The commands act\n on all files in the current Dired buffer and all of its\n subdirectories, recursively.\n\n All of the `diredp-*-recursive' commands are on prefix key `M-+',\n and they are available on submenu `Marked Here and Below' of the\n `Multiple' menu-bar menu.\n\n If you use library `Icicles' then you have these additional\n commands/keys that act recursively on marked files.  They are in\n the `Icicles' submenu of menu `Multiple' > `Marked Here and\n Below'.\n\n * `M-+ M-s M-s' or `M-s M-s m' - Use Icicles search (and its\n                 on-demand replace) on the marked files.\n\n * Save the names of the marked files:\n\n   `M-+ C-M->' - Save as a completion set, for use during\n                 completion (e.g. with `C-x C-f').\n\n   `M-+ C->'   - Add marked names to the names in the current saved\n                 completion set.\n\n   `M-+ C-}'   - Save persistently to an Icicles cache file, for\n                 use during completion in another session.\n\n   `icicle-dired-save-marked-to-fileset-recursive' - Like `M-+\n                 C-}', but save persistently to an Emacs fileset.\n\n   `M-+ C-M-}' - Save to a Lisp variable.\n\n\n In the other direction, if you have a saved set of file names then\n you can use `C-M-<' (`icicle-dired-chosen-files-other-window') in\n Dired to open a Dired buffer for just those files.  So you can\n mark some files and subdirs in a hierarchy of Dired buffers, use\n `M-+ C-}' to save their names persistently, then later use `C-{'\n to retrieve them, and `C-M-<' (in Dired) to open Dired on them.\n\n\n Image Files\n -----------\n\n `Dired+' provides several enhancements regarding image files.\n Most of these require standard library `image-dired.el'.  One of\n them, command `diredp-do-display-images', which displays all of\n the marked image files, requires standard library `image-file.el'.\n\n `Dired+' loads these libraries automatically, if available, which\n means an Emacs version that supports image display (Emacs 22 or\n later).  (You must of course have installed whatever else your\n Emacs version needs to display images.)\n\n Besides command `diredp-do-display-images', see the commands whose\n names have prefix `diredp-image-'.  And see options\n `diredp-image-preview-in-tooltip' and\n `diredp-auto-focus-frame-for-thumbnail-tooltip-flag'.\n   \n\n Inserted Subdirs, Multiple Dired Buffers, Files from Anywhere,...\n -----------------------------------------------------------------\n\n These three standard Dired features are worth pointing out.  The\n third in particular is little known because (a) it is limited in\n vanilla Dired and (b) you cannot use it interactively.\n\n  * You can pass a glob pattern with wildcards to `dired'\n    interactively, as the file name.\n\n  * You can insert multiple subdirectory listings into a single\n    Dired buffer using `i' on each subdir line.  Use `C-u i' to\n    specify `ls' switches.  Specifying switch `R' inserts the\n    inserted subdirectory's subdirs also, recursively.  You can\n    also use `i' to bounce between a subdirectory line and its\n    inserted-listing header line.  You can delete a subdir listing\n    using `C-u k' on its header line.  You can hide/show an\n    inserted subdir using `$'.  You can use `C-_' to undo any of\n    these operations.\n\n  * You can open a Dired buffer for an arbitrary set of files from\n    different directories.  You do this by invoking `dired'\n    non-interactively, passing it a cons of a Dired buffer name and\n    the file names.  Relative file names are interpreted relative\n    to the value of `default-directory'.  Use absolute file names\n    when appropriate.\n\n `Dired+' makes these features more useful.\n\n `$' is improved: It is a simple toggle - it does not move the\n cursor forward.  `M-$' advances the cursor, in addition to\n toggling like `$'.  `C-u $' does hide/show all (what `M-$' does in\n vanilla Dired).\n\n `i' is improved in these ways:\n\n  * Once a subdir has been inserted, `i' bounces between the subdir\n    listing and the subdir line in the parent listing.  If the\n    parent dir is hidden, then `i' from a subdir opens the parent\n    listing so it can move to the subdir line there (Emacs 24+).\n\n  * Vanilla Dired lets you create a Dired listing with files and\n    directories from arbitrary locations, but you cannot insert\n    (`i') such a directory if it is not in the same directory tree\n    as the `default-directory' used to create the Dired buffer.\n    `Dired+' removes this limitation; you can insert any non-root\n    directories (that is, not `/', `c:/', etc.).\n\n `Dired+' lets you create Dired buffers that contain arbitrary\n files and directories interactively, not just using Lisp.  Just\n use a non-positive prefix arg (e.g., `C--') when invoking `dired'.\n\n You are then prompted for the Dired buffer name (anything you\n like, not necessarily a directory name) and the individual files\n and directories that you want listed.\n\n A non-negative prefix arg still prompts you for the `ls' switches\n to use.  (So `C-0' does both: prompts for `ls' switches and for\n the Dired buffer name and the files to list.)\n\n `Dired+' adds commands for combining and augmenting Dired\n listings:\n\n  * `diredp-add-to-dired-buffer', bound globally to `C-x D A', lets\n    you add arbitrary file and directory names to an existing Dired\n    buffer.\n\n  * `diredp-dired-union', bound globally to `C-x D U', lets you\n    take the union of multiple Dired listings, or convert an\n    ordinary Dired listing to an explicit list of absolute file\n    names.  With a non-positive prefix arg, you can add extra file\n    and directory names, just as for `diredp-add-to-dired-buffer'.\n\n You can optionally add a header line to a Dired buffer using\n toggle command `diredp-breadcrumbs-in-header-line-mode'.  (A\n header line remains at the top of the window - no need to scroll\n to see it.)  If you want to show the header line automatically in\n all Dired buffers, you can do this:\n\n   (add-hook 'dired-before-readin-hook\n             'diredp-breadcrumbs-in-header-line-mode)\n\n Some other libraries, such as `Bookmark+' and `Icicles', make it\n easy to create or re-create Dired buffers that list specific files\n and have a particular set of markings.  `Bookmark+' records Dired\n buffers persistently, remembering `ls' switches, markings, subdir\n insertions, and hidden subdirs.  If you use `Icicles' then `dired'\n is a multi-command: you can open multiple Dired buffers with one\n `dired' invocation.\n\n Dired can help you manage projects.  You might have multiple Dired\n buffers with quite specific contents.  You might have some\n subdirectories inserted in the same Dired buffer, and you might\n have separate Dired buffers for some subdirectories.  Sometimes it\n is useful to have both for the same subdirectory.  And sometimes\n it is useful to move from one presentation to the other.\n\n This is one motivation for the `Dired+' `diredp-*-recursive'\n commands, which act on the marked files in marked subdirectories,\n recursively.  In one sense, these commands are an alternative to\n using a single Dired buffer with inserted subdirectories.  They\n let you use the same operations on the files in a set of Dired\n directories, without inserting those directories into an ancestor\n Dired buffer.\n\n You can use command `diredp-dired-inserted-subdirs' to open a\n separate Dired buffer for each of the subdirs that is inserted in\n the current Dired buffer.  Markings and Dired switches are\n preserved.\n\n In the opposite direction, if you use `Icicles' then you can use\n multi-command `icicle-dired-insert-as-subdir', which lets you\n insert any number of directories you choose interactively into a\n Dired ancestor directory listing.  If a directory you choose to\n insert already has its own Dired buffer, then its markings and\n switches are preserved for the new, subdirectory listing in the\n ancestor Dired buffer.\n\n\n Hide/Show Details\n -----------------\n\n Starting with Emacs 24.4, listing details are hidden by default.\n Note that this is different from the vanilla Emacs behavior, which\n is to show details by default.\n\n Use `(' anytime to toggle this hiding.  You can use option\n `diredp-hide-details-initially-flag' to change the default/initial\n state.  See also option `diredp-hide-details-propagate-flag'.\n\n NOTE: If you do not want to hide details initially then you must\n       either (1) change `diredp-hide-details-initially-flag' using\n       Customize (recommended) or (2) set it to `nil' (e.g., using\n       `setq') *BEFORE* loading `dired+.el'.\n\n If you have an Emacs version older than 24.4, you can use library\n `dired-details+.el' (plus `dired-details.el') to get similar\n behavior.\n\n\n Mode-Line\n ---------\n\n The number of files and dirs that are marked with `*', and the\n number that are flagged for deletion (marked `D') are indicated in\n the mode-line.  When the cursor is on such a line the indication\n tells you how many more there are.  For example, if the cursor is\n on the line of the third file that is marked `*', and there are\n seven of them total, then the mode-line shows `3/7*'.\n\n The mode-line also indicates, for the current listing (which could\n be a subdir listing), how many files and dirs are listed.  If the\n cursor is on the 27th file in a listing of 78 files then the\n mode-line shows 27/78.\n\n For counting files and dirs in a listing, option\n `diredp-count-.-and-..-flag' controls whether to count the lines\n for `.' and `..'.  By default it is nil, meaning they are not\n counted.\n\n\n If You Use Dired+ in Terminal Mode\n ----------------------------------\n\n By default, Dired+ binds some keys that can be problematic in some\n terminals when you use Emacs in terminal mode (i.e., `emacs -nw').\n This is controlled by option\n `diredp-bind-problematic-terminal-keys'.\n\n In particular, keys that use modifiers Meta and Shift together can\n be problematic.  If you use Dired+ in terminal mode, and you find\n that your terminal does not support such keys then you might want\n to customize the option to set the value to `nil', and then bind\n the commands to some other keys, which your terminal supports.\n \n Regardless of the option value, unless Emacs is in terminal mode\n the keys are bound by default.  The problematic keys used by\n Dired+ include these:\n\n   `M-M'   (aka `M-S-m')   - `diredp-chmod-this-file'\n   `M-O'   (aka `M-S-o')   - `diredp-chown-this-file'\n   `M-T'   (aka `M-S-t')   - `diredp-touch-this-file'\n   `C-M-B' (aka `C-M-S-b') - `diredp-do-bookmark-in-bookmark-file'\n   `C-M-G' (aka `C-M-S-g') - `diredp-chgrp-this-file'\n   `C-M-R' (aka `C-M-S-r') - `diredp-toggle-find-file-reuse-dir'\n   `C-M-T' (aka `C-M-S-t') - `dired-do-touch'\n   `M-+ M-B'   (aka `M-+ M-S-b') -\n       `diredp-do-bookmark-dirs-recursive'\n   `M-+ C-M-B' (aka `M-+ C-M-S-b') -\n       `diredp-do-bookmark-in-bookmark-file-recursive'\n   `M-+ C-M-T' (aka `M-+ C-M-S-t') - `diredp-do-touch-recursive'\n\n (See also `(info \"(org) TTY keys\")' for more information about\n keys that can be problematic in terminal mode.)\n\n\n Faces defined here:\n\n   `diredp-autofile-name', `diredp-compressed-file-suffix',\n   `diredp-date-time', `diredp-deletion',\n   `diredp-deletion-file-name', `diredp-dir-heading',\n   `diredp-dir-priv', `diredp-exec-priv', `diredp-executable-tag',\n   `diredp-file-name', `diredp-file-suffix', `diredp-flag-mark',\n   `diredp-flag-mark-line', `diredp-get-file-or-dir-name',\n   `diredp-ignored-file-name', `diredp-link-priv',\n   `diredp-mode-line-flagged', `diredp-mode-line-marked'\n   `diredp-no-priv', `diredp-number', `diredp-other-priv',\n   `diredp-rare-priv', `diredp-read-priv', `diredp-symlink',\n   `diredp-tagged-autofile-name', `diredp-write-priv'.\n\n Commands defined here:\n\n   `diredp-add-to-dired-buffer', `diredp-add-to-this-dired-buffer',\n   `diredp-do-apply-function',\n   `diredp-do-apply-function-recursive',\n   `diredp-async-shell-command-this-file',\n   `diredp-bookmark-this-file',\n   `diredp-breadcrumbs-in-header-line-mode' (Emacs 22+),\n   `diredp-byte-compile-this-file', `diredp-capitalize',\n   `diredp-capitalize-recursive', `diredp-capitalize-this-file',\n   `diredp-chgrp-this-file', `diredp-chmod-this-file',\n   `diredp-chown-this-file',\n   `diredp-compilation-files-other-window' (Emacs 24+),\n   `diredp-compress-this-file',\n   `diredp-copy-filename-as-kill-recursive',\n   `diredp-copy-tags-this-file', `diredp-copy-this-file',\n   `diredp-decrypt-this-file', `diredp-delete-this-file',\n   `diredp-describe-autofile', `diredp-describe-file',\n   `diredp-describe-marked-autofiles', `diredp-describe-mode',\n   `diredp-dired-for-files', `diredp-dired-for-files-other-window',\n   `diredp-dired-inserted-subdirs', `diredp-dired-plus-help',\n   `diredp-dired-recent-dirs',\n   `diredp-dired-recent-dirs-other-window',\n   `diredp-dired-this-subdir', `diredp-dired-union',\n   `diredp-do-async-shell-command-recursive', `diredp-do-bookmark',\n   `diredp-do-bookmark-dirs-recursive',\n   `diredp-do-bookmark-in-bookmark-file',\n   `diredp-do-bookmark-in-bookmark-file-recursive',\n   `diredp-do-bookmark-recursive', `diredp-do-chmod-recursive',\n   `diredp-do-chgrp-recursive', `diredp-do-chown-recursive',\n   `diredp-do-copy-recursive', `diredp-do-decrypt-recursive',\n   `diredp-do-delete-recursive', `diredp-do-display-images' (Emacs\n   22+), `diredp-do-encrypt-recursive',\n   `diredp-do-find-marked-files-recursive', `diredp-do-grep',\n   `diredp-do-grep-recursive', `diredp-do-hardlink-recursive',\n   `diredp-do-isearch-recursive',\n   `diredp-do-isearch-regexp-recursive',\n   `diredp-do-move-recursive', `diredp-do-paste-add-tags',\n   `diredp-do-paste-replace-tags', `diredp-do-print-recursive',\n   `diredp-do-query-replace-regexp-recursive',\n   `diredp-do-redisplay-recursive',\n   `diredp-do-relsymlink-recursive', `diredp-do-remove-all-tags',\n   `diredp-do-search-recursive', `diredp-do-set-tag-value',\n   `diredp-do-shell-command-recursive', `diredp-do-sign-recursive',\n   `diredp-do-symlink-recursive', `diredp-do-tag',\n   `diredp-do-touch-recursive', `diredp-do-untag',\n   `diredp-do-verify-recursive', `diredp-downcase-recursive',\n   `diredp-downcase-this-file', `diredp-ediff',\n   `diredp-encrypt-this-file', `diredp-fileset',\n   `diredp-fileset-other-window', `diredp-find-a-file',\n   `diredp-find-a-file-other-frame',\n   `diredp-find-a-file-other-window',\n   `diredp-find-file-other-frame',\n   `diredp-find-file-reuse-dir-buffer',\n   `diredp-find-line-file-other-window',\n   `diredp-flag-region-files-for-deletion',\n   `diredp-grepped-files-other-window', `diredp-grep-this-file',\n   `diredp-hardlink-this-file', `diredp-highlight-autofiles-mode',\n   `diredp-image-dired-comment-file',\n   `diredp-image-dired-comment-files-recursive',\n   `diredp-image-dired-copy-with-exif-name',\n   `diredp-image-dired-create-thumb',\n   `diredp-image-dired-delete-tag',\n   `diredp-image-dired-delete-tag-recursive',\n   `diredp-image-dired-display-thumb',\n   `diredp-image-dired-display-thumbs-recursive',\n   `diredp-image-dired-edit-comment-and-tags',\n   `diredp-image-dired-tag-file',\n   `diredp-image-dired-tag-files-recursive',\n   `diredp-image-show-this-file', `diredp-insert-as-subdir',\n   `diredp-insert-subdirs', `diredp-insert-subdirs-recursive',\n   `diredp-kill-this-tree', `diredp-list-marked-recursive',\n   `diredp-load-this-file', `diredp-mark-autofiles',\n   `diredp-marked', `diredp-marked-other-window',\n   `diredp-marked-recursive',\n   `diredp-marked-recursive-other-window',\n   `diredp-mark-extension-recursive',\n   `diredp-mark-files-regexp-recursive',\n   `diredp-mark-files-tagged-all', `diredp-mark-files-tagged-none',\n   `diredp-mark-files-tagged-not-all',\n   `diredp-mark-files-tagged-some',\n   `diredp-mark-files-tagged-regexp', `diredp-mark-region-files',\n   `diredp-mark/unmark-autofiles', `diredp-mark/unmark-extension',\n   `diredp-mouse-3-menu', `diredp-mouse-backup-diff',\n   `diredp-mouse-copy-tags', `diredp-mouse-describe-autofile',\n   `diredp-mouse-describe-file', `diredp-mouse-diff',\n   `diredp-mouse-do-bookmark', `diredp-mouse-do-byte-compile',\n   `diredp-mouse-do-chgrp', `diredp-mouse-do-chmod',\n   `diredp-mouse-do-chown', `diredp-mouse-do-compress',\n   `diredp-mouse-do-copy', `diredp-mouse-do-delete',\n   `diredp-mouse-do-grep', `diredp-mouse-do-hardlink',\n   `diredp-mouse-do-load', `diredp-mouse-do-print',\n   `diredp-mouse-do-remove-all-tags', `diredp-mouse-do-rename',\n   `diredp-mouse-do-set-tag-value',\n   `diredp-mouse-do-shell-command', `diredp-mouse-do-symlink',\n   `diredp-mouse-do-tag', `diredp-mouse-do-untag',\n   `diredp-mouse-downcase', `diredp-mouse-ediff',\n   `diredp-mouse-find-line-file-other-window',\n   `diredp-mouse-find-file-other-frame',\n   `diredp-mouse-find-file-reuse-dir-buffer',\n   `diredp-mouse-flag-file-deletion', `diredp-mouse-mark',\n   `diredp-mouse-mark-region-files', `diredp-mouse-mark/unmark',\n   `diredp-mouse-unmark', `diredp-mouse-upcase',\n   `diredp-mouse-view-file',\n   `diredp-multiple-w32-browser-recursive',\n   `diredp-nb-marked-in-mode-name', `diredp-next-dirline',\n   `diredp-next-line', `diredp-next-subdir', `diredp-omit-marked',\n   `diredp-omit-unmarked', `diredp-paste-add-tags-this-file',\n   `diredp-paste-replace-tags-this-file', `diredp-prev-dirline',\n   `diredp-previous-line', `diredp-prev-subdir',\n   `diredp-print-this-file', `diredp-relsymlink-this-file',\n   `diredp-remove-all-tags-this-file', `diredp-rename-this-file',\n   `diredp-send-bug-report',\n   `diredp-set-bookmark-file-bookmark-for-marked',\n   `diredp-set-bookmark-file-bookmark-for-marked-recursive',\n   `diredp-set-tag-value-this-file',\n   `diredp-shell-command-this-file', `diredp-show-metadata',\n   `diredp-show-metadata-for-marked', `diredp-sign-this-file',\n   `diredp-symlink-this-file', `diredp-tag-this-file',\n   `diredp-toggle-find-file-reuse-dir',\n   `diredp-toggle-marks-in-region', `diredp-touch-this-file',\n   `diredp-unmark-autofiles', `diredp-unmark-files-tagged-all',\n   `diredp-unmark-files-tagged-none',\n   `diredp-unmark-files-tagged-not-all',\n   `diredp-unmark-files-tagged-some', `diredp-unmark-region-files',\n   `diredp-untag-this-file', `diredp-upcase-recursive',\n   `diredp-up-directory', `diredp-up-directory-reuse-dir-buffer',\n   `diredp-upcase-this-file', `diredp-verify-this-file',\n   `diredp-w32-drives', `diredp-w32-drives-mode',\n   `global-dired-hide-details-mode' (Emacs 24.4+),\n   `toggle-diredp-find-file-reuse-dir'.\n\n User options defined here:\n\n   `diredp-auto-focus-frame-for-thumbnail-tooltip-flag',\n   `diredp-bind-problematic-terminal-keys',\n   `diredp-compressed-extensions', `diredp-count-.-and-..-flag'\n   (Emacs 22+), `diredp-dwim-any-frame-flag' (Emacs 22+),\n   `diredp-image-preview-in-tooltip', `diff-switches',\n   `diredp-hide-details-initially-flag' (Emacs 24.4+),\n   `diredp-highlight-autofiles-mode',\n   `diredp-hide-details-propagate-flag' (Emacs 24.4+),\n   `diredp-ignore-compressed-flag',\n   `diredp-image-show-this-file-use-frame-flag' (Emacs 22+),\n   `diredp-max-frames', `diredp-prompt-for-bookmark-prefix-flag',\n   `diredp-w32-local-drives', `diredp-wrap-around-flag'.\n\n Non-interactive functions defined here:\n\n   `derived-mode-p' (Emacs < 22), `diredp-all-files',\n   `diredp-ancestor-dirs', `diredp-bookmark',\n   `diredp-create-files-non-directory-recursive',\n   `diredp-delete-dups', `diredp-directories-within',\n   `diredp-dired-plus-description',\n   `diredp-dired-plus-description+links',\n   `diredp-dired-plus-help-link', `diredp-dired-union-1',\n   `diredp-dired-union-interactive-spec',\n   `diredp-display-graphic-p', `diredp-display-image' (Emacs 22+),\n   `diredp-do-chxxx-recursive', `diredp-do-create-files-recursive',\n   `diredp-do-grep-1', `diredp-ensure-bookmark+',\n   `diredp-ensure-mode', `diredp-existing-dired-buffer-p',\n   `diredp-fewer-than-2-files-p', `diredp-fileset-1',\n   `diredp-find-a-file-read-args',\n   `diredp-file-for-compilation-hit-at-point' (Emacs 24+),\n   `diredp-files-within', `diredp-files-within-1',\n   `diredp-fit-frame-unless-buffer-narrowed' (Emacs 24.4+),\n   `diredp-get-confirmation-recursive', `diredp-get-files',\n   `diredp-get-files-for-dir', `diredp-get-subdirs',\n   `diredp-hide-details-if-dired' (Emacs 24.4+),\n   `diredp-hide/show-details' (Emacs 24.4+),\n   `diredp-highlight-autofiles', `diredp-image-dired-required-msg',\n   `diredp-get-image-filename', `diredp-internal-do-deletions',\n   `diredp-list-files', `diredp-looking-at-p',\n   `diredp-make-find-file-keys-reuse-dirs',\n   `diredp-make-find-file-keys-not-reuse-dirs', `diredp-maplist',\n   `diredp-marked-here', `diredp-mark-files-tagged-all/none',\n   `diredp-mark-files-tagged-some/not-all',\n   `diredp-nonempty-region-p', `diredp-parent-dir',\n   `diredp-paste-add-tags', `diredp-paste-replace-tags',\n   `diredp-read-bookmark-file-args', `diredp-read-include/exclude',\n   `diredp-read-regexp', `diredp-recent-dirs',\n   `diredp-refontify-buffer', `diredp-remove-if',\n   `diredp-remove-if-not', `diredp--reuse-dir-buffer-helper',\n   `diredp-root-directory-p', `diredp-set-header-line-breadcrumbs'\n   (Emacs 22+), `diredp-set-tag-value', `diredp-set-union',\n   `diredp--set-up-font-locking', `diredp-string-match-p',\n   `diredp-tag', `diredp-this-file-marked-p',\n   `diredp-this-file-unmarked-p', `diredp-this-subdir',\n   `diredp-untag', `diredp-y-or-n-files-p'.\n\n Variables defined here:\n\n   `diredp-bookmark-menu', `diredp-file-line-overlay',\n   `diredp-files-within-dirs-done', `diredp-font-lock-keywords-1',\n   `diredp-hide-details-last-state' (Emacs 24.4+),\n   `diredp-hide-details-toggled' (Emacs 24.4+),\n   `diredp-hide/show-menu', `diredp-images-recursive-menu',\n   `diredp-list-files-map', `diredp-loaded-p',\n   `diredp-marks-recursive-menu', `diredp-menu-bar-dir-menu',\n   `diredp-menu-bar-marks-menu', `diredp-menu-bar-multiple-menu',\n   `diredp-menu-bar-regexp-menu', `diredp-menu-bar-single-menu',\n   `diredp-multiple-bookmarks-menu', `diredp-multiple-delete-menu',\n   `diredp-multiple-dired-menu', `diredp-multiple-images-menu',\n   `diredp-multiple-encryption-menu',\n   `diredp-multiple-move-copy-link-menu',\n   `diredp-multiple-omit-menu', `diredp-multiple-recursive-menu',\n   `diredp-multiple-rename-menu', `diredp-multiple-search-menu',\n   `diredp-navigate-menu', `diredp-regexp-recursive-menu',\n   `diredp-re-no-dot', `diredp-single-bookmarks-menu',\n   `diredp-single-encryption-menu', `diredp-single-image-menu',\n   `diredp-single-move-copy-link-menu', `diredp-single-open-menu',\n   `diredp-single-rename-menu', `diredp-w32-drives-mode-map'.\n\n Macros defined here:\n\n   `diredp-with-help-window'.\n\n\n ***** NOTE: The following macros defined in `dired.el' have\n             been REDEFINED HERE:\n\n `dired-map-over-marks'    - Treat multiple `C-u' specially.\n `dired-mark-if'           - Better initial msg - Emacs bug #8523.\n\n\n ***** NOTE: The following functions defined in `dired.el' have\n             been REDEFINED or ADVISED HERE:\n\n `dired'                   - Handle non-positive prefix arg.\n `dired-do-delete'         - Display message to warn that marked,\n                             not flagged, files will be deleted.\n `dired-do-flagged-delete' - Display message to warn that flagged,\n                             not marked, files will be deleted.\n `dired-dwim-target-directory' - Uses `diredp-dwim-any-frame-flag'.\n `dired-find-file'         - Allow `.' and `..' (Emacs 20 only).\n `dired-get-filename'      - Test `./' and `../' (like `.', `..').\n `dired-goto-file'         - Fix Emacs bug #7126.\n                             Remove `/' from dir before compare.\n                             (Emacs < 24 only.)\n `dired-hide-details-mode' - Respect new user options:\n                             * `diredp-hide-details-initially-flag'\n                             * `diredp-hide-details-propagate-flag'\n                             (Emacs 24.4+)\n `dired-insert-directory'  - Compute WILDCARD arg for\n                             `insert-directory' for individual file\n                             (don't just use nil). (Emacs 23+, and\n                             only for MS Windows)\n `dired-insert-set-properties' - `mouse-face' on whole line.\n `dired-mark-files-regexp' - Add regexp to `regexp-search-ring'.\n                             More matching possibilities.\n                             Added optional arg LOCALP.\n `dired-mark-pop-up'       - Delete the window or frame popped up,\n                             afterward, and bury its buffer. Do not\n                             show a menu bar for pop-up frame.\n `dired-other-frame'       - Handle non-positive prefix arg.\n `dired-other-window'      - Handle non-positive prefix arg.\n `dired-pop-to-buffer'     - Put window point at bob (bug #12281).\n                             (Emacs 22-24.1)\n `dired-read-dir-and-switches' - Non-positive prefix arg behavior.\n" unbound unbound unbound unbound unbound unbound unbound unbound unbound nil nil 84474) t)
  apply((closure (t) (class db row &optional resolve) (progn (let* ((val (closql--extern-unbound row)) (x769 (car val)) (x770 (cdr val))) (let ((values x770) (abbrev x769)) (let* ((class-sym (closql--expand-abbrev class abbrev)) (this (if (fboundp 'record) (let* ((class-obj (eieio--class-object class-sym)) (obj (copy-sequence (progn (aref class-obj 10))))) (setq values (apply (function vector) (cons db values))) (let ((--dotimes-limit-- (length (progn (aref class-obj 4)))) (--dotimes-counter-- 0)) (while (< --dotimes-counter-- --dotimes-limit--) (let ((i --dotimes-counter--)) (aset obj (1+ i) (aref values i))) (setq --dotimes-counter-- (1+ --dotimes-counter--)))) obj) (vconcat (list class-sym db) values)))) (if resolve (progn (closql--resolve-slots this))) this))))) epkg-package (#<epkg-database epkg-database-40d318b4> (wiki "dired+" "c634998e6111e04b187e4d1f5009df0457a29e84" "git@github:emacsmirror/emacswiki.org.git" "git@github.com:emacsmirror/dired-plus.git" "dired-plus" nil "dired+" nil nil nil "https://github.com/emacsmirror/emacswiki.org" "https://www.emacswiki.org/emacs/download/dired%2b.el" "https://github.com/emacsmirror/dired-plus" "https://emacswiki.org/DiredPlus" "GPL-2+" "19990319" "20171125" "Extensions to Dired" "Extensions to Dired.\n\n This file extends functionalities provided by standard GNU Emacs\n files `dired.el', `dired-aux.el', and `dired-x.el'.\n\n Key bindings changed.  Menus redefined.  `diredp-mouse-3-menu'\n popup menu added.  New commands.  Some commands enhanced.\n\n All of the new functions, variables, and faces defined here have\n the prefix `diredp-' (for Dired Plus) in their names.\n\n\n Wraparound Navigation\n ---------------------\n\n In vanilla Dired, `dired-next-marked-file' (`M-}' or `* C-n') and\n `dired-previous-marked-file' (`M-{' or `* C-p') wrap around when\n you get to the end or the beginning of the Dired buffer.  Handy.\n\n But the other navigation commands do not wrap around.  In `Dired+'\n they do, provided option `diredp-wrap-around-flag' is non-nil,\n which it is by default.  This means the following commands:\n\n   `diredp-next-line'     - `n', `C-n', `down', `SPC'\n   `diredp-previous-line' - `p', `C-p', `up'\n   `diredp-next-dirline'  - `>'\n   `diredp-prev-dirline'  - `<'\n   `diredp-next-subdir'   - `C-M-n'\n   `diredp-prev-subdir'   - `C-M-p'\n\n\n Font-Lock Highlighting\n ----------------------\n\n If you want a maximum or minimum fontification for Dired mode,\n then customize option `font-lock-maximum-decoration'.  If you want\n a different fontification level for Dired than for other modes,\n you can do this too by customizing\n `font-lock-maximize-decoration'.\n\n A few of the user options defined here have an effect on\n font-locking, and this effect is established only when Dired+ is\n loaded, which defines the font-lock keywords for Dired.  These\n options include `diredp-compressed-extensions',\n `diredp-ignore-compressed-flag', and `dired-omit-extensions'.\n This means that if you change the value of such an option then you\n will see the change only in a new Emacs session.\n\n (You can see the effect in the same session if you use `C-M-x' on\n the `defvar' sexp for `diredp-font-lock-keywords-1', and then you\n toggle font-lock off and back on.)\n\n\n Act on All Files\n ----------------\n\n Most of the commands (such as `C' and `M-g') that operate on the\n marked files have the added feature here that multiple `C-u' use\n not the files that are marked or the next or previous N files, but\n *all* of the files in the Dired buffer.  Just what \"all\" files\n means changes with the number of `C-u', as follows:\n\n   `C-u C-u'         - Use all files present, but no directories.\n   `C-u C-u C-u'     - Use all files and dirs except `.' and `..'.\n   `C-u C-u C-u C-u' - use all files and dirs, `.' and `..'.\n\n   (More than four `C-u' act the same as two.)\n\n This feature can be particularly useful when you have a Dired\n buffer with files chosen from multiple directories.\n\n Note that in most cases this behavior is described only in the doc\n string of function `dired-get-marked-files'.  It is generally\n *not* described in the doc strings of the various commands,\n because that would require redefining each command separately\n here.  Instead, we redefine macro `dired-map-over-marks' and\n function `dired-get-filename' in order to achieve this effect.\n\n Commands such as `dired-do-load' for which it does not make sense\n to act on directories generally treat more than two `C-u' the same\n as two `C-u'.\n\n Exceptions to the general behavior described here are called out\n in the doc strings.  In particular, the behavior of a prefix arg\n for `dired-do-query-replace-regexp' is different, so that you can\n use it also to specify word-delimited replacement.\n\n\n Act on Marked (or All) Files Here and Below\n -------------------------------------------\n\n The prefix argument behavior just described does not apply to the\n `diredp-*-recursive' commands.  These commands act on the marked\n files in the current Dired buffer or on all files in the directory\n if none are marked.\n\n But these commands also handle marked subdirectories recursively,\n in the same way.  That is, they act also on the marked files in\n any marked subdirectories, found recursively.  If there is no\n Dired buffer for a given marked subdirectory then all of its files\n and subdirs are acted on.\n\n With a prefix argument, all marks are ignored.  The commands act\n on all files in the current Dired buffer and all of its\n subdirectories, recursively.\n\n All of the `diredp-*-recursive' commands are on prefix key `M-+',\n and they are available on submenu `Marked Here and Below' of the\n `Multiple' menu-bar menu.\n\n If you use library `Icicles' then you have these additional\n commands/keys that act recursively on marked files.  They are in\n the `Icicles' submenu of menu `Multiple' > `Marked Here and\n Below'.\n\n * `M-+ M-s M-s' or `M-s M-s m' - Use Icicles search (and its\n                 on-demand replace) on the marked files.\n\n * Save the names of the marked files:\n\n   `M-+ C-M->' - Save as a completion set, for use during\n                 completion (e.g. with `C-x C-f').\n\n   `M-+ C->'   - Add marked names to the names in the current saved\n                 completion set.\n\n   `M-+ C-}'   - Save persistently to an Icicles cache file, for\n                 use during completion in another session.\n\n   `icicle-dired-save-marked-to-fileset-recursive' - Like `M-+\n                 C-}', but save persistently to an Emacs fileset.\n\n   `M-+ C-M-}' - Save to a Lisp variable.\n\n\n In the other direction, if you have a saved set of file names then\n you can use `C-M-<' (`icicle-dired-chosen-files-other-window') in\n Dired to open a Dired buffer for just those files.  So you can\n mark some files and subdirs in a hierarchy of Dired buffers, use\n `M-+ C-}' to save their names persistently, then later use `C-{'\n to retrieve them, and `C-M-<' (in Dired) to open Dired on them.\n\n\n Image Files\n -----------\n\n `Dired+' provides several enhancements regarding image files.\n Most of these require standard library `image-dired.el'.  One of\n them, command `diredp-do-display-images', which displays all of\n the marked image files, requires standard library `image-file.el'.\n\n `Dired+' loads these libraries automatically, if available, which\n means an Emacs version that supports image display (Emacs 22 or\n later).  (You must of course have installed whatever else your\n Emacs version needs to display images.)\n\n Besides command `diredp-do-display-images', see the commands whose\n names have prefix `diredp-image-'.  And see options\n `diredp-image-preview-in-tooltip' and\n `diredp-auto-focus-frame-for-thumbnail-tooltip-flag'.\n   \n\n Inserted Subdirs, Multiple Dired Buffers, Files from Anywhere,...\n -----------------------------------------------------------------\n\n These three standard Dired features are worth pointing out.  The\n third in particular is little known because (a) it is limited in\n vanilla Dired and (b) you cannot use it interactively.\n\n  * You can pass a glob pattern with wildcards to `dired'\n    interactively, as the file name.\n\n  * You can insert multiple subdirectory listings into a single\n    Dired buffer using `i' on each subdir line.  Use `C-u i' to\n    specify `ls' switches.  Specifying switch `R' inserts the\n    inserted subdirectory's subdirs also, recursively.  You can\n    also use `i' to bounce between a subdirectory line and its\n    inserted-listing header line.  You can delete a subdir listing\n    using `C-u k' on its header line.  You can hide/show an\n    inserted subdir using `$'.  You can use `C-_' to undo any of\n    these operations.\n\n  * You can open a Dired buffer for an arbitrary set of files from\n    different directories.  You do this by invoking `dired'\n    non-interactively, passing it a cons of a Dired buffer name and\n    the file names.  Relative file names are interpreted relative\n    to the value of `default-directory'.  Use absolute file names\n    when appropriate.\n\n `Dired+' makes these features more useful.\n\n `$' is improved: It is a simple toggle - it does not move the\n cursor forward.  `M-$' advances the cursor, in addition to\n toggling like `$'.  `C-u $' does hide/show all (what `M-$' does in\n vanilla Dired).\n\n `i' is improved in these ways:\n\n  * Once a subdir has been inserted, `i' bounces between the subdir\n    listing and the subdir line in the parent listing.  If the\n    parent dir is hidden, then `i' from a subdir opens the parent\n    listing so it can move to the subdir line there (Emacs 24+).\n\n  * Vanilla Dired lets you create a Dired listing with files and\n    directories from arbitrary locations, but you cannot insert\n    (`i') such a directory if it is not in the same directory tree\n    as the `default-directory' used to create the Dired buffer.\n    `Dired+' removes this limitation; you can insert any non-root\n    directories (that is, not `/', `c:/', etc.).\n\n `Dired+' lets you create Dired buffers that contain arbitrary\n files and directories interactively, not just using Lisp.  Just\n use a non-positive prefix arg (e.g., `C--') when invoking `dired'.\n\n You are then prompted for the Dired buffer name (anything you\n like, not necessarily a directory name) and the individual files\n and directories that you want listed.\n\n A non-negative prefix arg still prompts you for the `ls' switches\n to use.  (So `C-0' does both: prompts for `ls' switches and for\n the Dired buffer name and the files to list.)\n\n `Dired+' adds commands for combining and augmenting Dired\n listings:\n\n  * `diredp-add-to-dired-buffer', bound globally to `C-x D A', lets\n    you add arbitrary file and directory names to an existing Dired\n    buffer.\n\n  * `diredp-dired-union', bound globally to `C-x D U', lets you\n    take the union of multiple Dired listings, or convert an\n    ordinary Dired listing to an explicit list of absolute file\n    names.  With a non-positive prefix arg, you can add extra file\n    and directory names, just as for `diredp-add-to-dired-buffer'.\n\n You can optionally add a header line to a Dired buffer using\n toggle command `diredp-breadcrumbs-in-header-line-mode'.  (A\n header line remains at the top of the window - no need to scroll\n to see it.)  If you want to show the header line automatically in\n all Dired buffers, you can do this:\n\n   (add-hook 'dired-before-readin-hook\n             'diredp-breadcrumbs-in-header-line-mode)\n\n Some other libraries, such as `Bookmark+' and `Icicles', make it\n easy to create or re-create Dired buffers that list specific files\n and have a particular set of markings.  `Bookmark+' records Dired\n buffers persistently, remembering `ls' switches, markings, subdir\n insertions, and hidden subdirs.  If you use `Icicles' then `dired'\n is a multi-command: you can open multiple Dired buffers with one\n `dired' invocation.\n\n Dired can help you manage projects.  You might have multiple Dired\n buffers with quite specific contents.  You might have some\n subdirectories inserted in the same Dired buffer, and you might\n have separate Dired buffers for some subdirectories.  Sometimes it\n is useful to have both for the same subdirectory.  And sometimes\n it is useful to move from one presentation to the other.\n\n This is one motivation for the `Dired+' `diredp-*-recursive'\n commands, which act on the marked files in marked subdirectories,\n recursively.  In one sense, these commands are an alternative to\n using a single Dired buffer with inserted subdirectories.  They\n let you use the same operations on the files in a set of Dired\n directories, without inserting those directories into an ancestor\n Dired buffer.\n\n You can use command `diredp-dired-inserted-subdirs' to open a\n separate Dired buffer for each of the subdirs that is inserted in\n the current Dired buffer.  Markings and Dired switches are\n preserved.\n\n In the opposite direction, if you use `Icicles' then you can use\n multi-command `icicle-dired-insert-as-subdir', which lets you\n insert any number of directories you choose interactively into a\n Dired ancestor directory listing.  If a directory you choose to\n insert already has its own Dired buffer, then its markings and\n switches are preserved for the new, subdirectory listing in the\n ancestor Dired buffer.\n\n\n Hide/Show Details\n -----------------\n\n Starting with Emacs 24.4, listing details are hidden by default.\n Note that this is different from the vanilla Emacs behavior, which\n is to show details by default.\n\n Use `(' anytime to toggle this hiding.  You can use option\n `diredp-hide-details-initially-flag' to change the default/initial\n state.  See also option `diredp-hide-details-propagate-flag'.\n\n NOTE: If you do not want to hide details initially then you must\n       either (1) change `diredp-hide-details-initially-flag' using\n       Customize (recommended) or (2) set it to `nil' (e.g., using\n       `setq') *BEFORE* loading `dired+.el'.\n\n If you have an Emacs version older than 24.4, you can use library\n `dired-details+.el' (plus `dired-details.el') to get similar\n behavior.\n\n\n Mode-Line\n ---------\n\n The number of files and dirs that are marked with `*', and the\n number that are flagged for deletion (marked `D') are indicated in\n the mode-line.  When the cursor is on such a line the indication\n tells you how many more there are.  For example, if the cursor is\n on the line of the third file that is marked `*', and there are\n seven of them total, then the mode-line shows `3/7*'.\n\n The mode-line also indicates, for the current listing (which could\n be a subdir listing), how many files and dirs are listed.  If the\n cursor is on the 27th file in a listing of 78 files then the\n mode-line shows 27/78.\n\n For counting files and dirs in a listing, option\n `diredp-count-.-and-..-flag' controls whether to count the lines\n for `.' and `..'.  By default it is nil, meaning they are not\n counted.\n\n\n If You Use Dired+ in Terminal Mode\n ----------------------------------\n\n By default, Dired+ binds some keys that can be problematic in some\n terminals when you use Emacs in terminal mode (i.e., `emacs -nw').\n This is controlled by option\n `diredp-bind-problematic-terminal-keys'.\n\n In particular, keys that use modifiers Meta and Shift together can\n be problematic.  If you use Dired+ in terminal mode, and you find\n that your terminal does not support such keys then you might want\n to customize the option to set the value to `nil', and then bind\n the commands to some other keys, which your terminal supports.\n \n Regardless of the option value, unless Emacs is in terminal mode\n the keys are bound by default.  The problematic keys used by\n Dired+ include these:\n\n   `M-M'   (aka `M-S-m')   - `diredp-chmod-this-file'\n   `M-O'   (aka `M-S-o')   - `diredp-chown-this-file'\n   `M-T'   (aka `M-S-t')   - `diredp-touch-this-file'\n   `C-M-B' (aka `C-M-S-b') - `diredp-do-bookmark-in-bookmark-file'\n   `C-M-G' (aka `C-M-S-g') - `diredp-chgrp-this-file'\n   `C-M-R' (aka `C-M-S-r') - `diredp-toggle-find-file-reuse-dir'\n   `C-M-T' (aka `C-M-S-t') - `dired-do-touch'\n   `M-+ M-B'   (aka `M-+ M-S-b') -\n       `diredp-do-bookmark-dirs-recursive'\n   `M-+ C-M-B' (aka `M-+ C-M-S-b') -\n       `diredp-do-bookmark-in-bookmark-file-recursive'\n   `M-+ C-M-T' (aka `M-+ C-M-S-t') - `diredp-do-touch-recursive'\n\n (See also `(info \"(org) TTY keys\")' for more information about\n keys that can be problematic in terminal mode.)\n\n\n Faces defined here:\n\n   `diredp-autofile-name', `diredp-compressed-file-suffix',\n   `diredp-date-time', `diredp-deletion',\n   `diredp-deletion-file-name', `diredp-dir-heading',\n   `diredp-dir-priv', `diredp-exec-priv', `diredp-executable-tag',\n   `diredp-file-name', `diredp-file-suffix', `diredp-flag-mark',\n   `diredp-flag-mark-line', `diredp-get-file-or-dir-name',\n   `diredp-ignored-file-name', `diredp-link-priv',\n   `diredp-mode-line-flagged', `diredp-mode-line-marked'\n   `diredp-no-priv', `diredp-number', `diredp-other-priv',\n   `diredp-rare-priv', `diredp-read-priv', `diredp-symlink',\n   `diredp-tagged-autofile-name', `diredp-write-priv'.\n\n Commands defined here:\n\n   `diredp-add-to-dired-buffer', `diredp-add-to-this-dired-buffer',\n   `diredp-do-apply-function',\n   `diredp-do-apply-function-recursive',\n   `diredp-async-shell-command-this-file',\n   `diredp-bookmark-this-file',\n   `diredp-breadcrumbs-in-header-line-mode' (Emacs 22+),\n   `diredp-byte-compile-this-file', `diredp-capitalize',\n   `diredp-capitalize-recursive', `diredp-capitalize-this-file',\n   `diredp-chgrp-this-file', `diredp-chmod-this-file',\n   `diredp-chown-this-file',\n   `diredp-compilation-files-other-window' (Emacs 24+),\n   `diredp-compress-this-file',\n   `diredp-copy-filename-as-kill-recursive',\n   `diredp-copy-tags-this-file', `diredp-copy-this-file',\n   `diredp-decrypt-this-file', `diredp-delete-this-file',\n   `diredp-describe-autofile', `diredp-describe-file',\n   `diredp-describe-marked-autofiles', `diredp-describe-mode',\n   `diredp-dired-for-files', `diredp-dired-for-files-other-window',\n   `diredp-dired-inserted-subdirs', `diredp-dired-plus-help',\n   `diredp-dired-recent-dirs',\n   `diredp-dired-recent-dirs-other-window',\n   `diredp-dired-this-subdir', `diredp-dired-union',\n   `diredp-do-async-shell-command-recursive', `diredp-do-bookmark',\n   `diredp-do-bookmark-dirs-recursive',\n   `diredp-do-bookmark-in-bookmark-file',\n   `diredp-do-bookmark-in-bookmark-file-recursive',\n   `diredp-do-bookmark-recursive', `diredp-do-chmod-recursive',\n   `diredp-do-chgrp-recursive', `diredp-do-chown-recursive',\n   `diredp-do-copy-recursive', `diredp-do-decrypt-recursive',\n   `diredp-do-delete-recursive', `diredp-do-display-images' (Emacs\n   22+), `diredp-do-encrypt-recursive',\n   `diredp-do-find-marked-files-recursive', `diredp-do-grep',\n   `diredp-do-grep-recursive', `diredp-do-hardlink-recursive',\n   `diredp-do-isearch-recursive',\n   `diredp-do-isearch-regexp-recursive',\n   `diredp-do-move-recursive', `diredp-do-paste-add-tags',\n   `diredp-do-paste-replace-tags', `diredp-do-print-recursive',\n   `diredp-do-query-replace-regexp-recursive',\n   `diredp-do-redisplay-recursive',\n   `diredp-do-relsymlink-recursive', `diredp-do-remove-all-tags',\n   `diredp-do-search-recursive', `diredp-do-set-tag-value',\n   `diredp-do-shell-command-recursive', `diredp-do-sign-recursive',\n   `diredp-do-symlink-recursive', `diredp-do-tag',\n   `diredp-do-touch-recursive', `diredp-do-untag',\n   `diredp-do-verify-recursive', `diredp-downcase-recursive',\n   `diredp-downcase-this-file', `diredp-ediff',\n   `diredp-encrypt-this-file', `diredp-fileset',\n   `diredp-fileset-other-window', `diredp-find-a-file',\n   `diredp-find-a-file-other-frame',\n   `diredp-find-a-file-other-window',\n   `diredp-find-file-other-frame',\n   `diredp-find-file-reuse-dir-buffer',\n   `diredp-find-line-file-other-window',\n   `diredp-flag-region-files-for-deletion',\n   `diredp-grepped-files-other-window', `diredp-grep-this-file',\n   `diredp-hardlink-this-file', `diredp-highlight-autofiles-mode',\n   `diredp-image-dired-comment-file',\n   `diredp-image-dired-comment-files-recursive',\n   `diredp-image-dired-copy-with-exif-name',\n   `diredp-image-dired-create-thumb',\n   `diredp-image-dired-delete-tag',\n   `diredp-image-dired-delete-tag-recursive',\n   `diredp-image-dired-display-thumb',\n   `diredp-image-dired-display-thumbs-recursive',\n   `diredp-image-dired-edit-comment-and-tags',\n   `diredp-image-dired-tag-file',\n   `diredp-image-dired-tag-files-recursive',\n   `diredp-image-show-this-file', `diredp-insert-as-subdir',\n   `diredp-insert-subdirs', `diredp-insert-subdirs-recursive',\n   `diredp-kill-this-tree', `diredp-list-marked-recursive',\n   `diredp-load-this-file', `diredp-mark-autofiles',\n   `diredp-marked', `diredp-marked-other-window',\n   `diredp-marked-recursive',\n   `diredp-marked-recursive-other-window',\n   `diredp-mark-extension-recursive',\n   `diredp-mark-files-regexp-recursive',\n   `diredp-mark-files-tagged-all', `diredp-mark-files-tagged-none',\n   `diredp-mark-files-tagged-not-all',\n   `diredp-mark-files-tagged-some',\n   `diredp-mark-files-tagged-regexp', `diredp-mark-region-files',\n   `diredp-mark/unmark-autofiles', `diredp-mark/unmark-extension',\n   `diredp-mouse-3-menu', `diredp-mouse-backup-diff',\n   `diredp-mouse-copy-tags', `diredp-mouse-describe-autofile',\n   `diredp-mouse-describe-file', `diredp-mouse-diff',\n   `diredp-mouse-do-bookmark', `diredp-mouse-do-byte-compile',\n   `diredp-mouse-do-chgrp', `diredp-mouse-do-chmod',\n   `diredp-mouse-do-chown', `diredp-mouse-do-compress',\n   `diredp-mouse-do-copy', `diredp-mouse-do-delete',\n   `diredp-mouse-do-grep', `diredp-mouse-do-hardlink',\n   `diredp-mouse-do-load', `diredp-mouse-do-print',\n   `diredp-mouse-do-remove-all-tags', `diredp-mouse-do-rename',\n   `diredp-mouse-do-set-tag-value',\n   `diredp-mouse-do-shell-command', `diredp-mouse-do-symlink',\n   `diredp-mouse-do-tag', `diredp-mouse-do-untag',\n   `diredp-mouse-downcase', `diredp-mouse-ediff',\n   `diredp-mouse-find-line-file-other-window',\n   `diredp-mouse-find-file-other-frame',\n   `diredp-mouse-find-file-reuse-dir-buffer',\n   `diredp-mouse-flag-file-deletion', `diredp-mouse-mark',\n   `diredp-mouse-mark-region-files', `diredp-mouse-mark/unmark',\n   `diredp-mouse-unmark', `diredp-mouse-upcase',\n   `diredp-mouse-view-file',\n   `diredp-multiple-w32-browser-recursive',\n   `diredp-nb-marked-in-mode-name', `diredp-next-dirline',\n   `diredp-next-line', `diredp-next-subdir', `diredp-omit-marked',\n   `diredp-omit-unmarked', `diredp-paste-add-tags-this-file',\n   `diredp-paste-replace-tags-this-file', `diredp-prev-dirline',\n   `diredp-previous-line', `diredp-prev-subdir',\n   `diredp-print-this-file', `diredp-relsymlink-this-file',\n   `diredp-remove-all-tags-this-file', `diredp-rename-this-file',\n   `diredp-send-bug-report',\n   `diredp-set-bookmark-file-bookmark-for-marked',\n   `diredp-set-bookmark-file-bookmark-for-marked-recursive',\n   `diredp-set-tag-value-this-file',\n   `diredp-shell-command-this-file', `diredp-show-metadata',\n   `diredp-show-metadata-for-marked', `diredp-sign-this-file',\n   `diredp-symlink-this-file', `diredp-tag-this-file',\n   `diredp-toggle-find-file-reuse-dir',\n   `diredp-toggle-marks-in-region', `diredp-touch-this-file',\n   `diredp-unmark-autofiles', `diredp-unmark-files-tagged-all',\n   `diredp-unmark-files-tagged-none',\n   `diredp-unmark-files-tagged-not-all',\n   `diredp-unmark-files-tagged-some', `diredp-unmark-region-files',\n   `diredp-untag-this-file', `diredp-upcase-recursive',\n   `diredp-up-directory', `diredp-up-directory-reuse-dir-buffer',\n   `diredp-upcase-this-file', `diredp-verify-this-file',\n   `diredp-w32-drives', `diredp-w32-drives-mode',\n   `global-dired-hide-details-mode' (Emacs 24.4+),\n   `toggle-diredp-find-file-reuse-dir'.\n\n User options defined here:\n\n   `diredp-auto-focus-frame-for-thumbnail-tooltip-flag',\n   `diredp-bind-problematic-terminal-keys',\n   `diredp-compressed-extensions', `diredp-count-.-and-..-flag'\n   (Emacs 22+), `diredp-dwim-any-frame-flag' (Emacs 22+),\n   `diredp-image-preview-in-tooltip', `diff-switches',\n   `diredp-hide-details-initially-flag' (Emacs 24.4+),\n   `diredp-highlight-autofiles-mode',\n   `diredp-hide-details-propagate-flag' (Emacs 24.4+),\n   `diredp-ignore-compressed-flag',\n   `diredp-image-show-this-file-use-frame-flag' (Emacs 22+),\n   `diredp-max-frames', `diredp-prompt-for-bookmark-prefix-flag',\n   `diredp-w32-local-drives', `diredp-wrap-around-flag'.\n\n Non-interactive functions defined here:\n\n   `derived-mode-p' (Emacs < 22), `diredp-all-files',\n   `diredp-ancestor-dirs', `diredp-bookmark',\n   `diredp-create-files-non-directory-recursive',\n   `diredp-delete-dups', `diredp-directories-within',\n   `diredp-dired-plus-description',\n   `diredp-dired-plus-description+links',\n   `diredp-dired-plus-help-link', `diredp-dired-union-1',\n   `diredp-dired-union-interactive-spec',\n   `diredp-display-graphic-p', `diredp-display-image' (Emacs 22+),\n   `diredp-do-chxxx-recursive', `diredp-do-create-files-recursive',\n   `diredp-do-grep-1', `diredp-ensure-bookmark+',\n   `diredp-ensure-mode', `diredp-existing-dired-buffer-p',\n   `diredp-fewer-than-2-files-p', `diredp-fileset-1',\n   `diredp-find-a-file-read-args',\n   `diredp-file-for-compilation-hit-at-point' (Emacs 24+),\n   `diredp-files-within', `diredp-files-within-1',\n   `diredp-fit-frame-unless-buffer-narrowed' (Emacs 24.4+),\n   `diredp-get-confirmation-recursive', `diredp-get-files',\n   `diredp-get-files-for-dir', `diredp-get-subdirs',\n   `diredp-hide-details-if-dired' (Emacs 24.4+),\n   `diredp-hide/show-details' (Emacs 24.4+),\n   `diredp-highlight-autofiles', `diredp-image-dired-required-msg',\n   `diredp-get-image-filename', `diredp-internal-do-deletions',\n   `diredp-list-files', `diredp-looking-at-p',\n   `diredp-make-find-file-keys-reuse-dirs',\n   `diredp-make-find-file-keys-not-reuse-dirs', `diredp-maplist',\n   `diredp-marked-here', `diredp-mark-files-tagged-all/none',\n   `diredp-mark-files-tagged-some/not-all',\n   `diredp-nonempty-region-p', `diredp-parent-dir',\n   `diredp-paste-add-tags', `diredp-paste-replace-tags',\n   `diredp-read-bookmark-file-args', `diredp-read-include/exclude',\n   `diredp-read-regexp', `diredp-recent-dirs',\n   `diredp-refontify-buffer', `diredp-remove-if',\n   `diredp-remove-if-not', `diredp--reuse-dir-buffer-helper',\n   `diredp-root-directory-p', `diredp-set-header-line-breadcrumbs'\n   (Emacs 22+), `diredp-set-tag-value', `diredp-set-union',\n   `diredp--set-up-font-locking', `diredp-string-match-p',\n   `diredp-tag', `diredp-this-file-marked-p',\n   `diredp-this-file-unmarked-p', `diredp-this-subdir',\n   `diredp-untag', `diredp-y-or-n-files-p'.\n\n Variables defined here:\n\n   `diredp-bookmark-menu', `diredp-file-line-overlay',\n   `diredp-files-within-dirs-done', `diredp-font-lock-keywords-1',\n   `diredp-hide-details-last-state' (Emacs 24.4+),\n   `diredp-hide-details-toggled' (Emacs 24.4+),\n   `diredp-hide/show-menu', `diredp-images-recursive-menu',\n   `diredp-list-files-map', `diredp-loaded-p',\n   `diredp-marks-recursive-menu', `diredp-menu-bar-dir-menu',\n   `diredp-menu-bar-marks-menu', `diredp-menu-bar-multiple-menu',\n   `diredp-menu-bar-regexp-menu', `diredp-menu-bar-single-menu',\n   `diredp-multiple-bookmarks-menu', `diredp-multiple-delete-menu',\n   `diredp-multiple-dired-menu', `diredp-multiple-images-menu',\n   `diredp-multiple-encryption-menu',\n   `diredp-multiple-move-copy-link-menu',\n   `diredp-multiple-omit-menu', `diredp-multiple-recursive-menu',\n   `diredp-multiple-rename-menu', `diredp-multiple-search-menu',\n   `diredp-navigate-menu', `diredp-regexp-recursive-menu',\n   `diredp-re-no-dot', `diredp-single-bookmarks-menu',\n   `diredp-single-encryption-menu', `diredp-single-image-menu',\n   `diredp-single-move-copy-link-menu', `diredp-single-open-menu',\n   `diredp-single-rename-menu', `diredp-w32-drives-mode-map'.\n\n Macros defined here:\n\n   `diredp-with-help-window'.\n\n\n ***** NOTE: The following macros defined in `dired.el' have\n             been REDEFINED HERE:\n\n `dired-map-over-marks'    - Treat multiple `C-u' specially.\n `dired-mark-if'           - Better initial msg - Emacs bug #8523.\n\n\n ***** NOTE: The following functions defined in `dired.el' have\n             been REDEFINED or ADVISED HERE:\n\n `dired'                   - Handle non-positive prefix arg.\n `dired-do-delete'         - Display message to warn that marked,\n                             not flagged, files will be deleted.\n `dired-do-flagged-delete' - Display message to warn that flagged,\n                             not marked, files will be deleted.\n `dired-dwim-target-directory' - Uses `diredp-dwim-any-frame-flag'.\n `dired-find-file'         - Allow `.' and `..' (Emacs 20 only).\n `dired-get-filename'      - Test `./' and `../' (like `.', `..').\n `dired-goto-file'         - Fix Emacs bug #7126.\n                             Remove `/' from dir before compare.\n                             (Emacs < 24 only.)\n `dired-hide-details-mode' - Respect new user options:\n                             * `diredp-hide-details-initially-flag'\n                             * `diredp-hide-details-propagate-flag'\n                             (Emacs 24.4+)\n `dired-insert-directory'  - Compute WILDCARD arg for\n                             `insert-directory' for individual file\n                             (don't just use nil). (Emacs 23+, and\n                             only for MS Windows)\n `dired-insert-set-properties' - `mouse-face' on whole line.\n `dired-mark-files-regexp' - Add regexp to `regexp-search-ring'.\n                             More matching possibilities.\n                             Added optional arg LOCALP.\n `dired-mark-pop-up'       - Delete the window or frame popped up,\n                             afterward, and bury its buffer. Do not\n                             show a menu bar for pop-up frame.\n `dired-other-frame'       - Handle non-positive prefix arg.\n `dired-other-window'      - Handle non-positive prefix arg.\n `dired-pop-to-buffer'     - Put window point at bob (bug #12281).\n                             (Emacs 22-24.1)\n `dired-read-dir-and-switches' - Non-positive prefix arg behavior.\n" unbound unbound unbound unbound unbound unbound unbound unbound unbound nil nil 84474) t))
  closql--remake-instance(epkg-package #<epkg-database epkg-database-40d318b4> (wiki "dired+" "c634998e6111e04b187e4d1f5009df0457a29e84" "git@github:emacsmirror/emacswiki.org.git" "git@github.com:emacsmirror/dired-plus.git" "dired-plus" nil "dired+" nil nil nil "https://github.com/emacsmirror/emacswiki.org" "https://www.emacswiki.org/emacs/download/dired%2b.el" "https://github.com/emacsmirror/dired-plus" "https://emacswiki.org/DiredPlus" "GPL-2+" "19990319" "20171125" "Extensions to Dired" "Extensions to Dired.\n\n This file extends functionalities provided by standard GNU Emacs\n files `dired.el', `dired-aux.el', and `dired-x.el'.\n\n Key bindings changed.  Menus redefined.  `diredp-mouse-3-menu'\n popup menu added.  New commands.  Some commands enhanced.\n\n All of the new functions, variables, and faces defined here have\n the prefix `diredp-' (for Dired Plus) in their names.\n\n\n Wraparound Navigation\n ---------------------\n\n In vanilla Dired, `dired-next-marked-file' (`M-}' or `* C-n') and\n `dired-previous-marked-file' (`M-{' or `* C-p') wrap around when\n you get to the end or the beginning of the Dired buffer.  Handy.\n\n But the other navigation commands do not wrap around.  In `Dired+'\n they do, provided option `diredp-wrap-around-flag' is non-nil,\n which it is by default.  This means the following commands:\n\n   `diredp-next-line'     - `n', `C-n', `down', `SPC'\n   `diredp-previous-line' - `p', `C-p', `up'\n   `diredp-next-dirline'  - `>'\n   `diredp-prev-dirline'  - `<'\n   `diredp-next-subdir'   - `C-M-n'\n   `diredp-prev-subdir'   - `C-M-p'\n\n\n Font-Lock Highlighting\n ----------------------\n\n If you want a maximum or minimum fontification for Dired mode,\n then customize option `font-lock-maximum-decoration'.  If you want\n a different fontification level for Dired than for other modes,\n you can do this too by customizing\n `font-lock-maximize-decoration'.\n\n A few of the user options defined here have an effect on\n font-locking, and this effect is established only when Dired+ is\n loaded, which defines the font-lock keywords for Dired.  These\n options include `diredp-compressed-extensions',\n `diredp-ignore-compressed-flag', and `dired-omit-extensions'.\n This means that if you change the value of such an option then you\n will see the change only in a new Emacs session.\n\n (You can see the effect in the same session if you use `C-M-x' on\n the `defvar' sexp for `diredp-font-lock-keywords-1', and then you\n toggle font-lock off and back on.)\n\n\n Act on All Files\n ----------------\n\n Most of the commands (such as `C' and `M-g') that operate on the\n marked files have the added feature here that multiple `C-u' use\n not the files that are marked or the next or previous N files, but\n *all* of the files in the Dired buffer.  Just what \"all\" files\n means changes with the number of `C-u', as follows:\n\n   `C-u C-u'         - Use all files present, but no directories.\n   `C-u C-u C-u'     - Use all files and dirs except `.' and `..'.\n   `C-u C-u C-u C-u' - use all files and dirs, `.' and `..'.\n\n   (More than four `C-u' act the same as two.)\n\n This feature can be particularly useful when you have a Dired\n buffer with files chosen from multiple directories.\n\n Note that in most cases this behavior is described only in the doc\n string of function `dired-get-marked-files'.  It is generally\n *not* described in the doc strings of the various commands,\n because that would require redefining each command separately\n here.  Instead, we redefine macro `dired-map-over-marks' and\n function `dired-get-filename' in order to achieve this effect.\n\n Commands such as `dired-do-load' for which it does not make sense\n to act on directories generally treat more than two `C-u' the same\n as two `C-u'.\n\n Exceptions to the general behavior described here are called out\n in the doc strings.  In particular, the behavior of a prefix arg\n for `dired-do-query-replace-regexp' is different, so that you can\n use it also to specify word-delimited replacement.\n\n\n Act on Marked (or All) Files Here and Below\n -------------------------------------------\n\n The prefix argument behavior just described does not apply to the\n `diredp-*-recursive' commands.  These commands act on the marked\n files in the current Dired buffer or on all files in the directory\n if none are marked.\n\n But these commands also handle marked subdirectories recursively,\n in the same way.  That is, they act also on the marked files in\n any marked subdirectories, found recursively.  If there is no\n Dired buffer for a given marked subdirectory then all of its files\n and subdirs are acted on.\n\n With a prefix argument, all marks are ignored.  The commands act\n on all files in the current Dired buffer and all of its\n subdirectories, recursively.\n\n All of the `diredp-*-recursive' commands are on prefix key `M-+',\n and they are available on submenu `Marked Here and Below' of the\n `Multiple' menu-bar menu.\n\n If you use library `Icicles' then you have these additional\n commands/keys that act recursively on marked files.  They are in\n the `Icicles' submenu of menu `Multiple' > `Marked Here and\n Below'.\n\n * `M-+ M-s M-s' or `M-s M-s m' - Use Icicles search (and its\n                 on-demand replace) on the marked files.\n\n * Save the names of the marked files:\n\n   `M-+ C-M->' - Save as a completion set, for use during\n                 completion (e.g. with `C-x C-f').\n\n   `M-+ C->'   - Add marked names to the names in the current saved\n                 completion set.\n\n   `M-+ C-}'   - Save persistently to an Icicles cache file, for\n                 use during completion in another session.\n\n   `icicle-dired-save-marked-to-fileset-recursive' - Like `M-+\n                 C-}', but save persistently to an Emacs fileset.\n\n   `M-+ C-M-}' - Save to a Lisp variable.\n\n\n In the other direction, if you have a saved set of file names then\n you can use `C-M-<' (`icicle-dired-chosen-files-other-window') in\n Dired to open a Dired buffer for just those files.  So you can\n mark some files and subdirs in a hierarchy of Dired buffers, use\n `M-+ C-}' to save their names persistently, then later use `C-{'\n to retrieve them, and `C-M-<' (in Dired) to open Dired on them.\n\n\n Image Files\n -----------\n\n `Dired+' provides several enhancements regarding image files.\n Most of these require standard library `image-dired.el'.  One of\n them, command `diredp-do-display-images', which displays all of\n the marked image files, requires standard library `image-file.el'.\n\n `Dired+' loads these libraries automatically, if available, which\n means an Emacs version that supports image display (Emacs 22 or\n later).  (You must of course have installed whatever else your\n Emacs version needs to display images.)\n\n Besides command `diredp-do-display-images', see the commands whose\n names have prefix `diredp-image-'.  And see options\n `diredp-image-preview-in-tooltip' and\n `diredp-auto-focus-frame-for-thumbnail-tooltip-flag'.\n   \n\n Inserted Subdirs, Multiple Dired Buffers, Files from Anywhere,...\n -----------------------------------------------------------------\n\n These three standard Dired features are worth pointing out.  The\n third in particular is little known because (a) it is limited in\n vanilla Dired and (b) you cannot use it interactively.\n\n  * You can pass a glob pattern with wildcards to `dired'\n    interactively, as the file name.\n\n  * You can insert multiple subdirectory listings into a single\n    Dired buffer using `i' on each subdir line.  Use `C-u i' to\n    specify `ls' switches.  Specifying switch `R' inserts the\n    inserted subdirectory's subdirs also, recursively.  You can\n    also use `i' to bounce between a subdirectory line and its\n    inserted-listing header line.  You can delete a subdir listing\n    using `C-u k' on its header line.  You can hide/show an\n    inserted subdir using `$'.  You can use `C-_' to undo any of\n    these operations.\n\n  * You can open a Dired buffer for an arbitrary set of files from\n    different directories.  You do this by invoking `dired'\n    non-interactively, passing it a cons of a Dired buffer name and\n    the file names.  Relative file names are interpreted relative\n    to the value of `default-directory'.  Use absolute file names\n    when appropriate.\n\n `Dired+' makes these features more useful.\n\n `$' is improved: It is a simple toggle - it does not move the\n cursor forward.  `M-$' advances the cursor, in addition to\n toggling like `$'.  `C-u $' does hide/show all (what `M-$' does in\n vanilla Dired).\n\n `i' is improved in these ways:\n\n  * Once a subdir has been inserted, `i' bounces between the subdir\n    listing and the subdir line in the parent listing.  If the\n    parent dir is hidden, then `i' from a subdir opens the parent\n    listing so it can move to the subdir line there (Emacs 24+).\n\n  * Vanilla Dired lets you create a Dired listing with files and\n    directories from arbitrary locations, but you cannot insert\n    (`i') such a directory if it is not in the same directory tree\n    as the `default-directory' used to create the Dired buffer.\n    `Dired+' removes this limitation; you can insert any non-root\n    directories (that is, not `/', `c:/', etc.).\n\n `Dired+' lets you create Dired buffers that contain arbitrary\n files and directories interactively, not just using Lisp.  Just\n use a non-positive prefix arg (e.g., `C--') when invoking `dired'.\n\n You are then prompted for the Dired buffer name (anything you\n like, not necessarily a directory name) and the individual files\n and directories that you want listed.\n\n A non-negative prefix arg still prompts you for the `ls' switches\n to use.  (So `C-0' does both: prompts for `ls' switches and for\n the Dired buffer name and the files to list.)\n\n `Dired+' adds commands for combining and augmenting Dired\n listings:\n\n  * `diredp-add-to-dired-buffer', bound globally to `C-x D A', lets\n    you add arbitrary file and directory names to an existing Dired\n    buffer.\n\n  * `diredp-dired-union', bound globally to `C-x D U', lets you\n    take the union of multiple Dired listings, or convert an\n    ordinary Dired listing to an explicit list of absolute file\n    names.  With a non-positive prefix arg, you can add extra file\n    and directory names, just as for `diredp-add-to-dired-buffer'.\n\n You can optionally add a header line to a Dired buffer using\n toggle command `diredp-breadcrumbs-in-header-line-mode'.  (A\n header line remains at the top of the window - no need to scroll\n to see it.)  If you want to show the header line automatically in\n all Dired buffers, you can do this:\n\n   (add-hook 'dired-before-readin-hook\n             'diredp-breadcrumbs-in-header-line-mode)\n\n Some other libraries, such as `Bookmark+' and `Icicles', make it\n easy to create or re-create Dired buffers that list specific files\n and have a particular set of markings.  `Bookmark+' records Dired\n buffers persistently, remembering `ls' switches, markings, subdir\n insertions, and hidden subdirs.  If you use `Icicles' then `dired'\n is a multi-command: you can open multiple Dired buffers with one\n `dired' invocation.\n\n Dired can help you manage projects.  You might have multiple Dired\n buffers with quite specific contents.  You might have some\n subdirectories inserted in the same Dired buffer, and you might\n have separate Dired buffers for some subdirectories.  Sometimes it\n is useful to have both for the same subdirectory.  And sometimes\n it is useful to move from one presentation to the other.\n\n This is one motivation for the `Dired+' `diredp-*-recursive'\n commands, which act on the marked files in marked subdirectories,\n recursively.  In one sense, these commands are an alternative to\n using a single Dired buffer with inserted subdirectories.  They\n let you use the same operations on the files in a set of Dired\n directories, without inserting those directories into an ancestor\n Dired buffer.\n\n You can use command `diredp-dired-inserted-subdirs' to open a\n separate Dired buffer for each of the subdirs that is inserted in\n the current Dired buffer.  Markings and Dired switches are\n preserved.\n\n In the opposite direction, if you use `Icicles' then you can use\n multi-command `icicle-dired-insert-as-subdir', which lets you\n insert any number of directories you choose interactively into a\n Dired ancestor directory listing.  If a directory you choose to\n insert already has its own Dired buffer, then its markings and\n switches are preserved for the new, subdirectory listing in the\n ancestor Dired buffer.\n\n\n Hide/Show Details\n -----------------\n\n Starting with Emacs 24.4, listing details are hidden by default.\n Note that this is different from the vanilla Emacs behavior, which\n is to show details by default.\n\n Use `(' anytime to toggle this hiding.  You can use option\n `diredp-hide-details-initially-flag' to change the default/initial\n state.  See also option `diredp-hide-details-propagate-flag'.\n\n NOTE: If you do not want to hide details initially then you must\n       either (1) change `diredp-hide-details-initially-flag' using\n       Customize (recommended) or (2) set it to `nil' (e.g., using\n       `setq') *BEFORE* loading `dired+.el'.\n\n If you have an Emacs version older than 24.4, you can use library\n `dired-details+.el' (plus `dired-details.el') to get similar\n behavior.\n\n\n Mode-Line\n ---------\n\n The number of files and dirs that are marked with `*', and the\n number that are flagged for deletion (marked `D') are indicated in\n the mode-line.  When the cursor is on such a line the indication\n tells you how many more there are.  For example, if the cursor is\n on the line of the third file that is marked `*', and there are\n seven of them total, then the mode-line shows `3/7*'.\n\n The mode-line also indicates, for the current listing (which could\n be a subdir listing), how many files and dirs are listed.  If the\n cursor is on the 27th file in a listing of 78 files then the\n mode-line shows 27/78.\n\n For counting files and dirs in a listing, option\n `diredp-count-.-and-..-flag' controls whether to count the lines\n for `.' and `..'.  By default it is nil, meaning they are not\n counted.\n\n\n If You Use Dired+ in Terminal Mode\n ----------------------------------\n\n By default, Dired+ binds some keys that can be problematic in some\n terminals when you use Emacs in terminal mode (i.e., `emacs -nw').\n This is controlled by option\n `diredp-bind-problematic-terminal-keys'.\n\n In particular, keys that use modifiers Meta and Shift together can\n be problematic.  If you use Dired+ in terminal mode, and you find\n that your terminal does not support such keys then you might want\n to customize the option to set the value to `nil', and then bind\n the commands to some other keys, which your terminal supports.\n \n Regardless of the option value, unless Emacs is in terminal mode\n the keys are bound by default.  The problematic keys used by\n Dired+ include these:\n\n   `M-M'   (aka `M-S-m')   - `diredp-chmod-this-file'\n   `M-O'   (aka `M-S-o')   - `diredp-chown-this-file'\n   `M-T'   (aka `M-S-t')   - `diredp-touch-this-file'\n   `C-M-B' (aka `C-M-S-b') - `diredp-do-bookmark-in-bookmark-file'\n   `C-M-G' (aka `C-M-S-g') - `diredp-chgrp-this-file'\n   `C-M-R' (aka `C-M-S-r') - `diredp-toggle-find-file-reuse-dir'\n   `C-M-T' (aka `C-M-S-t') - `dired-do-touch'\n   `M-+ M-B'   (aka `M-+ M-S-b') -\n       `diredp-do-bookmark-dirs-recursive'\n   `M-+ C-M-B' (aka `M-+ C-M-S-b') -\n       `diredp-do-bookmark-in-bookmark-file-recursive'\n   `M-+ C-M-T' (aka `M-+ C-M-S-t') - `diredp-do-touch-recursive'\n\n (See also `(info \"(org) TTY keys\")' for more information about\n keys that can be problematic in terminal mode.)\n\n\n Faces defined here:\n\n   `diredp-autofile-name', `diredp-compressed-file-suffix',\n   `diredp-date-time', `diredp-deletion',\n   `diredp-deletion-file-name', `diredp-dir-heading',\n   `diredp-dir-priv', `diredp-exec-priv', `diredp-executable-tag',\n   `diredp-file-name', `diredp-file-suffix', `diredp-flag-mark',\n   `diredp-flag-mark-line', `diredp-get-file-or-dir-name',\n   `diredp-ignored-file-name', `diredp-link-priv',\n   `diredp-mode-line-flagged', `diredp-mode-line-marked'\n   `diredp-no-priv', `diredp-number', `diredp-other-priv',\n   `diredp-rare-priv', `diredp-read-priv', `diredp-symlink',\n   `diredp-tagged-autofile-name', `diredp-write-priv'.\n\n Commands defined here:\n\n   `diredp-add-to-dired-buffer', `diredp-add-to-this-dired-buffer',\n   `diredp-do-apply-function',\n   `diredp-do-apply-function-recursive',\n   `diredp-async-shell-command-this-file',\n   `diredp-bookmark-this-file',\n   `diredp-breadcrumbs-in-header-line-mode' (Emacs 22+),\n   `diredp-byte-compile-this-file', `diredp-capitalize',\n   `diredp-capitalize-recursive', `diredp-capitalize-this-file',\n   `diredp-chgrp-this-file', `diredp-chmod-this-file',\n   `diredp-chown-this-file',\n   `diredp-compilation-files-other-window' (Emacs 24+),\n   `diredp-compress-this-file',\n   `diredp-copy-filename-as-kill-recursive',\n   `diredp-copy-tags-this-file', `diredp-copy-this-file',\n   `diredp-decrypt-this-file', `diredp-delete-this-file',\n   `diredp-describe-autofile', `diredp-describe-file',\n   `diredp-describe-marked-autofiles', `diredp-describe-mode',\n   `diredp-dired-for-files', `diredp-dired-for-files-other-window',\n   `diredp-dired-inserted-subdirs', `diredp-dired-plus-help',\n   `diredp-dired-recent-dirs',\n   `diredp-dired-recent-dirs-other-window',\n   `diredp-dired-this-subdir', `diredp-dired-union',\n   `diredp-do-async-shell-command-recursive', `diredp-do-bookmark',\n   `diredp-do-bookmark-dirs-recursive',\n   `diredp-do-bookmark-in-bookmark-file',\n   `diredp-do-bookmark-in-bookmark-file-recursive',\n   `diredp-do-bookmark-recursive', `diredp-do-chmod-recursive',\n   `diredp-do-chgrp-recursive', `diredp-do-chown-recursive',\n   `diredp-do-copy-recursive', `diredp-do-decrypt-recursive',\n   `diredp-do-delete-recursive', `diredp-do-display-images' (Emacs\n   22+), `diredp-do-encrypt-recursive',\n   `diredp-do-find-marked-files-recursive', `diredp-do-grep',\n   `diredp-do-grep-recursive', `diredp-do-hardlink-recursive',\n   `diredp-do-isearch-recursive',\n   `diredp-do-isearch-regexp-recursive',\n   `diredp-do-move-recursive', `diredp-do-paste-add-tags',\n   `diredp-do-paste-replace-tags', `diredp-do-print-recursive',\n   `diredp-do-query-replace-regexp-recursive',\n   `diredp-do-redisplay-recursive',\n   `diredp-do-relsymlink-recursive', `diredp-do-remove-all-tags',\n   `diredp-do-search-recursive', `diredp-do-set-tag-value',\n   `diredp-do-shell-command-recursive', `diredp-do-sign-recursive',\n   `diredp-do-symlink-recursive', `diredp-do-tag',\n   `diredp-do-touch-recursive', `diredp-do-untag',\n   `diredp-do-verify-recursive', `diredp-downcase-recursive',\n   `diredp-downcase-this-file', `diredp-ediff',\n   `diredp-encrypt-this-file', `diredp-fileset',\n   `diredp-fileset-other-window', `diredp-find-a-file',\n   `diredp-find-a-file-other-frame',\n   `diredp-find-a-file-other-window',\n   `diredp-find-file-other-frame',\n   `diredp-find-file-reuse-dir-buffer',\n   `diredp-find-line-file-other-window',\n   `diredp-flag-region-files-for-deletion',\n   `diredp-grepped-files-other-window', `diredp-grep-this-file',\n   `diredp-hardlink-this-file', `diredp-highlight-autofiles-mode',\n   `diredp-image-dired-comment-file',\n   `diredp-image-dired-comment-files-recursive',\n   `diredp-image-dired-copy-with-exif-name',\n   `diredp-image-dired-create-thumb',\n   `diredp-image-dired-delete-tag',\n   `diredp-image-dired-delete-tag-recursive',\n   `diredp-image-dired-display-thumb',\n   `diredp-image-dired-display-thumbs-recursive',\n   `diredp-image-dired-edit-comment-and-tags',\n   `diredp-image-dired-tag-file',\n   `diredp-image-dired-tag-files-recursive',\n   `diredp-image-show-this-file', `diredp-insert-as-subdir',\n   `diredp-insert-subdirs', `diredp-insert-subdirs-recursive',\n   `diredp-kill-this-tree', `diredp-list-marked-recursive',\n   `diredp-load-this-file', `diredp-mark-autofiles',\n   `diredp-marked', `diredp-marked-other-window',\n   `diredp-marked-recursive',\n   `diredp-marked-recursive-other-window',\n   `diredp-mark-extension-recursive',\n   `diredp-mark-files-regexp-recursive',\n   `diredp-mark-files-tagged-all', `diredp-mark-files-tagged-none',\n   `diredp-mark-files-tagged-not-all',\n   `diredp-mark-files-tagged-some',\n   `diredp-mark-files-tagged-regexp', `diredp-mark-region-files',\n   `diredp-mark/unmark-autofiles', `diredp-mark/unmark-extension',\n   `diredp-mouse-3-menu', `diredp-mouse-backup-diff',\n   `diredp-mouse-copy-tags', `diredp-mouse-describe-autofile',\n   `diredp-mouse-describe-file', `diredp-mouse-diff',\n   `diredp-mouse-do-bookmark', `diredp-mouse-do-byte-compile',\n   `diredp-mouse-do-chgrp', `diredp-mouse-do-chmod',\n   `diredp-mouse-do-chown', `diredp-mouse-do-compress',\n   `diredp-mouse-do-copy', `diredp-mouse-do-delete',\n   `diredp-mouse-do-grep', `diredp-mouse-do-hardlink',\n   `diredp-mouse-do-load', `diredp-mouse-do-print',\n   `diredp-mouse-do-remove-all-tags', `diredp-mouse-do-rename',\n   `diredp-mouse-do-set-tag-value',\n   `diredp-mouse-do-shell-command', `diredp-mouse-do-symlink',\n   `diredp-mouse-do-tag', `diredp-mouse-do-untag',\n   `diredp-mouse-downcase', `diredp-mouse-ediff',\n   `diredp-mouse-find-line-file-other-window',\n   `diredp-mouse-find-file-other-frame',\n   `diredp-mouse-find-file-reuse-dir-buffer',\n   `diredp-mouse-flag-file-deletion', `diredp-mouse-mark',\n   `diredp-mouse-mark-region-files', `diredp-mouse-mark/unmark',\n   `diredp-mouse-unmark', `diredp-mouse-upcase',\n   `diredp-mouse-view-file',\n   `diredp-multiple-w32-browser-recursive',\n   `diredp-nb-marked-in-mode-name', `diredp-next-dirline',\n   `diredp-next-line', `diredp-next-subdir', `diredp-omit-marked',\n   `diredp-omit-unmarked', `diredp-paste-add-tags-this-file',\n   `diredp-paste-replace-tags-this-file', `diredp-prev-dirline',\n   `diredp-previous-line', `diredp-prev-subdir',\n   `diredp-print-this-file', `diredp-relsymlink-this-file',\n   `diredp-remove-all-tags-this-file', `diredp-rename-this-file',\n   `diredp-send-bug-report',\n   `diredp-set-bookmark-file-bookmark-for-marked',\n   `diredp-set-bookmark-file-bookmark-for-marked-recursive',\n   `diredp-set-tag-value-this-file',\n   `diredp-shell-command-this-file', `diredp-show-metadata',\n   `diredp-show-metadata-for-marked', `diredp-sign-this-file',\n   `diredp-symlink-this-file', `diredp-tag-this-file',\n   `diredp-toggle-find-file-reuse-dir',\n   `diredp-toggle-marks-in-region', `diredp-touch-this-file',\n   `diredp-unmark-autofiles', `diredp-unmark-files-tagged-all',\n   `diredp-unmark-files-tagged-none',\n   `diredp-unmark-files-tagged-not-all',\n   `diredp-unmark-files-tagged-some', `diredp-unmark-region-files',\n   `diredp-untag-this-file', `diredp-upcase-recursive',\n   `diredp-up-directory', `diredp-up-directory-reuse-dir-buffer',\n   `diredp-upcase-this-file', `diredp-verify-this-file',\n   `diredp-w32-drives', `diredp-w32-drives-mode',\n   `global-dired-hide-details-mode' (Emacs 24.4+),\n   `toggle-diredp-find-file-reuse-dir'.\n\n User options defined here:\n\n   `diredp-auto-focus-frame-for-thumbnail-tooltip-flag',\n   `diredp-bind-problematic-terminal-keys',\n   `diredp-compressed-extensions', `diredp-count-.-and-..-flag'\n   (Emacs 22+), `diredp-dwim-any-frame-flag' (Emacs 22+),\n   `diredp-image-preview-in-tooltip', `diff-switches',\n   `diredp-hide-details-initially-flag' (Emacs 24.4+),\n   `diredp-highlight-autofiles-mode',\n   `diredp-hide-details-propagate-flag' (Emacs 24.4+),\n   `diredp-ignore-compressed-flag',\n   `diredp-image-show-this-file-use-frame-flag' (Emacs 22+),\n   `diredp-max-frames', `diredp-prompt-for-bookmark-prefix-flag',\n   `diredp-w32-local-drives', `diredp-wrap-around-flag'.\n\n Non-interactive functions defined here:\n\n   `derived-mode-p' (Emacs < 22), `diredp-all-files',\n   `diredp-ancestor-dirs', `diredp-bookmark',\n   `diredp-create-files-non-directory-recursive',\n   `diredp-delete-dups', `diredp-directories-within',\n   `diredp-dired-plus-description',\n   `diredp-dired-plus-description+links',\n   `diredp-dired-plus-help-link', `diredp-dired-union-1',\n   `diredp-dired-union-interactive-spec',\n   `diredp-display-graphic-p', `diredp-display-image' (Emacs 22+),\n   `diredp-do-chxxx-recursive', `diredp-do-create-files-recursive',\n   `diredp-do-grep-1', `diredp-ensure-bookmark+',\n   `diredp-ensure-mode', `diredp-existing-dired-buffer-p',\n   `diredp-fewer-than-2-files-p', `diredp-fileset-1',\n   `diredp-find-a-file-read-args',\n   `diredp-file-for-compilation-hit-at-point' (Emacs 24+),\n   `diredp-files-within', `diredp-files-within-1',\n   `diredp-fit-frame-unless-buffer-narrowed' (Emacs 24.4+),\n   `diredp-get-confirmation-recursive', `diredp-get-files',\n   `diredp-get-files-for-dir', `diredp-get-subdirs',\n   `diredp-hide-details-if-dired' (Emacs 24.4+),\n   `diredp-hide/show-details' (Emacs 24.4+),\n   `diredp-highlight-autofiles', `diredp-image-dired-required-msg',\n   `diredp-get-image-filename', `diredp-internal-do-deletions',\n   `diredp-list-files', `diredp-looking-at-p',\n   `diredp-make-find-file-keys-reuse-dirs',\n   `diredp-make-find-file-keys-not-reuse-dirs', `diredp-maplist',\n   `diredp-marked-here', `diredp-mark-files-tagged-all/none',\n   `diredp-mark-files-tagged-some/not-all',\n   `diredp-nonempty-region-p', `diredp-parent-dir',\n   `diredp-paste-add-tags', `diredp-paste-replace-tags',\n   `diredp-read-bookmark-file-args', `diredp-read-include/exclude',\n   `diredp-read-regexp', `diredp-recent-dirs',\n   `diredp-refontify-buffer', `diredp-remove-if',\n   `diredp-remove-if-not', `diredp--reuse-dir-buffer-helper',\n   `diredp-root-directory-p', `diredp-set-header-line-breadcrumbs'\n   (Emacs 22+), `diredp-set-tag-value', `diredp-set-union',\n   `diredp--set-up-font-locking', `diredp-string-match-p',\n   `diredp-tag', `diredp-this-file-marked-p',\n   `diredp-this-file-unmarked-p', `diredp-this-subdir',\n   `diredp-untag', `diredp-y-or-n-files-p'.\n\n Variables defined here:\n\n   `diredp-bookmark-menu', `diredp-file-line-overlay',\n   `diredp-files-within-dirs-done', `diredp-font-lock-keywords-1',\n   `diredp-hide-details-last-state' (Emacs 24.4+),\n   `diredp-hide-details-toggled' (Emacs 24.4+),\n   `diredp-hide/show-menu', `diredp-images-recursive-menu',\n   `diredp-list-files-map', `diredp-loaded-p',\n   `diredp-marks-recursive-menu', `diredp-menu-bar-dir-menu',\n   `diredp-menu-bar-marks-menu', `diredp-menu-bar-multiple-menu',\n   `diredp-menu-bar-regexp-menu', `diredp-menu-bar-single-menu',\n   `diredp-multiple-bookmarks-menu', `diredp-multiple-delete-menu',\n   `diredp-multiple-dired-menu', `diredp-multiple-images-menu',\n   `diredp-multiple-encryption-menu',\n   `diredp-multiple-move-copy-link-menu',\n   `diredp-multiple-omit-menu', `diredp-multiple-recursive-menu',\n   `diredp-multiple-rename-menu', `diredp-multiple-search-menu',\n   `diredp-navigate-menu', `diredp-regexp-recursive-menu',\n   `diredp-re-no-dot', `diredp-single-bookmarks-menu',\n   `diredp-single-encryption-menu', `diredp-single-image-menu',\n   `diredp-single-move-copy-link-menu', `diredp-single-open-menu',\n   `diredp-single-rename-menu', `diredp-w32-drives-mode-map'.\n\n Macros defined here:\n\n   `diredp-with-help-window'.\n\n\n ***** NOTE: The following macros defined in `dired.el' have\n             been REDEFINED HERE:\n\n `dired-map-over-marks'    - Treat multiple `C-u' specially.\n `dired-mark-if'           - Better initial msg - Emacs bug #8523.\n\n\n ***** NOTE: The following functions defined in `dired.el' have\n             been REDEFINED or ADVISED HERE:\n\n `dired'                   - Handle non-positive prefix arg.\n `dired-do-delete'         - Display message to warn that marked,\n                             not flagged, files will be deleted.\n `dired-do-flagged-delete' - Display message to warn that flagged,\n                             not marked, files will be deleted.\n `dired-dwim-target-directory' - Uses `diredp-dwim-any-frame-flag'.\n `dired-find-file'         - Allow `.' and `..' (Emacs 20 only).\n `dired-get-filename'      - Test `./' and `../' (like `.', `..').\n `dired-goto-file'         - Fix Emacs bug #7126.\n                             Remove `/' from dir before compare.\n                             (Emacs < 24 only.)\n `dired-hide-details-mode' - Respect new user options:\n                             * `diredp-hide-details-initially-flag'\n                             * `diredp-hide-details-propagate-flag'\n                             (Emacs 24.4+)\n `dired-insert-directory'  - Compute WILDCARD arg for\n                             `insert-directory' for individual file\n                             (don't just use nil). (Emacs 23+, and\n                             only for MS Windows)\n `dired-insert-set-properties' - `mouse-face' on whole line.\n `dired-mark-files-regexp' - Add regexp to `regexp-search-ring'.\n                             More matching possibilities.\n                             Added optional arg LOCALP.\n `dired-mark-pop-up'       - Delete the window or frame popped up,\n                             afterward, and bury its buffer. Do not\n                             show a menu bar for pop-up frame.\n `dired-other-frame'       - Handle non-positive prefix arg.\n `dired-other-window'      - Handle non-positive prefix arg.\n `dired-pop-to-buffer'     - Put window point at bob (bug #12281).\n                             (Emacs 22-24.1)\n `dired-read-dir-and-switches' - Non-positive prefix arg behavior.\n" unbound unbound unbound unbound unbound unbound unbound unbound unbound nil nil 84474) t)
  (and row (closql--remake-instance class db row t))
  (let ((row (car (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i2)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-primary-key) ident)))) (and row (closql--remake-instance class db row t)))
  (progn (if class nil (setq class (eieio-oref-default db 'object-class))) (let ((row (car (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i2)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-primary-key) ident)))) (and row (closql--remake-instance class db row t))))
  (progn (progn (if class nil (setq class (eieio-oref-default db 'object-class))) (let ((row (car (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i2)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-primary-key) ident)))) (and row (closql--remake-instance class db row t)))))
  (closure (t) (db ident &optional class) (progn (progn (if class nil (setq class (eieio-oref-default db 'object-class))) (let ((row (car (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i2)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-primary-key) ident)))) (and row (closql--remake-instance class db row t))))))(#<epkg-database epkg-database-40d318b4> "dired+")
  apply((closure (t) (db ident &optional class) (progn (progn (if class nil (setq class (eieio-oref-default db 'object-class))) (let ((row (car (emacsql db [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i2)]] (eieio-oref-default class 'closql-table) (eieio-oref-default class 'closql-primary-key) ident)))) (and row (closql--remake-instance class db row t)))))) #<epkg-database epkg-database-40d318b4> "dired+")
  closql-get(#<epkg-database epkg-database-40d318b4> "dired+")
  epkg("dired+")
  epkg-describe-package("dired+")
  funcall-interactively(epkg-describe-package "dired+")
  call-interactively(epkg-describe-package record nil)
  command-execute(epkg-describe-package record)
  helm-M-x(nil "epkg-describe-package")
  funcall-interactively(helm-M-x nil "epkg-describe-package")
  call-interactively(helm-M-x nil nil)
  command-execute(helm-M-x)

---

Epkg v3.0.0-30-gbc78f60 Emacs 27.0.50

[tarsius]

Emacs 27.0.50

Did you just switch to that? You probably have to recompile everything. The internal representation of objects has changed from arrays to records.

[xuchunyang]

Yes. Recompiling does fix the problem.

Thanks.