3

При латексировании, предварительном просмотре и переходе к PDF из emacs иногда возникают ошибки и проблемы, и в этом случае emacs выдает кучу кадров, которые вторгаются в окно редактирования и которые мне приходится каким-то образом закрывать вручную. Как вы посоветуете мне не допустить этого? Я предпочел бы пойти и посмотреть на соответствующий буфер, если я действительно забочусь об ошибке, или даже лучше, ошибка латекса могла появиться в отдельном окне, которое находится в фоновом режиме.

1 ответ1

0

Это может быть хорошей отправной точкой (взято из EmacsWiki):

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Bury unwanted buffers ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;

; necessary support function for buffer burial
(defun crs-delete-these (delete-these from-this-list)
  "Delete DELETE-THESE FROM-THIS-LIST."
  (cond
   ((car delete-these)
    (if (member (car delete-these) from-this-list)
        (crs-delete-these (cdr delete-these) (delete (car delete-these)
                             from-this-list))
      (crs-delete-these (cdr delete-these) from-this-list)))
   (t from-this-list)))
                    ; this is the list of buffers I never want to see
(defvar crs-hated-buffers
  '("KILL" "*Compile-Log*" "*Messages*" "*scratch*" "*auto-install"))
                    ; might as well use this for both
(setq iswitchb-buffer-ignore (append '("^ " "*Buffer") crs-hated-buffers))
(defun crs-hated-buffers ()
  "List of buffers I never want to see, converted from names to buffers."
  (delete nil
          (append
           (mapcar 'get-buffer crs-hated-buffers)
           (mapcar (lambda (this-buffer)
                     (if (string-match "^ " (buffer-name this-buffer))
                         this-buffer))
                   (buffer-list)))))
; I'm sick of switching buffers only to find KILL right in front of me
(defun crs-bury-buffer (&optional n)
  (interactive)
  (unless n
    (setq n 1))
  (let ((my-buffer-list (crs-delete-these (crs-hated-buffers)
                                          (buffer-list (selected-frame)))))
    (switch-to-buffer
     (if (< n 0)
         (nth (+ (length my-buffer-list) n)
              my-buffer-list)
       (bury-buffer)
       (nth n my-buffer-list)))))
(global-set-key [(control tab)] 'crs-bury-buffer)
(global-set-key [(control meta tab)] (lambda ()
                                       (interactive)
                                       (crs-bury-buffer -1)))

Добавьте имена буферов, которые вы никогда не хотите видеть, в crs-hated-buffers.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .