-
Notifications
You must be signed in to change notification settings - Fork 24
Open
Description
When enable dired+, run dired, get following errror: (but nerd-icons-dired no this issue), thanks
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
+(0 nil)
(setq count (+ count (dired-do-kill-lines nil (if dired-omit-verbose (format "Omitted %%d line%%s in `%s'" (current-buffer)) "") init-count)))
(if (not (if linep (let ((msg nil) (inhibit-read-only t) count (use-region-p (dired-mark--region-use-p)) (beg (dired-mark--region-beginning)) (end (dired-mark--region-end))) (save-excursion (setq count 0) (if msg (progn (message "%s %ss%s%s..." ... msg ... ...))) (goto-char beg) (while (< (point) end) (if (and ... ...) (progn ...)) (forward-line 1)) (if msg (progn (message "%s %s%s %s%s%s" count msg ... ... ... ...)))) (and (> count 0) count)) (dired-mark-unmarked-files omit-re nil nil dired-omit-localp (dired-omit-case-fold-p (if (stringp dired-directory) dired-directory (car dired-directory)))))) (if dired-omit-verbose (progn (message "(Nothing to omit)"))) (setq count (+ count (dired-do-kill-lines nil (if dired-omit-verbose (format "Omitted %%d line%%s in `%s'" (current-buffer)) "") init-count))) (force-mode-line-update))
(let ((dired-marker-char dired-omit-marker-char)) (if dired-omit-verbose (progn (message "Omitting..."))) (if (not (if linep (let ((msg nil) (inhibit-read-only t) count (use-region-p (dired-mark--region-use-p)) (beg (dired-mark--region-beginning)) (end (dired-mark--region-end))) (save-excursion (setq count 0) (if msg (progn ...)) (goto-char beg) (while (< ... end) (if ... ...) (forward-line 1)) (if msg (progn ...))) (and (> count 0) count)) (dired-mark-unmarked-files omit-re nil nil dired-omit-localp (dired-omit-case-fold-p (if (stringp dired-directory) dired-directory (car dired-directory)))))) (if dired-omit-verbose (progn (message "(Nothing to omit)"))) (setq count (+ count (dired-do-kill-lines nil (if dired-omit-verbose (format "Omitted %%d line%%s in `%s'" (current-buffer)) "") init-count))) (force-mode-line-update)))
(if (string= omit-re "") nil (let ((dired-marker-char dired-omit-marker-char)) (if dired-omit-verbose (progn (message "Omitting..."))) (if (not (if linep (let ((msg nil) (inhibit-read-only t) count (use-region-p ...) (beg ...) (end ...)) (save-excursion (setq count 0) (if msg ...) (goto-char beg) (while ... ... ...) (if msg ...)) (and (> count 0) count)) (dired-mark-unmarked-files omit-re nil nil dired-omit-localp (dired-omit-case-fold-p (if ... dired-directory ...))))) (if dired-omit-verbose (progn (message "(Nothing to omit)"))) (setq count (+ count (dired-do-kill-lines nil (if dired-omit-verbose (format "Omitted %%d line%%s in `%s'" ...) "") init-count))) (force-mode-line-update))))
(let ((omit-re (or regexp (dired-omit-regexp))) (old-modified-p (buffer-modified-p)) (count (or init-count 0))) (if (string= omit-re "") nil (let ((dired-marker-char dired-omit-marker-char)) (if dired-omit-verbose (progn (message "Omitting..."))) (if (not (if linep (let (... ... count ... ... ...) (save-excursion ... ... ... ... ...) (and ... count)) (dired-mark-unmarked-files omit-re nil nil dired-omit-localp (dired-omit-case-fold-p ...)))) (if dired-omit-verbose (progn (message "(Nothing to omit)"))) (setq count (+ count (dired-do-kill-lines nil (if dired-omit-verbose ... "") init-count))) (force-mode-line-update)))) (set-buffer-modified-p (and old-modified-p (save-excursion (goto-char (point-min)) (re-search-forward dired-re-mark nil t)))) count)
(if (and dired-omit-mode (or (called-interactively-p 'interactive) (not dired-omit-size-limit) (< (buffer-size) dired-omit-size-limit) (progn (if dired-omit-verbose (progn (message "Not omitting: directory larger than %d characters." dired-omit-size-limit))) (setq dired-omit-mode nil) nil))) (let ((omit-re (or regexp (dired-omit-regexp))) (old-modified-p (buffer-modified-p)) (count (or init-count 0))) (if (string= omit-re "") nil (let ((dired-marker-char dired-omit-marker-char)) (if dired-omit-verbose (progn (message "Omitting..."))) (if (not (if linep (let ... ... ...) (dired-mark-unmarked-files omit-re nil nil dired-omit-localp ...))) (if dired-omit-verbose (progn (message "(Nothing to omit)"))) (setq count (+ count (dired-do-kill-lines nil ... init-count))) (force-mode-line-update)))) (set-buffer-modified-p (and old-modified-p (save-excursion (goto-char (point-min)) (re-search-forward dired-re-mark nil t)))) count))
dired-omit-expunge()
#<subr dired-readin>()
apply(#<subr dired-readin> nil)
all-the-icons-dired--refresh-advice(#<subr dired-readin>)
apply(all-the-icons-dired--refresh-advice #<subr dired-readin> nil)
dired-readin()
dired-internal-noselect("~/Dropbox/common/.emacs.d/" nil)
dired-noselect("~/Dropbox/common/.emacs.d/" nil)
#<subr dired>("~/Dropbox/common/.emacs.d/" nil)
ad-Advice-dired(#<subr dired> "~/Dropbox/common/.emacs.d/" nil)
apply(ad-Advice-dired #<subr dired> ("~/Dropbox/common/.emacs.d/" nil))
dired("~/Dropbox/common/.emacs.d/" nil)
funcall-interactively(dired "~/Dropbox/common/.emacs.d/" nil)
command-execute(dired record)
#<subr execute-extended-command>(nil "dired" "dired")
ad-Advice-execute-extended-command(#<subr execute-extended-command> nil "dired" "dired")
apply(ad-Advice-execute-extended-command #<subr execute-extended-command> (nil "dired" "dired"))
execute-extended-command(nil "dired" "dired")
funcall-interactively(execute-extended-command nil "dired" "dired")
command-execute(execute-extended-command)
Reactions are currently unavailable
Metadata
Metadata
Assignees
Labels
No labels