Ranger: texi support.

Emacs: fixed texinfo bugs.

.config/ranger/rifle.conf

@@ -90,6 +90,7 @@ ext s[wmf]c, has zsnes, X     = zsnes "$1"
 ext nes, has fceux, X         = fceux "$1"
 ext exe                       = wine "$1"
 name ^[mM]akefile$            = make
+ext texi                      = "$EDITOR" -- "$@"
 
 #--------------------------------------------
 # Code

.emacs.d/modes.el

@@ -496,7 +496,7 @@ The file that should be compiled."
       (delete-windows-on "*compilation*"))))
 
 
-(defcustom texinfo-my-extension-list '(".aux" ".cp" ".cps" ".fn" ".ky" ".log" ".pg" ".toc" ".tp" ".vr" ".vrs")
+(defcustom texinfo-my-extension-list '("aux" "cp" "cps" "fn" "ky" "log" "pg" "toc" "tp" "vr" "vrs")
   "List of known Texinfo exentsions. This list is used by 'texinfo-clean to purge all matching files."
   :safe 'listp)
 
@@ -532,12 +532,12 @@ but there is no warranty."
   "Call a PDF viewer for current buffer file. File name should be
 properly escaped with double-quotes in case it has spaces."
   (interactive)
-  (let (
-        ;; Master file.
-        (local-master
-         (if (not texinfo-my-masterfile)
-             buffer-file-name
-           texinfo-my-masterfile)))
+  (let
+      ;; Master file.
+      ((local-master
+        (if (not texinfo-my-masterfile)
+            buffer-file-name
+          texinfo-my-masterfile)))
 
     (shell-command
      (concat texinfo-my-viewer
@@ -546,10 +546,22 @@ properly escaped with double-quotes in case it has spaces."
              "\" &" ))
     (delete-windows-on "*Async Shell Command*")))
 
+(defun texinfo-my-menu-update ()
+  "Update texinfo node menu automatically."
+  (interactive)
+  (let
+      ;; Master file.
+      ((local-master
+        (if (not texinfo-my-masterfile)
+            buffer-file-name
+          texinfo-my-masterfile)))
+
+    (texinfo-multiple-files-update local-master t 8)))
+
 (add-hook
  'texinfo-mode-hook
  (lambda ()
    (setq compilation-scroll-output t)
-   (local-set-key (kbd "C-c C-b") (lambda (interactive) (texinfo-multiple-files-update 8)))
+   (local-set-key (kbd "C-c C-b") 'texinfo-my-menu-update)
    (local-set-key (kbd "C-c C-v") 'texinfo-pdf-view)
    (local-set-key "\C-c\C-t\C-b" 'texinfo-my-compile)))

.emacs.d/plugins.el

@@ -150,7 +150,7 @@
 ;;==============================================================================
 ;; Multiple-Cursors
 ;;==============================================================================
-(add-to-list 'load-path "/usr/share/emacs/site-lisp/multiple-cursors")
+;; (add-to-list 'load-path "/usr/share/emacs/site-lisp/multiple-cursors")
 (if (require 'multiple-cursors nil t)
     (progn
       (setq mc/list-file "~/.emacs.d/mc-lists.el")

.emacs.d/theme.el

@@ -106,7 +106,7 @@
        '(("\\<\\(FIXME\\):" 1 font-lock-warning-face prepend)
          ("\\<\\(TODO\\):" 1 font-lock-warning-face prepend)
          ("\\<\\(WARNING\\):" 1 font-lock-warning-face prepend))))))
- '(lua-mode-hook prog-mode-hook tex-mode-hook))
+ '(lua-mode-hook prog-mode-hook tex-mode-hook texinfo-mode-hook))
 ;; Digits regex are not perfect, and may make emacs slow. Sure?
 ;; ("[^[:digit:][:space:]][[:space:]]*\\(-\\)[[:digit:]]+" 1 font-lock-constant-face)
 ;; ("\\(0x[[:digit:]a-fA-F]+\\)[^[:alnum:]_]" 1 font-lock-constant-face)