<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
;;; info-init.el --- info-browser init file

;; Copyright (C) 1999,2000 YAMASHITA Junji

;; Author: YAMASHITA Junji <ysjj@unixuser.org>
;; Keywords: init, info
;; Version: $Id: info-init.el,v 1.8 2002/01/08 06:25:23 ysjj Exp $
;; Content-Type: text/plain; charset=iso-2022-jp

;;; Commentary:

;;; Code:

;;; face
(defface my-info-node
  '((((class color) (background light))
     (:foreground "brown" :bold t :italic t))
    (((class color) (background dark))
     (:foreground "cyan" :bold t :italic t))
    (t (:bold t :italic t)))
  "Face for Info node names."
  :group 'info)

(defface my-info-menu-5
  '((((class color) (background light))
     (:foreground "red1" :underline t))
    (((class color) (background dark))
     (:foreground "cyan" :underline t))
    (t (:underline t)))
  "Face for the fifth and tenth `*' in an Info menu."
  :group 'info)

(defface my-info-xref
  '((((class color) (background light))
     (:foreground "magenta4" :bold t))
    (((class color) (background dark))
     (:foreground "plum" :bold t))
    (t (:bold t)))
  "Face for Info cross-references."
  :group 'info)

(copy-face 'my-info-node 'info-node)
(copy-face 'my-info-menu-5 'info-menu-5)
(copy-face 'my-info-xref 'info-xref)

(setq Info-title-face-alist
      '((?* my-info-title-*-face)
	(?= my-info-title-=-face)
	(?- my-info-title---face)))

(defface my-info-title-*-face
  '((((class color) (background light))
     (:foreground "medium blue" :bold t :underline t))
    (t (:bold t :underline t)))
  "Face for ?* of Info-title-face-alist."
  :group 'info)

(defface my-info-title-=-face
  '((((class color) (background light))
     (:foreground "royal blue" :bold t :italic t))
    (t (:bold t :italic t)))
  "Face for ?= of Info-title-face-alist."
  :group 'info)

(defface my-info-title---face
  '((((class color) (background light))
     (:foreground "steel blue" :italic t :underline t))
    (t (:italic t :underline t)))
  "Face for ?- of Info-title-face-alist."
  :group 'info)


;;; font-lock
(when (fboundp 'font-lock-add-keywords)
  (defvar info-font-lock-keywords
    '(("^[ \t]+--? \\(\\(Variable\\|User Option\\)\\|\\(Contant\\)\\|\\(F[ou]nction\\|Procedure\\|Command\\|コマンド\\|Special [Ff]orm\\)\\|\\(Macro\\|マクロ\\)\\|[^:]+\\):[ \t]+\\(.+\\)$"
       (1 font-lock-keyword-face)
       (6 (cond ((match-beginning 2)
		 font-lock-variable-name-face)
		((match-beginning 3)
		 font-lock-constant-face)
		((match-beginning 4)
		 font-lock-function-name-face)
		(t 'bold))))
      ("^[ \t]*``?\\([^']+\\)''?$" (1 font-lock-constant-face prepend)))
    "Keywords to highlight in Info mode.

*Note:* Info has original highlighting mechanism.
And so, Info mode doesn't support Font Lock Mode(`font-lock-global-modes').
So you must enable font-lock by hand.
For example:
(add-hook 'Info-mode-hook 'turn-on-font-lock)")

  (font-lock-add-keywords 'Info-mode info-font-lock-keywords))


;;;
(defun my-info-mode-setup ()
  ;; font-lock
  (make-local-variable 'font-lock-unfontify-region-function)
  (setq font-lock-unfontify-region-function
	#'(lambda (beg end)
	    (unless font-lock-mode
	      (font-lock-default-unfontify-region beg end)
	      (if Info-fontify
		  (Info-fontify-node)))))
  (turn-on-font-lock))

;;;
(add-hook 'speedbar-load-hook
	  #'(lambda ()
	      (when (and (boundp 'dframe-attached-frame)
			 (not (boundp 'speedbar-attached-frame)))

		(defadvice Info-speedbar-hierarchy-buttons
		  (around speedbar-attached-frame-hack (directory depth &optional node) activate)
		  (let ((speedbar-attached-frame dframe-attached-frame))
		    ad-do-it))

		(defadvice Info-speedbar-goto-node
		  (around speedbar-attached-frame-hack (text node indent) activate)
		  (let ((speedbar-attached-frame dframe-attached-frame))
		    ad-do-it)))))

;;; Hook:
(add-hook 'Info-mode-hook 'my-info-mode-setup)

;;; info-init.el ends here