.emacs-my
changeset 1397 d4182b28cdc1
parent 1396 33de58ab0d11
child 1402 b1a1c92a7f55
equal deleted inserted replaced
1396:33de58ab0d11 1397:d4182b28cdc1
  1442 
  1442 
  1443 ;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
  1443 ;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
  1444 ;(autoload 'LaTeX-preview-setup "preview")
  1444 ;(autoload 'LaTeX-preview-setup "preview")
  1445 
  1445 
  1446 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1446 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1447 (message "Info")
  1447 (message "info")
  1448 
  1448 
  1449 (unless (getenv "INFOPATH")
  1449 (unless (getenv "INFOPATH")
  1450   (setenv "INFOPATH" (expand-file-name "~/usr/share/info:")))
  1450   (if (not (eq window-system 'w32))
       
  1451       (setenv "INFOPATH" (expand-file-name "~/usr/share/info:"))
       
  1452     (setenv "INFOPATH" (concat (expand-file-name "~/usr/share/info") ":/usr/share/info:"))))
  1451 
  1453 
  1452 ;; Assume that cygwin-mount already activated.
  1454 ;; Assume that cygwin-mount already activated.
  1453 (when (featurep 'cygwin-mount)
  1455 (when (featurep 'cygwin-mount)
  1454   (setenv "INFOPATH" "/usr/share/info/:~/usr/share/info/:")
  1456   (setenv "INFOPATH" "/usr/share/info/:~/usr/share/info/:")
  1455   ;; Redefine path-separator to UNIX to update Info-directory-list.
  1457   ;; Redefine path-separator to UNIX to update Info-directory-list.
  1456   (let ( (path-separator ":") )
  1458   (let ( (path-separator ":") )
  1457     (require 'info)
  1459     (require 'info)
  1458     (info-initialize)
  1460     (info-initialize)
  1459     ))
  1461     ))
  1460 
       
  1461 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
  1462 (message "info-lookup")
       
  1463 
  1462 
  1464 ;; Info index nodes for automake under Debian.
  1463 ;; Info index nodes for automake under Debian.
  1465 (defvar my-fix-for-automake-info-lookup
  1464 (defvar my-fix-for-automake-info-lookup
  1466   '(("(automake-1.11)Macro Index" nil
  1465   '(("(automake-1.11)Macro Index" nil
  1467      "^`" "['(]")
  1466      "^`" "['(]")