sjs/config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

new function to revert buffer without confirmation if not modified.

Browse source
This commit is contained in:
Sami Samhuri 2010-05-18 09:47:18 -07:00
parent 8413cd2bcb
commit 59c68e516f
2 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
emacs
View file

@ -314,9 +314,10 @@
(global-set-key "\M-`" 'other-window-in-any-frame) (global-set-key "\M-`" 'other-window-in-any-frame)
;; custom key bindings under a common prefix ;; custom key bindings under a common prefix
;; (Suspend is useless. Give me C-z!)
(global-unset-key "\C-z") (global-unset-key "\C-z")
(global-set-key "\C-z" nil) ; Suspend is useless. Give me C-z! (global-set-key "\C-z" nil)
(global-set-key "\C-zc" 'comment-line) (global-set-key "\C-zc" 'compile)
(global-set-key "\C-zf" 'find-file-at-point) (global-set-key "\C-zf" 'find-file-at-point)
(global-set-key "\C-zg" 'goto-line) (global-set-key "\C-zg" 'goto-line)
(global-set-key "\C-zj" 'run-js) (global-set-key "\C-zj" 'run-js)
@ -324,6 +325,7 @@
(global-set-key "\C-zm" 'minimap-create) (global-set-key "\C-zm" 'minimap-create)
(global-set-key "\C-zM" 'minimap-kill) (global-set-key "\C-zM" 'minimap-kill)
(global-set-key "\C-zr" 'query-replace-regexp) (global-set-key "\C-zr" 'query-replace-regexp)
(global-set-key "\C-zR" 'revert-buffer-without-confirmation)
(global-set-key "\C-zs" 'run-scheme) (global-set-key "\C-zs" 'run-scheme)
(global-set-key "\C-zt" 'tagify-region-or-insert-tag) (global-set-key "\C-zt" 'tagify-region-or-insert-tag)
(global-set-key "\C-zz" 'shell) ; z for zsh (global-set-key "\C-zz" 'shell) ; z for zsh
@ -342,18 +344,22 @@
;; wrap a region with an HTML/XML tag ;; wrap a region with an HTML/XML tag
(global-set-key "<" 'tagify-region-or-insert-self) (global-set-key "<" 'tagify-region-or-insert-self)
(global-set-key [f5] 'compile)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; utilities & customizations ;; utilities & customizations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(fset 'comment-line ;; now, how can I call this automatically when a file is changed out
(lambda (&optional arg) ;; from under a buffer? (like textmate)
"Comment or uncomment the current line using `comment-dwim'." (defun revert-buffer-without-confirmation (&optional prefix)
(interactive "p") "If the current buffer has no unsaved changes, revert it
(kmacro-call-macro (quote ([1 67108896 14 134217787 16] 0 "%d")) arg))) without confirmation, and ignoring auto-save files. If there
are unsaved changes then revert with confirmation."
(interactive "P")
(let ((no-confirm (or prefix
(not (buffer-modified-p)))))
(revert-buffer t no-confirm)
(when no-confirm (message (concat "Reverted " (buffer-name))))))
(defun duplicate-line (&optional arg) (defun duplicate-line (&optional arg)
"Duplicate the current line." "Duplicate the current line."

2
emacs.d/color-theme/color-theme.el
View file

@ -4610,7 +4610,7 @@ Wheat on black. Includes faces for font-lock, gnus, paren."
(interactive) (interactive)
(color-theme-install (color-theme-install
'(color-theme-taylor '(color-theme-taylor
((background-color . "black") ((background-color . "#111")
(background-mode . dark) (background-mode . dark)
(border-color . "black") (border-color . "black")
(cursor-color . "red") (cursor-color . "red")