From: Francois Fleuret Date: Sun, 20 Dec 2015 14:27:20 +0000 (+0100) Subject: Update. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=ccf4141d0aa6fc7f73567e99d07d8e389ec638cf;p=elisp.git Update. --- diff --git a/emacs.el b/emacs.el index 8060a20..bd8ada2 100644 --- a/emacs.el +++ b/emacs.el @@ -880,7 +880,8 @@ printer." ;; (`unknown "f") (`charging (format "↑%d%%" (ff/battery-percent))) (`discharging (format "↓%d%%" (ff/battery-percent))) - (`unknown "✱") + ;; (`unknown "✱") + (`unknown "F") (_ "?")) (error nil)) ) @@ -2078,7 +2079,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)) - (insert (format "%0.2f" value))))))) + (insert (format "%0.3f" value))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Keymaping diff --git a/vm b/vm index 57aea1f..b9e7233 100644 --- a/vm +++ b/vm @@ -327,29 +327,24 @@ attachement from mail." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Activate the required modes and authorize the commenting +(defun ff/does-not-fill (&optional a b) (interactive) (message "Nope")) + (defun ff/prepare-mail-mode () (bbdb-define-all-aliases) (flyspell-mode) - (auto-fill-mode) (mail-abbrevs-setup) (yas/minor-mode) - ;; (setq fill-paragraph-function 'mail-mode-fill-paragraph) + ;; Let's try the visual-line mode for mails - ;; Since I set the comment prefix, I have to tell the filling - ;; functions not to use it + (auto-fill-mode) + ;; (setq fill-paragraph-function 'ff/does-not-fill) + ;; (visual-line-mode) - ;; ******************* removed Aug 23 - ;; (setq fill-paragraph-handle-comment nil) - ;; ;; (when message-yank-prefix (set (make-local-variable 'comment-start) vm-included-text-prefix) - ;; (set (make-local-variable 'comment-start-skip) - ;; (concat "^\\(" (regexp-quote vm-included-text-prefix) "\\)")) - ;; ;; ) ) (add-hook 'mail-mode-hook 'ff/prepare-mail-mode) -;; (add-hook 'mail-mode-hook 'orgtbl-mode) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; To have a slightly darker background for headers