Function: wdired-change-to-dired-mode

wdired-change-to-dired-mode is a byte-compiled function defined in wdired.el.gz.

Signature

(wdired-change-to-dired-mode)

Documentation

Change the mode back to Dired.

This function has :after advice: evil--change-to-initial-state-with-msg.

Source Code

;; Defined in /usr/src/emacs/lisp/wdired.el.gz
(defun wdired-change-to-dired-mode ()
  "Change the mode back to Dired."
  (or (eq major-mode 'wdired-mode)
      (error "Not a Wdired buffer"))
  (let ((inhibit-read-only t))
    (remove-text-properties
     (point-min) (point-max)
     '(front-sticky nil rear-nonsticky nil read-only nil keymap nil)))
  (when wdired-search-replace-filenames
    (remove-function (local 'isearch-search-fun-function)
                     #'dired-isearch-search-filenames)
    (kill-local-variable 'replace-search-function)
    (kill-local-variable 'replace-re-search-function)
    ;; Restore dired hook
    (add-hook 'isearch-mode-hook #'dired-isearch-filenames-setup nil t))
  (use-local-map dired-mode-map)
  (force-mode-line-update)
  (setq buffer-read-only t)
  (setq major-mode 'dired-mode)
  (dired-sort-set-mode-line)
  (dired-advertise)
  (dired-hide-details-update-invisibility-spec)
  ;; Restore filename invisibility spec that is removed in
  ;; `wdired-change-to-wdired-mode'.
  (dired-filename-update-invisibility-spec)
  (remove-hook 'kill-buffer-hook #'wdired-check-kill-buffer t)
  (remove-hook 'before-change-functions #'wdired--before-change-fn t)
  (remove-hook 'after-change-functions #'wdired--restore-properties t)
  (remove-function (local 'revert-buffer-function) #'wdired-revert))