projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4a40307
)
Cosmetics.
author
Francois Fleuret
<francois@fleuret.org>
Sat, 13 Nov 2010 10:22:54 +0000
(11:22 +0100)
committer
Francois Fleuret
<francois@fleuret.org>
Sat, 13 Nov 2010 10:22:54 +0000
(11:22 +0100)
emacs.el
patch
|
blob
|
history
diff --git
a/emacs.el
b/emacs.el
index
9e07d60
..
70b0552
100644
(file)
--- a/
emacs.el
+++ b/
emacs.el
@@
-948,8
+948,8
@@
printer."
)
)
- ;;
display-time-format "%b %a %e %H:%M"
- ;;
display-time-mail-face nil
+ ;; display-time-format "%b %a %e %H:%M"
+ ;; display-time-mail-face nil
)
;; Show the time, mail and stuff
)
;; Show the time, mail and stuff
@@
-1714,8
+1714,8
@@
and refilling all the paragraphs."
(define-key latex-mode-map [(control c) (control a)] 'align-current)
(define-key latex-mode-map [(control end)] 'tex-close-latex-block)
(define-key latex-mode-map [(control tab)] 'ispell-complete-word)
(define-key latex-mode-map [(control c) (control a)] 'align-current)
(define-key latex-mode-map [(control end)] 'tex-close-latex-block)
(define-key latex-mode-map [(control tab)] 'ispell-complete-word)
-
(flyspell-mode
)
-
(reftex-mode
)
+
;; (flyspell-mode 1
)
+
;; (reftex-mode 1
)
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@
-1920,7
+1920,7
@@
a file in /tmp"
)
)
)
)
-(
setq compilation-finish-functions (cons 'ff/restore-windows-if-no-error compilation-finish-functions)
)
+(
add-to-list 'compilation-finish-functions 'ff/restore-windows-if-no-error
)
(defun ff/fast-compile ()
"Compiles without asking anything."
(defun ff/fast-compile ()
"Compiles without asking anything."
@@
-2024,7
+2024,7
@@
This may be a useful alternative binding for \\[delete-other-windows]
(while (re-search-forward "[0-9\.]+" nil t)
(let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
(delete-region (match-beginning 0) (match-end 0))
(while (re-search-forward "[0-9\.]+" nil t)
(let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
(delete-region (match-beginning 0) (match-end 0))
- (insert (format "%0.
2
f" value)))))))
+ (insert (format "%0.
0
f" value)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keymaping
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keymaping