comparison lisp/files.el @ 50136:ad28e7a35442

* files.el (recover-session): Error if there are no previous sessions to recover. * subr.el (posn-col-row): Simplify. * arc-mode.el (archive-subtype, archive-file-list-start) (archive-file-list-end, archive-proper-file-start) (archive-read-only, archive-local-name, archive-mode-map) (archive-file-name-indent, archive-remote) (archive-alternate-display, archive-superior-buffer) (archive-subfile-mode): Doc fixes.

50135:167c56f6d789

  (interactive)
  (if (null auto-save-list-file-prefix)
      (error "You set `auto-save-list-file-prefix' to disable making session files"))
  (let ((dir (file-name-directory auto-save-list-file-prefix)))
    (unless (file-directory-p dir)
      (make-directory dir t)))
  (let ((ls-lisp-support-shell-wildcards t))
    (dired (concat auto-save-list-file-prefix "*")
	   (concat dired-listing-switches "t")))
  (save-excursion
    (goto-char (point-min))

50136:ad28e7a35442

  (interactive)
  (if (null auto-save-list-file-prefix)
      (error "You set `auto-save-list-file-prefix' to disable making session files"))
  (let ((dir (file-name-directory auto-save-list-file-prefix)))
    (unless (file-directory-p dir)
      (make-directory dir t))
    (unless (directory-files dir nil
			     (concat "\\`" (regexp-quote
					    (file-name-nondirectory
					     auto-save-list-file-prefix)))
			     t)
      (error "No previous sessions to recover")))
  (let ((ls-lisp-support-shell-wildcards t))
    (dired (concat auto-save-list-file-prefix "*")
	   (concat dired-listing-switches "t")))
  (save-excursion
    (goto-char (point-min))