EmacsでPHPを書くときのアウトラインモード設定

;;; アウトラインモード(php)
 (add-hook
  'php-mode-hook
  '(lambda ()
    (setq outline-regexp "^<\\?\\|^class\\|^\\?>\\|^}\\|^    function\\|^/\\*\\*\\|^    /\\*\\*\\|^interface\\|^abstract\\\
|^    private\\|^    protected\\|^    public\\|^    static\\|^    abstract")
    (setq outline-level
     (function (lambda ()
      (save-excursion
        (let ((str nil))
          (looking-at outline-regexp)
          (setq str (buffer-substring-no-properties
                     (match-beginning 0) (match-end 0)))
          (cond
           ((string-match "^/\\*\\*" str) 1) ; 階層1 
           ((string-match "^<\\?" str) 1)
           ((string-match "^\\?>" str) 1)
           ((string-match "^class" str) 1)
           ((string-match "^interface" str) 1)
           ((string-match "^abstract" str) 1)
           ((string-match "^    /\\*\\*" str) 2)
           ((string-match "^    function" str) 3)
           ((string-match "^    private" str) 3)
           ((string-match "^    protected" str) 3)
           ((string-match "^    public" str) 3)
           ((string-match "^    static" str) 3)
           ((string-match "^    abstract" str) 3)
           ))))))
     (outline-minor-mode t)
     (hide-body)))