Просмотр исходного кода

Delete scratch buf only if found

pull/5/head
10sr 9 лет назад
Родитель
Сommit
dddfd9785d
1 измененных файлов: 7 добавлений и 6 удалений
  1. +7
    -6
      emacs.el

+ 7
- 6
emacs.el Просмотреть файл

@@ -310,7 +310,9 @@ IF OK-IF-ALREADY-EXISTS is true force download."

;; kill scratch
(call-after-init (lambda ()
(kill-buffer "*scratch*")))
(let ((buf (get-buffer "*scratch*")))
(when buf
(kill-buffer buf)))))

;; modifier keys
;; (setq mac-option-modifier 'control)
@@ -455,8 +457,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; display date
(call-after-init (lambda ()
(when display-time-mode
(display-time-update))
))
(display-time-update))))

(when (safe-require-or-eval 'time)
(setq display-time-interval 29)
@@ -1327,7 +1328,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
'aggressive))

(defvar-set woman-cache-filename (expand-file-name (concat user-emacs-directory
"woman_cache.el")))
"woman_cache.el")))
(defalias 'man 'woman)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -2007,8 +2008,8 @@ Optional prefix ARG says how many lines to unflag; default is one line."
C-x t to toggling emacs-text-mode

"
(shell-command-to-string "uname -a")
))
(shell-command-to-string "uname -a")
))

(defvar eshell-text-mode-map
(let ((map (make-sparse-keymap)))


Загрузка…
Отмена
Сохранить