Procházet zdrojové kódy

Remove some more comment

master
10sr před 5 roky
rodič
revize
12bd48fcbc
Podepsáno: 10sr ID GPG klíče: 7BEC428194130EB2
1 změnil soubory, kde provedl 1 přidání a 33 odebrání
  1. +1
    -33
      emacs.el

+ 1
- 33
emacs.el Zobrazit soubor

@@ -1940,39 +1940,12 @@ read."
;;;;;;;;;;;;;;;;
;; recently-show

(defvar recently-show-window-height 10
"Max height of window of `recently-show'")

;; (defvar recently-show-mode-map
;; (let ((map (make-sparse-keymap)))
;; (suppress-keymap map)
;; (define-key map "n" 'next-line)
;; (define-key map "p" 'previous-line)
;; (define-key map (kbd "C-m") 'recently-show-find-file)
;; (define-key map (kbd "SPC") 'recently-show-find-file)
;; (define-key map "v" 'recently-show-view-file)
;; (define-key map "@" 'recently-show-dired)
;; (define-key map "q" 'recently-show-close)
;; (define-key map (kbd "C-g") 'recently-show-close)
;; (define-key map "?" 'describe-mode)
;; (define-key map "/" 'isearch-forward)
;; map))

;; (defvar recently-show-before-listing-hook nil
;; "Hook run before creating buffer of `recently-show'.")

(defvar recently-show-window-configuration nil
"Used for internal")

(defvar recently-show-abbreviate t
"Non-nil means use `abbreviate-file-name' when listing recently opened files.")

;; (define-derived-mode recently-show-mode special-mode "recently-show"
;; "Major mode for `recently-show'."
;; ;; (set (make-local-variable 'scroll-margin)
;; ;; 0)
;; )

;;;###autoload
(defun recently-show (&optional buffer-name)
"Show simplified list of recently opened files.
@@ -1984,13 +1957,8 @@ use for the buffer. It defaults to \"*recetf-show*\"."
(let ((bf (recently-show--create-buffer-tabulated buffer-name)))
(if bf
(progn
;; (recently-save-list)
(setq recently-show-window-configuration (current-window-configuration))
(pop-to-buffer bf)
;; (set-window-text-height (selected-window)
;; recently-show-window-height)
;; (shrink-window-if-larger-than-buffer (selected-window))
)
(pop-to-buffer bf))
(message "No recent file!"))))

(defun recently-show--create-buffer-tabulated (&optional buffer-name)


Načítá se…
Zrušit
Uložit