Browse Source

Delete scratch buf only if found

pull/5/head
10sr 9 years ago
parent
commit
dddfd9785d
1 changed files with 7 additions and 6 deletions
  1. +7
    -6
      emacs.el

+ 7
- 6
emacs.el View File

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


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


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


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


(defvar-set woman-cache-filename (expand-file-name (concat user-emacs-directory (defvar-set woman-cache-filename (expand-file-name (concat user-emacs-directory
"woman_cache.el")))
"woman_cache.el")))
(defalias 'man 'woman) (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 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 (defvar eshell-text-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))


Loading…
Cancel
Save