From: Francois Fleuret <francois@fleuret.org>
Date: Sun, 20 Dec 2015 14:27:20 +0000 (+0100)
Subject: Update.
X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=commitdiff_plain;h=ccf4141d0aa6fc7f73567e99d07d8e389ec638cf

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