From b5a44717dbee32a4f5b1e7269e4f76f24712eaa4 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 12 Aug 2011 15:07:19 +0200 Subject: [PATCH] Moved away from pi-php-mode again Using php-mode by ejmr. --- .emacs.d/elisp/php-mode | 1 + .emacs.d/elisp/php-mode-improved.el | 1283 --------------------------- .emacs.d/elisp/pi-php-mode | 1 - .emacs.d/functions.el | 3 - .emacs.d/init.el | 21 +- .emacs.d/ryuslash-load-path.el | 2 +- .gitmodules | 9 +- 7 files changed, 17 insertions(+), 1303 deletions(-) create mode 160000 .emacs.d/elisp/php-mode delete mode 100644 .emacs.d/elisp/php-mode-improved.el delete mode 160000 .emacs.d/elisp/pi-php-mode diff --git a/.emacs.d/elisp/php-mode b/.emacs.d/elisp/php-mode new file mode 160000 index 0000000..4657723 --- /dev/null +++ b/.emacs.d/elisp/php-mode @@ -0,0 +1 @@ +Subproject commit 4657723f7315f1e2873cb86b3000e225551b0c89 diff --git a/.emacs.d/elisp/php-mode-improved.el b/.emacs.d/elisp/php-mode-improved.el deleted file mode 100644 index dcf4fb9..0000000 --- a/.emacs.d/elisp/php-mode-improved.el +++ /dev/null @@ -1,1283 +0,0 @@ -;;; php-mode.el --- major mode for editing PHP code - -;; This is a version of the php-mode from http://php-mode.sourceforge.net that -;; fixes a few bugs which make using php-mode much more palatable, namely: -;; -;; 1. New customisation options for some of the syntax highlighting -;; features. I personally use the 'Gauchy' level of syntax -;; highlighting -- I want variables and function calls fontified -- -;; but there were several very annoying "features" in this level of -;; syntax highlighting, particularly the ones that warn you about -;; perfectly valid code. I've added: -;; -;; * `php-mode-dollar-property-warning', which, if non-nil, warns on -;; $foo->$bar. (Default is nil.) -;; * `php-mode-dot-property-warning', which, if non-nil, warns on -;; $foo.bar. (Default is nil.) -;; * `php-mode-warn-on-unmatches', which, if non-nil, warns on -;; "everything else". (Default is nil.) -;; * `php-mode-warn-if-mumamo-off', which, if nil, suppresses the -;; once-per-file warning about indenting with mumamo-mode turned -;; off. (Default is t) -;; -;; 2. Bugfix in `php-show-arglist': this function no longer jumps to the -;; function definition if that definition is in the current buffer. -;; -;; 3. Bugfix: 'class' keywords at the beginning of a line are now -;; correctly fontified. -;; -;; This has been submitted to the php-mode maintainer, but I've not yet had a -;; response. -;; -;; This was branched from the php-mode in nxhtml-mode, so if you have problems, -;; download the latest nxhtml-mode, and replace related/php-mode.el in the -;; nxhtml distribution with this file. -;; -;; -- David House, dmhouse@gmail.com - -;; Copyright (C) 1999, 2000, 2001, 2003, 2004 Turadg Aleahmad -;; 2008 Aaron S. Hawley - -;; Maintainer: Aaron S. Hawley -;; Author: Turadg Aleahmad, 1999-2004 -;; Keywords: php languages oop -;; Created: 1999-05-17 -;; Modified: 2008-01-25T22:25:26+0100 Fri -;; X-URL: http://php-mode.sourceforge.net/ - -(defconst php-mode-version-number "1.4.1a-nxhtml" - "PHP Mode version number.") - -;;; License - -;; This file is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License -;; as published by the Free Software Foundation; either version 3 -;; of the License, or (at your option) any later version. - -;; This file is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this file; if not, write to the Free Software -;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -;; 02110-1301, USA. - -;;; Usage - -;; Put this file in your Emacs lisp path (eg. site-lisp) and add to -;; your .emacs file: -;; -;; (require 'php-mode) - -;; To use abbrev-mode, add lines like this: -;; (add-hook 'php-mode-hook -;; '(lambda () (define-abbrev php-mode-abbrev-table "ex" "extends"))) - -;; To make php-mode compatible with html-mode, see http://php-mode.sf.net - -;; Many options available under Help:Customize -;; Options specific to php-mode are in -;; Programming/Languages/Php -;; Since it inherits much functionality from c-mode, look there too -;; Programming/Languages/C - -;;; Commentary: - -;; PHP mode is a major mode for editing PHP 3 and 4 source code. It's -;; an extension of C mode; thus it inherits all C mode's navigation -;; functionality. But it colors according to the PHP grammar and indents -;; according to the PEAR coding guidelines. It also includes a couple -;; handy IDE-type features such as documentation search and a source -;; and class browser. - - -;;; Contributors: (in chronological order) - -;; Juanjo, Torsten Martinsen, Vinai Kopp, Sean Champ, Doug Marcey, -;; Kevin Blake, Rex McMaster, Mathias Meyer, Boris Folgmann, Roland -;; Rosenfeld, Fred Yankowski, Craig Andrews, John Keller, Ryan -;; Sammartino, ppercot, Valentin Funk, Stig Bakken, Gregory Stark, -;; Chris Morris, Nils Rennebarth, Gerrit Riessen, Eric Mc Sween, -;; Ville Skytta, Giacomo Tesio, Lennart Borgman, Stefan Monnier, -;; Aaron S. Hawley, Ian Eure, Bill Lovett, David House - -;;; Changelog: - -;; 1.4.1a-nxhtml -;; Made underscore be part of identifiers. -;; -;; 1.4.1-nxhtml -;; Added php-mode-to-use. - -;; 1.4.1 -;; Modified `php-check-html-for-indentation' to check for multiple -;; mode support libraries. (Lennart Borgman) -;; -;; 1.4 -;; Updated GNU GPL to version 3. Ported to Emacs 22 (CC mode -;; 5.31). M-x php-mode-version shows version. Provide end-of-defun -;; beginning-of-defun functionality. Support add-log library. -;; Fix __CLASS__ constant (Ian Eure). Allow imenu to see visibility -;; declarations -- "private", "public", "protected". (Bill Lovett) -;; -;; 1.3 -;; Changed the definition of # using a tip from Stefan -;; Monnier to correct highlighting and indentation. (Lennart Borgman) -;; Changed the highlighting of the HTML part. (Lennart Borgman) -;; -;; 1.2 -;; Implemented php-show-arglist, C-. (Engelke Eschner) -;; Implemented php-complete-function, M-tab (Engelke Eschner) -;; Re-enabled # comment detection in GNU Emacs (Urban Müller) -;; Fixed some keybindings and default settings (Engelke Eschner) -;; -;; 1.1 -;; Added PHP5 support (Giacomo Tesio) -;; known problem: doesn't highlight after first 'implements' -;; Better XEmacs compatibility (imenu, regexp, and comments!) (Ville Skytta) -;; Improvement to php-conditional-key regexp (Eric Mc Sween) - -;; 1.05 -;; Incorporated speedbar defs by Gerrit Riessen -;; Add "foreach" to conditional introducing keywords (Nils Rennebarth) -;; Cleared the Changelog -;; Moved contribution credits into comments above - - -;;; Code: - -(require 'speedbar) -(require 'font-lock) -(require 'cc-mode) -(require 'custom) -(require 'etags) -(eval-when-compile - (require 'regexp-opt)) - -;; Local variables -(defgroup php nil - "Major mode `php-mode' for editing PHP code." - :prefix "php-" - :group 'languages) - -(defcustom php-default-face 'default - "Default face in `php-mode' buffers." - :type 'face - :group 'php) - -(defcustom php-speedbar-config t - "When set to true automatically configures Speedbar to observe PHP files.\ -Ignores php-file patterns option; fixed to expression \"\\.\\(inc\\|php[s34]?\\)\"" - :type 'boolean - :set (lambda (sym val) - (set-default sym val) - (if (and val (boundp 'speedbar)) - (speedbar-add-supported-extension - "\\.\\(inc\\|php[s34]?\\|phtml\\)"))) - :group 'php) - -(defcustom php-mode-speedbar-open nil - "Normally `php-mode' starts with the speedbar closed.\ -Turning this on will open it whenever `php-mode' is loaded." - :type 'boolean - :set (lambda (sym val) - (set-default sym val) - (when val - (speedbar 1))) - :group 'php) - -(defcustom php-manual-url "http://www.php.net/manual/en/" - "URL at which to find PHP manual.\ -You can replace \"en\" with your ISO language code." - :type 'string - :group 'php) - -(defcustom php-search-url "http://www.php.net/" - "URL at which to search for documentation on a word" - :type 'string - :group 'php) - -(defcustom php-completion-file "" - "Path to the file which contains the function names known to PHP" - :type 'string - :group 'php) - -(defcustom php-manual-path "" - "Path to the directory which contains the PHP manual" - :type 'string - :group 'php) - -;;;###autoload -(defcustom php-mode-to-use - (progn - (require 'mumamo nil t) - (if (fboundp 'nxhtml-mumamo-turn-on) - 'nxhtml-mumamo-turn-on - (if (fboundp 'html-mumamo-turn-on) - 'html-mumamo-turn-on - 'php-mode))) - "Major mode turn on function to use for php files." - :type 'function - :group 'php) - -;;;###autoload -(defcustom php-file-patterns '("\\.php[s34]?\\'" "\\.phtml\\'" "\\.inc\\'") - "List of file patterns for which to automatically invoke `php-mode'." - :type '(repeat (regexp :tag "Pattern")) - :set-after '(php-mode-to-use) - :set (lambda (sym val) - (set-default sym val) - (let ((php-file-patterns-temp val)) - (while php-file-patterns-temp - (add-to-list 'auto-mode-alist - (cons (car php-file-patterns-temp) php-mode-to-use)) - (setq php-file-patterns-temp (cdr php-file-patterns-temp))))) - :group 'php) - -(defcustom php-mode-hook nil - "List of functions to be executed on entry to `php-mode'." - :type 'hook - :group 'php) - -(defcustom php-mode-pear-hook nil - "Hook called when a PHP PEAR file is opened with `php-mode'." - :type 'hook - :group 'php) - -(defcustom php-mode-force-pear nil - "Normally PEAR coding rules are enforced only when the filename contains \"PEAR\"\ -Turning this on will force PEAR rules on all PHP files." - :type 'boolean - :group 'php) - -(defcustom php-mode-dollar-property-warning nil - "If non-`nil', warn about expressions like $foo->$bar where you -might have meant $foo->bar. Defaults to `nil' since this is valid -code." - :type 'boolean - :group 'php) - -(defcustom php-mode-dot-property-warning nil - "If non-`nil', wan about expressions like $foo.bar, which could -be a valid concatenation (if bar were a constant, or interpreted -as an unquoted string), but it's more likely you meant $foo->bar." - :type 'boolean - :group 'php) - -(defcustom php-mode-warn-on-unmatched nil - "If non-`nil', use `font-lock-warning-face' on any expression -that isn't matched by the other font lock regular expressions." - :type 'boolean - :group 'php) - -(defcustom php-warn-if-mumamo-off t - "Warn once per buffer if you try to indent a buffer without -mumamo-mode turned on. Detects if there are any HTML tags in the -buffer before warning, but this is not very smart; e.g. if you -have any tags inside a PHP string, it will be fooled." - :type '(choice (const :tag "Warn" t) (const "Don't warn" nil)) - :group 'php) - - -(eval-when-compile - (defconst php-mode-modified - (save-excursion - (and - (re-search-backward "^;; Modified: \\(.*\\)" nil 'noerror) - (match-string-no-properties 1))) - "PHP Mode version number.")) - -(defun php-mode-version () - "Display string describing the version of PHP mode" - (interactive) - (message "PHP mode %s of %s" - php-mode-version-number php-mode-modified)) - -(defconst php-beginning-of-defun-regexp - "^\\s *function\\s +&?\\(\\(\\sw\\|\\s_\\)+\\)\\s *(" - "Regular expression for a PHP function.") - -(defun php-beginning-of-defun (&optional arg) - "Move to the beginning of the ARGth PHP function from point. -Implements PHP version of `beginning-of-defun-function'." - (interactive "p") - (let ((arg (or arg 1))) - (while (> arg 0) - (re-search-backward php-beginning-of-defun-regexp - nil 'noerror) - (setq arg (1- arg))) - (while (< arg 0) - (end-of-line 1) - (let ((opoint (point))) - (beginning-of-defun 1) - (forward-list 2) - (forward-line 1) - (if (eq opoint (point)) - (re-search-forward php-beginning-of-defun-regexp - nil 'noerror)) - (setq arg (1+ arg)))))) - -(defun php-end-of-defun (&optional arg) - "Move the end of the ARGth PHP function from point. -Implements PHP befsion of `end-of-defun-function' - -See `php-beginning-of-defun'." - (interactive "p") - (php-beginning-of-defun (- (or arg 1)))) - - -(defvar php-completion-table nil - "Obarray of tag names defined in current tags table and functions know to PHP.") - -(defvar php-warned-bad-indent nil) -;;(make-variable-buffer-local 'php-warned-bad-indent) - -;; Do it but tell it is not good if html tags in buffer. -(defun php-check-html-for-indentation () - (let ((html-tag-re "") - (here (point))) - (if (not (or (re-search-forward html-tag-re (+ (point) 1000) t) - (re-search-backward html-tag-re (- (point) 1000) t))) - t - (goto-char here) - (setq php-warned-bad-indent t) - ;;(setq php-warned-bad-indent nil) - (let* ((known-multi-libs '(("mumamo" mumamo (lambda () (nxhtml-mumamo))) - ("mmm-mode" mmm-mode (lambda () (mmm-mode 1))) - ("multi-mode" multi-mode (lambda () (multi-mode 1))))) - (known-names (mapcar (lambda (lib) (car lib)) known-multi-libs)) - (available-multi-libs (delq nil - (mapcar - (lambda (lib) - (when (locate-library (car lib)) lib)) - known-multi-libs))) - (available-names (mapcar (lambda (lib) (car lib)) available-multi-libs)) - (base-msg - (concat - "Indentation fails badly with mixed HTML/PHP in plaín\n" - "`php-mode'. To get indentation to work you must use an Emacs\n" - "library that supports 'multiple major modes' in a buffer. Parts\n" - "of the buffer will then be in `php-mode' and parts in for example\n" - "`html-mode'. Known such libraries are:\n\t" - (mapconcat 'identity known-names ", ") - "\n" - (if available-multi-libs - (concat - "You have these available in your `load-path':\n\t" - (mapconcat 'identity available-names ", ") - "\n\n" - "Do you want to turn any of those on? ") - "You do not have any of those in your `load-path'."))) - (is-using-multi - (catch 'is-using - (dolist (lib available-multi-libs) - (when (and (boundp (cadr lib)) - (symbol-value (cadr lib))) - (throw 'is-using t)))))) - (unless is-using-multi - (if available-multi-libs - (if (not (y-or-n-p base-msg)) - (message "Did not do indentation, but you can try again now if you want") - (let* ((name - (if (= 1 (length available-multi-libs)) - (car available-names) - ;; Minibuffer window is more than one line, fix that first: - (message "") - (completing-read "Choose multiple major mode support library: " - available-names nil t - (car available-names) - '(available-names . 1) - ))) - (mode (when name - (caddr (assoc name available-multi-libs))))) - (when mode - ;; Minibuffer window is more than one line, fix that first: - (message "") - (load name) - (funcall mode)))) - (lwarn 'php-indent :warning base-msg))) - nil)))) - -(defun php-cautious-indent-region (start end &optional quiet) - (if (or (not php-warn-if-mumamo-off) - php-warned-bad-indent - (php-check-html-for-indentation)) - (funcall 'c-indent-region start end quiet))) - -(defun php-cautious-indent-line () - (if (or (not php-warn-if-mumamo-off) - php-warned-bad-indent - (php-check-html-for-indentation)) - (funcall 'c-indent-line))) - -;;;###autoload -(define-derived-mode php-mode c-mode "PHP" - "Major mode for editing PHP code.\n\n\\{php-mode-map}" -;; (c-add-language 'php-mode 'c-mode) - -;; (c-lang-defconst c-block-stmt-1-kwds -;; php php-block-stmt-1-kwds) - (set (make-local-variable 'c-block-stmt-1-key) php-block-stmt-1-key) - -;; (c-lang-defconst c-block-stmt-2-kwds -;; php php-block-stmt-2-kwds) - (set (make-local-variable 'c-block-stmt-2-key) php-block-stmt-2-key) - ;; Specify that cc-mode recognize Javadoc comment style - (set (make-local-variable 'c-doc-comment-style) - '((php-mode . javadoc))) - -;; (c-lang-defconst c-class-decl-kwds -;; php php-class-decl-kwds) - (set (make-local-variable 'c-class-key) php-class-key) - - ;; this line makes $ into punctuation instead of a word constituent - ;; it used to be active, but it killed indenting of case lines that - ;; begin with '$' (many do). If anyone has a solution to this - ;; problem, please let me know. Of course, you're welcome to - ;; uncomment this line in your installation. -; (modify-syntax-entry ?$ "." php-mode-syntax-table) - - ;; The above causes XEmacs to handle shell-style comments correctly, - ;; but fails to work in GNU Emacs which fails to interpret \n as the - ;; end of the comment. - (if (featurep 'xemacs) (progn - (modify-syntax-entry ?# "< b" php-mode-syntax-table) - (modify-syntax-entry ?\n "> b" php-mode-syntax-table))) - - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults - '((php-font-lock-keywords-1 - php-font-lock-keywords-2 - ;; Comment-out the next line if the font-coloring is too - ;; extreme/ugly for you. - php-font-lock-keywords-3) - nil ; KEYWORDS-ONLY - nil ; CASE-FOLD - nil ; SYNTAX-ALIST - nil)) ; SYNTAX-BEGIN - (modify-syntax-entry ?# "< b" php-mode-syntax-table) - (modify-syntax-entry ?_ "w" php-mode-syntax-table) - - ;; Electric behaviour must be turned off, they do not work since - ;; they can not find the correct syntax in embedded PHP. - ;; - ;; Seems to work with narrowing so let it be on if the user prefers it. - ;;(setq c-electric-flag nil) - - (setq font-lock-maximum-decoration t - case-fold-search t ; PHP vars are case-sensitive - imenu-generic-expression php-imenu-generic-expression) - - ;; Do not force newline at end of file. Such newlines can cause - ;; trouble if the PHP file is included in another file before calls - ;; to header() or cookie(). - (set (make-local-variable 'require-final-newline) nil) - (set (make-local-variable 'next-line-add-newlines) nil) - - ;; PEAR coding standards - (add-hook 'php-mode-pear-hook - (lambda () - (set (make-local-variable 'tab-width) 4) - (set (make-local-variable 'c-basic-offset) 4) - (set (make-local-variable 'indent-tabs-mode) nil) - (c-set-offset 'block-open' - ) - (c-set-offset 'block-close' 0 )) nil t) - - (if (or php-mode-force-pear - (and (stringp buffer-file-name) - (string-match "PEAR\\|pear" - (buffer-file-name)) - (string-match "\\.php$" (buffer-file-name)))) - (run-hooks 'php-mode-pear-hook)) - - (setq indent-line-function 'php-cautious-indent-line) - (setq indent-region-function 'php-cautious-indent-region) - (setq c-special-indent-hook nil) - - (set (make-local-variable 'syntax-begin-function) - 'c-beginning-of-syntax) - (set (make-local-variable 'beginning-of-defun-function) - 'php-beginning-of-defun) - (set (make-local-variable 'end-of-defun-function) - 'php-end-of-defun) - (set (make-local-variable 'open-paren-in-column-0-is-defun-start) - nil) - (set (make-local-variable 'defun-prompt-regexp) - "^\\s *function\\s +&?\\(\\(\\sw\\|\\s_\\)+\\)\\s *") - (set (make-local-variable 'add-log-current-defun-header-regexp) - php-beginning-of-defun-regexp) - - (run-hooks 'php-mode-hook)) - -;; Make a menu keymap (with a prompt string) -;; and make it the menu bar item's definition. -(define-key php-mode-map [menu-bar] (make-sparse-keymap)) -(define-key php-mode-map [menu-bar php] - (cons "PHP" (make-sparse-keymap "PHP"))) - -;; Define specific subcommands in this menu. -(define-key php-mode-map [menu-bar php complete-function] - '("Complete function name" . php-complete-function)) -(define-key php-mode-map - [menu-bar php browse-manual] - '("Browse manual" . php-browse-manual)) -(define-key php-mode-map - [menu-bar php search-documentation] - '("Search documentation" . php-search-documentation)) - -;; Define function name completion function -(defun php-complete-function () - "Perform function completion on the text around point. -Completes to the set of names listed in the current tags table -and the standard php functions. -The string to complete is chosen in the same way as the default -for \\[find-tag] (which see)." - (interactive) - (let ((pattern (php-get-pattern)) - beg - completion - (php-functions (php-completion-table))) - (if (not pattern) (message "Nothing to complete") - (search-backward pattern) - (setq beg (point)) - (forward-char (length pattern)) - (setq completion (try-completion pattern php-functions nil)) - (cond ((eq completion t)) - ((null completion) - (message "Can't find completion for \"%s\"" pattern) - (ding)) - ((not (string= pattern completion)) - (delete-region beg (point)) - (insert completion)) - (t - (message "Making completion list...") - (with-output-to-temp-buffer "*Completions*" - (display-completion-list - (all-completions pattern php-functions))) - (message "Making completion list...%s" "done")))))) - -;; Build php-completion-table on demand. The table includes the -;; PHP functions and the tags from the current tags-file-name -(defun php-completion-table () - (or (and tags-file-name - (save-excursion (tags-verify-table tags-file-name)) - php-completion-table) - (let ((tags-table - (if (and tags-file-name - (functionp 'etags-tags-completion-table)) - (with-current-buffer (get-file-buffer tags-file-name) - (etags-tags-completion-table)) - nil)) - (php-table - (cond ((and (not (string= "" php-completion-file)) - (file-readable-p php-completion-file)) - (php-build-table-from-file php-completion-file)) - (php-manual-path - (php-build-table-from-path php-manual-path)) - (t nil)))) - (unless (or php-table tags-table) - (error - (concat "No TAGS file active nor are " - "`php-completion-file' or `php-manual-path' set"))) - (when tags-table - ;; Combine the tables. - (mapatoms (lambda (sym) (intern (symbol-name sym) php-table)) - tags-table)) - (setq php-completion-table php-table)))) - -(defun php-build-table-from-file (filename) - (let ((table (make-vector 1022 0)) - (buf (find-file-noselect filename))) - (save-excursion - (set-buffer buf) - (goto-char (point-min)) - (while (re-search-forward - "^\\([-a-zA-Z0-9_.]+\\)\n" - nil t) - (intern (buffer-substring (match-beginning 1) (match-end 1)) - table))) - (kill-buffer buf) - table)) - -(defun php-build-table-from-path (path) - (let ((table (make-vector 1022 0)) - (files (directory-files - path - nil - "^function\\..+\\.html$"))) - (mapc (lambda (file) - (string-match "\\.\\([-a-zA-Z_0-9]+\\)\\.html$" file) - (intern - (replace-regexp-in-string - "-" "_" (substring file (match-beginning 1) (match-end 1)) t) - table)) - files) - table)) - -;; Find the pattern we want to complete -;; find-tag-default from GNU Emacs etags.el -(defun php-get-pattern () - (save-excursion - (while (looking-at "\\sw\\|\\s_") - (forward-char 1)) - (if (or (re-search-backward "\\sw\\|\\s_" - (save-excursion (beginning-of-line) (point)) - t) - (re-search-forward "\\(\\sw\\|\\s_\\)+" - (save-excursion (end-of-line) (point)) - t)) - (progn (goto-char (match-end 0)) - (buffer-substring-no-properties - (point) - (progn (forward-sexp -1) - (while (looking-at "\\s'") - (forward-char 1)) - (point)))) - nil))) - - -(defun php-show-arglist () - (interactive) - (let* ((tagname (php-get-pattern)) arglist) - (save-excursion - (set-buffer (find-tag-noselect tagname nil nil)) - (goto-char (point-min)) - (when (re-search-forward - (format "function[ \t]+%s[ \t]*(\\([^{]*\\))" tagname) - nil t) - (setq arglist (buffer-substring-no-properties - (match-beginning 1) (match-end 1))))) - (if arglist - (message "Arglist for %s: %s" tagname arglist) - (message "Unknown function: %s" tagname)))) - -;; Define function documentation function -(defun php-search-documentation () - "Search PHP documentation for the word at the point." - (interactive) - (browse-url (concat php-search-url (current-word t)))) - -;; Define function for browsing manual -(defun php-browse-manual () - "Bring up manual for PHP." - (interactive) - (browse-url php-manual-url)) - -;; Define shortcut -(define-key php-mode-map - "\C-c\C-f" - 'php-search-documentation) - -;; Define shortcut -(define-key php-mode-map - [(meta tab)] - 'php-complete-function) - -;; Define shortcut -(define-key php-mode-map - "\C-c\C-m" - 'php-browse-manual) - -;; Define shortcut -(define-key php-mode-map - '[(control .)] - 'php-show-arglist) - -(defconst php-constants - (eval-when-compile - (regexp-opt - '(;; core constants - "__LINE__" "__FILE__" - "__FUNCTION__" "__CLASS__" "__METHOD__" - "PHP_OS" "PHP_VERSION" - "TRUE" "FALSE" "NULL" - "E_ERROR" "E_NOTICE" "E_PARSE" "E_WARNING" "E_ALL" "E_STRICT" - "E_USER_ERROR" "E_USER_WARNING" "E_USER_NOTICE" - "DEFAULT_INCLUDE_PATH" "PEAR_INSTALL_DIR" "PEAR_EXTENSION_DIR" - "PHP_BINDIR" "PHP_LIBDIR" "PHP_DATADIR" "PHP_SYSCONFDIR" - "PHP_LOCALSTATEDIR" "PHP_CONFIG_FILE_PATH" - "PHP_EOL" - - ;; from ext/standard: - "EXTR_OVERWRITE" "EXTR_SKIP" "EXTR_PREFIX_SAME" - "EXTR_PREFIX_ALL" "EXTR_PREFIX_INVALID" "SORT_ASC" "SORT_DESC" - "SORT_REGULAR" "SORT_NUMERIC" "SORT_STRING" "ASSERT_ACTIVE" - "ASSERT_CALLBACK" "ASSERT_BAIL" "ASSERT_WARNING" - "ASSERT_QUIET_EVAL" "CONNECTION_ABORTED" "CONNECTION_NORMAL" - "CONNECTION_TIMEOUT" "M_E" "M_LOG2E" "M_LOG10E" "M_LN2" - "M_LN10" "M_PI" "M_PI_2" "M_PI_4" "M_1_PI" "M_2_PI" - "M_2_SQRTPI" "M_SQRT2" "M_SQRT1_2" "CRYPT_SALT_LENGTH" - "CRYPT_STD_DES" "CRYPT_EXT_DES" "CRYPT_MD5" "CRYPT_BLOWFISH" - "DIRECTORY_SEPARATOR" "SEEK_SET" "SEEK_CUR" "SEEK_END" - "LOCK_SH" "LOCK_EX" "LOCK_UN" "LOCK_NB" "HTML_SPECIALCHARS" - "HTML_ENTITIES" "ENT_COMPAT" "ENT_QUOTES" "ENT_NOQUOTES" - "INFO_GENERAL" "INFO_CREDITS" "INFO_CONFIGURATION" - "INFO_ENVIRONMENT" "INFO_VARIABLES" "INFO_LICENSE" "INFO_ALL" - "CREDITS_GROUP" "CREDITS_GENERAL" "CREDITS_SAPI" - "CREDITS_MODULES" "CREDITS_DOCS" "CREDITS_FULLPAGE" - "CREDITS_QA" "CREDITS_ALL" "PHP_OUTPUT_HANDLER_START" - "PHP_OUTPUT_HANDLER_CONT" "PHP_OUTPUT_HANDLER_END" - "STR_PAD_LEFT" "STR_PAD_RIGHT" "STR_PAD_BOTH" - "PATHINFO_DIRNAME" "PATHINFO_BASENAME" "PATHINFO_EXTENSION" - "CHAR_MAX" "LC_CTYPE" "LC_NUMERIC" "LC_TIME" "LC_COLLATE" - "LC_MONETARY" "LC_ALL" "LC_MESSAGES" "LOG_EMERG" "LOG_ALERT" - "LOG_CRIT" "LOG_ERR" "LOG_WARNING" "LOG_NOTICE" "LOG_INFO" - "LOG_DEBUG" "LOG_KERN" "LOG_USER" "LOG_MAIL" "LOG_DAEMON" - "LOG_AUTH" "LOG_SYSLOG" "LOG_LPR" "LOG_NEWS" "LOG_UUCP" - "LOG_CRON" "LOG_AUTHPRIV" "LOG_LOCAL0" "LOG_LOCAL1" - "LOG_LOCAL2" "LOG_LOCAL3" "LOG_LOCAL4" "LOG_LOCAL5" - "LOG_LOCAL6" "LOG_LOCAL7" "LOG_PID" "LOG_CONS" "LOG_ODELAY" - "LOG_NDELAY" "LOG_NOWAIT" "LOG_PERROR" - - ;; filters - "FILTER_VALIDATE_BOOLEAN" "FILTER_VALIDATE_EMAIL" - "FILTER_VALIDATE_FLOAT" "FILTER_VALIDATE_INT" - "FILTER_VALIDATE_IP" "FILTER_VALIDATE_REGEXP" - "FILTER_VALIDATE_URL" "FILTER_NULL_ON_FAILURE" - "FILTER_FLAG_ALLOW_THOUSAND" "FILTER_FLAG_ALLOW_OCTAL" - "FILTER_FLAG_ALLOW_HEX" "FILTER_FLAG_IPV4" "FILTER_FLAG_IPV6" - "FILTER_FLAG_NO_PRIV_RANGE" "FILTER_FLAG_NO_RES_RANGE" - "FILTER_FLAG_PATH_REQUIRED" "FILTER_FLAG_QUERY_REQUIRED" - "FILTER_SANITIZE_EMAIL" "FILTER_SANITIZE_ENCODED" - "FILTER_SANITIZE_MAGIC_QUOTES" "FILTER_SANITIZE_NUMBER_FLOAT" - "FILTER_SANITIZE_NUMBER_INT" "FILTER_SANITIZE_SPECIAL_CHARS" - "FILTER_SANITIZE_STRING" "FILTER_SANITIZE_STRIPPED" - "FILTER_SANITIZE_URL" "FILTER_UNSAFE_RAW" - "FILTER_FLAG_STRIP_LOW" "FILTER_FLAG_STRIP_HIGH" - "FILTER_FLAG_ENCODE_LOW" "FILTER_FLAG_ENCODE_HIGH" - "FILTER_FLAG_ALLOW_FRACTION" "FILTER_FLAG_ALLOW_SCIENTIFIC" - "FILTER_FLAG_NO_ENCODE_QUOTES" "FILTER_FLAG_ENCODE_AMP" - "FILTER_CALLBACK" "FILTER_REQUIRE_ARRAY" - - ;; Disabled by default because they slow buffer loading - ;; If you have use for them, uncomment the strings - ;; that you want colored. - ;; To compile, you may have to increase 'max-specpdl-size' - - ;; from other bundled extensions: -; "CAL_EASTER_TO_xxx" "VT_NULL" "VT_EMPTY" "VT_UI1" "VT_I2" -; "VT_I4" "VT_R4" "VT_R8" "VT_BOOL" "VT_ERROR" "VT_CY" "VT_DATE" -; "VT_BSTR" "VT_DECIMAL" "VT_UNKNOWN" "VT_DISPATCH" "VT_VARIANT" -; "VT_I1" "VT_UI2" "VT_UI4" "VT_INT" "VT_UINT" "VT_ARRAY" -; "VT_BYREF" "CP_ACP" "CP_MACCP" "CP_OEMCP" "CP_SYMBOL" -; "CP_THREAD_ACP" "CP_UTF7" "CP_UTF8" "CPDF_PM_NONE" -; "CPDF_PM_OUTLINES" "CPDF_PM_THUMBS" "CPDF_PM_FULLSCREEN" -; "CPDF_PL_SINGLE" "CPDF_PL_1COLUMN" "CPDF_PL_2LCOLUMN" -; "CPDF_PL_2RCOLUMN" "CURLOPT_PORT" "CURLOPT_FILE" -; "CURLOPT_INFILE" "CURLOPT_INFILESIZE" "CURLOPT_URL" -; "CURLOPT_PROXY" "CURLOPT_VERBOSE" "CURLOPT_HEADER" -; "CURLOPT_HTTPHEADER" "CURLOPT_NOPROGRESS" "CURLOPT_NOBODY" -; "CURLOPT_FAILONERROR" "CURLOPT_UPLOAD" "CURLOPT_POST" -; "CURLOPT_FTPLISTONLY" "CURLOPT_FTPAPPEND" "CURLOPT_NETRC" -; "CURLOPT_FOLLOWLOCATION" "CURLOPT_FTPASCII" "CURLOPT_PUT" -; "CURLOPT_MUTE" "CURLOPT_USERPWD" "CURLOPT_PROXYUSERPWD" -; "CURLOPT_RANGE" "CURLOPT_TIMEOUT" "CURLOPT_POSTFIELDS" -; "CURLOPT_REFERER" "CURLOPT_USERAGENT" "CURLOPT_FTPPORT" -; "CURLOPT_LOW_SPEED_LIMIT" "CURLOPT_LOW_SPEED_TIME" -; "CURLOPT_RESUME_FROM" "CURLOPT_COOKIE" "CURLOPT_SSLCERT" -; "CURLOPT_SSLCERTPASSWD" "CURLOPT_WRITEHEADER" -; "CURLOPT_COOKIEFILE" "CURLOPT_SSLVERSION" -; "CURLOPT_TIMECONDITION" "CURLOPT_TIMEVALUE" -; "CURLOPT_CUSTOMREQUEST" "CURLOPT_STDERR" "CURLOPT_TRANSFERTEXT" -; "CURLOPT_RETURNTRANSFER" "CURLOPT_QUOTE" "CURLOPT_POSTQUOTE" -; "CURLOPT_INTERFACE" "CURLOPT_KRB4LEVEL" -; "CURLOPT_HTTPPROXYTUNNEL" "CURLOPT_FILETIME" -; "CURLOPT_WRITEFUNCTION" "CURLOPT_READFUNCTION" -; "CURLOPT_PASSWDFUNCTION" "CURLOPT_HEADERFUNCTION" -; "CURLOPT_MAXREDIRS" "CURLOPT_MAXCONNECTS" "CURLOPT_CLOSEPOLICY" -; "CURLOPT_FRESH_CONNECT" "CURLOPT_FORBID_REUSE" -; "CURLOPT_RANDOM_FILE" "CURLOPT_EGDSOCKET" -; "CURLOPT_CONNECTTIMEOUT" "CURLOPT_SSL_VERIFYPEER" -; "CURLOPT_CAINFO" "CURLOPT_BINARYTRANSER" -; "CURLCLOSEPOLICY_LEAST_RECENTLY_USED" "CURLCLOSEPOLICY_OLDEST" -; "CURLINFO_EFFECTIVE_URL" "CURLINFO_HTTP_CODE" -; "CURLINFO_HEADER_SIZE" "CURLINFO_REQUEST_SIZE" -; "CURLINFO_TOTAL_TIME" "CURLINFO_NAMELOOKUP_TIME" -; "CURLINFO_CONNECT_TIME" "CURLINFO_PRETRANSFER_TIME" -; "CURLINFO_SIZE_UPLOAD" "CURLINFO_SIZE_DOWNLOAD" -; "CURLINFO_SPEED_DOWNLOAD" "CURLINFO_SPEED_UPLOAD" -; "CURLINFO_FILETIME" "CURLE_OK" "CURLE_UNSUPPORTED_PROTOCOL" -; "CURLE_FAILED_INIT" "CURLE_URL_MALFORMAT" -; "CURLE_URL_MALFORMAT_USER" "CURLE_COULDNT_RESOLVE_PROXY" -; "CURLE_COULDNT_RESOLVE_HOST" "CURLE_COULDNT_CONNECT" -; "CURLE_FTP_WEIRD_SERVER_REPLY" "CURLE_FTP_ACCESS_DENIED" -; "CURLE_FTP_USER_PASSWORD_INCORRECT" -; "CURLE_FTP_WEIRD_PASS_REPLY" "CURLE_FTP_WEIRD_USER_REPLY" -; "CURLE_FTP_WEIRD_PASV_REPLY" "CURLE_FTP_WEIRD_227_FORMAT" -; "CURLE_FTP_CANT_GET_HOST" "CURLE_FTP_CANT_RECONNECT" -; "CURLE_FTP_COULDNT_SET_BINARY" "CURLE_PARTIAL_FILE" -; "CURLE_FTP_COULDNT_RETR_FILE" "CURLE_FTP_WRITE_ERROR" -; "CURLE_FTP_QUOTE_ERROR" "CURLE_HTTP_NOT_FOUND" -; "CURLE_WRITE_ERROR" "CURLE_MALFORMAT_USER" -; "CURLE_FTP_COULDNT_STOR_FILE" "CURLE_READ_ERROR" -; "CURLE_OUT_OF_MEMORY" "CURLE_OPERATION_TIMEOUTED" -; "CURLE_FTP_COULDNT_SET_ASCII" "CURLE_FTP_PORT_FAILED" -; "CURLE_FTP_COULDNT_USE_REST" "CURLE_FTP_COULDNT_GET_SIZE" -; "CURLE_HTTP_RANGE_ERROR" "CURLE_HTTP_POST_ERROR" -; "CURLE_SSL_CONNECT_ERROR" "CURLE_FTP_BAD_DOWNLOAD_RESUME" -; "CURLE_FILE_COULDNT_READ_FILE" "CURLE_LDAP_CANNOT_BIND" -; "CURLE_LDAP_SEARCH_FAILED" "CURLE_LIBRARY_NOT_FOUND" -; "CURLE_FUNCTION_NOT_FOUND" "CURLE_ABORTED_BY_CALLBACK" -; "CURLE_BAD_FUNCTION_ARGUMENT" "CURLE_BAD_CALLING_ORDER" -; "CURLE_HTTP_PORT_FAILED" "CURLE_BAD_PASSWORD_ENTERED" -; "CURLE_TOO_MANY_REDIRECTS" "CURLE_UNKOWN_TELNET_OPTION" -; "CURLE_TELNET_OPTION_SYNTAX" "CURLE_ALREADY_COMPLETE" -; "DBX_MYSQL" "DBX_ODBC" "DBX_PGSQL" "DBX_MSSQL" "DBX_PERSISTENT" -; "DBX_RESULT_INFO" "DBX_RESULT_INDEX" "DBX_RESULT_ASSOC" -; "DBX_CMP_TEXT" "DBX_CMP_NUMBER" "XML_ELEMENT_NODE" -; "XML_ATTRIBUTE_NODE" "XML_TEXT_NODE" "XML_CDATA_SECTION_NODE" -; "XML_ENTITY_REF_NODE" "XML_ENTITY_NODE" "XML_PI_NODE" -; "XML_COMMENT_NODE" "XML_DOCUMENT_NODE" "XML_DOCUMENT_TYPE_NODE" -; "XML_DOCUMENT_FRAG_NODE" "XML_NOTATION_NODE" -; "XML_HTML_DOCUMENT_NODE" "XML_DTD_NODE" "XML_ELEMENT_DECL_NODE" -; "XML_ATTRIBUTE_DECL_NODE" "XML_ENTITY_DECL_NODE" -; "XML_NAMESPACE_DECL_NODE" "XML_GLOBAL_NAMESPACE" -; "XML_LOCAL_NAMESPACE" "XML_ATTRIBUTE_CDATA" "XML_ATTRIBUTE_ID" -; "XML_ATTRIBUTE_IDREF" "XML_ATTRIBUTE_IDREFS" -; "XML_ATTRIBUTE_ENTITY" "XML_ATTRIBUTE_NMTOKEN" -; "XML_ATTRIBUTE_NMTOKENS" "XML_ATTRIBUTE_ENUMERATION" -; "XML_ATTRIBUTE_NOTATION" "XPATH_UNDEFINED" "XPATH_NODESET" -; "XPATH_BOOLEAN" "XPATH_NUMBER" "XPATH_STRING" "XPATH_POINT" -; "XPATH_RANGE" "XPATH_LOCATIONSET" "XPATH_USERS" "FBSQL_ASSOC" -; "FBSQL_NUM" "FBSQL_BOTH" "FDFValue" "FDFStatus" "FDFFile" -; "FDFID" "FDFFf" "FDFSetFf" "FDFClearFf" "FDFFlags" "FDFSetF" -; "FDFClrF" "FDFAP" "FDFAS" "FDFAction" "FDFAA" "FDFAPRef" -; "FDFIF" "FDFEnter" "FDFExit" "FDFDown" "FDFUp" "FDFFormat" -; "FDFValidate" "FDFKeystroke" "FDFCalculate" -; "FRIBIDI_CHARSET_UTF8" "FRIBIDI_CHARSET_8859_6" -; "FRIBIDI_CHARSET_8859_8" "FRIBIDI_CHARSET_CP1255" -; "FRIBIDI_CHARSET_CP1256" "FRIBIDI_CHARSET_ISIRI_3342" -; "FTP_ASCII" "FTP_BINARY" "FTP_IMAGE" "FTP_TEXT" "IMG_GIF" -; "IMG_JPG" "IMG_JPEG" "IMG_PNG" "IMG_WBMP" "IMG_COLOR_TILED" -; "IMG_COLOR_STYLED" "IMG_COLOR_BRUSHED" -; "IMG_COLOR_STYLEDBRUSHED" "IMG_COLOR_TRANSPARENT" -; "IMG_ARC_ROUNDED" "IMG_ARC_PIE" "IMG_ARC_CHORD" -; "IMG_ARC_NOFILL" "IMG_ARC_EDGED" "GMP_ROUND_ZERO" -; "GMP_ROUND_PLUSINF" "GMP_ROUND_MINUSINF" "HW_ATTR_LANG" -; "HW_ATTR_NR" "HW_ATTR_NONE" "IIS_READ" "IIS_WRITE" -; "IIS_EXECUTE" "IIS_SCRIPT" "IIS_ANONYMOUS" "IIS_BASIC" -; "IIS_NTLM" "NIL" "OP_DEBUG" "OP_READONLY" "OP_ANONYMOUS" -; "OP_SHORTCACHE" "OP_SILENT" "OP_PROTOTYPE" "OP_HALFOPEN" -; "OP_EXPUNGE" "OP_SECURE" "CL_EXPUNGE" "FT_UID" "FT_PEEK" -; "FT_NOT" "FT_INTERNAL" "FT_PREFETCHTEXT" "ST_UID" "ST_SILENT" -; "ST_SET" "CP_UID" "CP_MOVE" "SE_UID" "SE_FREE" "SE_NOPREFETCH" -; "SO_FREE" "SO_NOSERVER" "SA_MESSAGES" "SA_RECENT" "SA_UNSEEN" -; "SA_UIDNEXT" "SA_UIDVALIDITY" "SA_ALL" "LATT_NOINFERIORS" -; "LATT_NOSELECT" "LATT_MARKED" "LATT_UNMARKED" "SORTDATE" -; "SORTARRIVAL" "SORTFROM" "SORTSUBJECT" "SORTTO" "SORTCC" -; "SORTSIZE" "TYPETEXT" "TYPEMULTIPART" "TYPEMESSAGE" -; "TYPEAPPLICATION" "TYPEAUDIO" "TYPEIMAGE" "TYPEVIDEO" -; "TYPEOTHER" "ENC7BIT" "ENC8BIT" "ENCBINARY" "ENCBASE64" -; "ENCQUOTEDPRINTABLE" "ENCOTHER" "INGRES_ASSOC" "INGRES_NUM" -; "INGRES_BOTH" "IBASE_DEFAULT" "IBASE_TEXT" "IBASE_UNIXTIME" -; "IBASE_READ" "IBASE_COMMITTED" "IBASE_CONSISTENCY" -; "IBASE_NOWAIT" "IBASE_TIMESTAMP" "IBASE_DATE" "IBASE_TIME" -; "LDAP_DEREF_NEVER" "LDAP_DEREF_SEARCHING" "LDAP_DEREF_FINDING" -; "LDAP_DEREF_ALWAYS" "LDAP_OPT_DEREF" "LDAP_OPT_SIZELIMIT" -; "LDAP_OPT_TIMELIMIT" "LDAP_OPT_PROTOCOL_VERSION" -; "LDAP_OPT_ERROR_NUMBER" "LDAP_OPT_REFERRALS" "LDAP_OPT_RESTART" -; "LDAP_OPT_HOST_NAME" "LDAP_OPT_ERROR_STRING" -; "LDAP_OPT_MATCHED_DN" "LDAP_OPT_SERVER_CONTROLS" -; "LDAP_OPT_CLIENT_CONTROLS" "GSLC_SSL_NO_AUTH" -; "GSLC_SSL_ONEWAY_AUTH" "GSLC_SSL_TWOWAY_AUTH" "MCAL_SUNDAY" -; "MCAL_MONDAY" "MCAL_TUESDAY" "MCAL_WEDNESDAY" "MCAL_THURSDAY" -; "MCAL_FRIDAY" "MCAL_SATURDAY" "MCAL_JANUARY" "MCAL_FEBRUARY" -; "MCAL_MARCH" "MCAL_APRIL" "MCAL_MAY" "MCAL_JUNE" "MCAL_JULY" -; "MCAL_AUGUST" "MCAL_SEPTEMBER" "MCAL_OCTOBER" "MCAL_NOVEMBER" -; "MCAL_RECUR_NONE" "MCAL_RECUR_DAILY" "MCAL_RECUR_WEEKLY" -; "MCAL_RECUR_MONTHLY_MDAY" "MCAL_RECUR_MONTHLY_WDAY" -; "MCAL_RECUR_YEARLY" "MCAL_M_SUNDAY" "MCAL_M_MONDAY" -; "MCAL_M_TUESDAY" "MCAL_M_WEDNESDAY" "MCAL_M_THURSDAY" -; "MCAL_M_FRIDAY" "MCAL_M_SATURDAY" "MCAL_M_WEEKDAYS" -; "MCAL_M_WEEKEND" "MCAL_M_ALLDAYS" "MCRYPT_" "MCRYPT_" -; "MCRYPT_ENCRYPT" "MCRYPT_DECRYPT" "MCRYPT_DEV_RANDOM" -; "MCRYPT_DEV_URANDOM" "MCRYPT_RAND" "SWFBUTTON_HIT" -; "SWFBUTTON_DOWN" "SWFBUTTON_OVER" "SWFBUTTON_UP" -; "SWFBUTTON_MOUSEUPOUTSIDE" "SWFBUTTON_DRAGOVER" -; "SWFBUTTON_DRAGOUT" "SWFBUTTON_MOUSEUP" "SWFBUTTON_MOUSEDOWN" -; "SWFBUTTON_MOUSEOUT" "SWFBUTTON_MOUSEOVER" -; "SWFFILL_RADIAL_GRADIENT" "SWFFILL_LINEAR_GRADIENT" -; "SWFFILL_TILED_BITMAP" "SWFFILL_CLIPPED_BITMAP" -; "SWFTEXTFIELD_HASLENGTH" "SWFTEXTFIELD_NOEDIT" -; "SWFTEXTFIELD_PASSWORD" "SWFTEXTFIELD_MULTILINE" -; "SWFTEXTFIELD_WORDWRAP" "SWFTEXTFIELD_DRAWBOX" -; "SWFTEXTFIELD_NOSELECT" "SWFTEXTFIELD_HTML" -; "SWFTEXTFIELD_ALIGN_LEFT" "SWFTEXTFIELD_ALIGN_RIGHT" -; "SWFTEXTFIELD_ALIGN_CENTER" "SWFTEXTFIELD_ALIGN_JUSTIFY" -; "UDM_FIELD_URLID" "UDM_FIELD_URL" "UDM_FIELD_CONTENT" -; "UDM_FIELD_TITLE" "UDM_FIELD_KEYWORDS" "UDM_FIELD_DESC" -; "UDM_FIELD_DESCRIPTION" "UDM_FIELD_TEXT" "UDM_FIELD_SIZE" -; "UDM_FIELD_RATING" "UDM_FIELD_SCORE" "UDM_FIELD_MODIFIED" -; "UDM_FIELD_ORDER" "UDM_FIELD_CRC" "UDM_FIELD_CATEGORY" -; "UDM_PARAM_PAGE_SIZE" "UDM_PARAM_PAGE_NUM" -; "UDM_PARAM_SEARCH_MODE" "UDM_PARAM_CACHE_MODE" -; "UDM_PARAM_TRACK_MODE" "UDM_PARAM_PHRASE_MODE" -; "UDM_PARAM_CHARSET" "UDM_PARAM_STOPTABLE" -; "UDM_PARAM_STOP_TABLE" "UDM_PARAM_STOPFILE" -; "UDM_PARAM_STOP_FILE" "UDM_PARAM_WEIGHT_FACTOR" -; "UDM_PARAM_WORD_MATCH" "UDM_PARAM_MAX_WORD_LEN" -; "UDM_PARAM_MAX_WORDLEN" "UDM_PARAM_MIN_WORD_LEN" -; "UDM_PARAM_MIN_WORDLEN" "UDM_PARAM_ISPELL_PREFIXES" -; "UDM_PARAM_ISPELL_PREFIX" "UDM_PARAM_PREFIXES" -; "UDM_PARAM_PREFIX" "UDM_PARAM_CROSS_WORDS" -; "UDM_PARAM_CROSSWORDS" "UDM_LIMIT_CAT" "UDM_LIMIT_URL" -; "UDM_LIMIT_TAG" "UDM_LIMIT_LANG" "UDM_LIMIT_DATE" -; "UDM_PARAM_FOUND" "UDM_PARAM_NUM_ROWS" "UDM_PARAM_WORDINFO" -; "UDM_PARAM_WORD_INFO" "UDM_PARAM_SEARCHTIME" -; "UDM_PARAM_SEARCH_TIME" "UDM_PARAM_FIRST_DOC" -; "UDM_PARAM_LAST_DOC" "UDM_MODE_ALL" "UDM_MODE_ANY" -; "UDM_MODE_BOOL" "UDM_MODE_PHRASE" "UDM_CACHE_ENABLED" -; "UDM_CACHE_DISABLED" "UDM_TRACK_ENABLED" "UDM_TRACK_DISABLED" -; "UDM_PHRASE_ENABLED" "UDM_PHRASE_DISABLED" -; "UDM_CROSS_WORDS_ENABLED" "UDM_CROSSWORDS_ENABLED" -; "UDM_CROSS_WORDS_DISABLED" "UDM_CROSSWORDS_DISABLED" -; "UDM_PREFIXES_ENABLED" "UDM_PREFIX_ENABLED" -; "UDM_ISPELL_PREFIXES_ENABLED" "UDM_ISPELL_PREFIX_ENABLED" -; "UDM_PREFIXES_DISABLED" "UDM_PREFIX_DISABLED" -; "UDM_ISPELL_PREFIXES_DISABLED" "UDM_ISPELL_PREFIX_DISABLED" -; "UDM_ISPELL_TYPE_AFFIX" "UDM_ISPELL_TYPE_SPELL" -; "UDM_ISPELL_TYPE_DB" "UDM_ISPELL_TYPE_SERVER" "UDM_MATCH_WORD" -; "UDM_MATCH_BEGIN" "UDM_MATCH_SUBSTR" "UDM_MATCH_END" -; "MSQL_ASSOC" "MSQL_NUM" "MSQL_BOTH" "MYSQL_ASSOC" "MYSQL_NUM" -; "MYSQL_BOTH" "MYSQL_USE_RESULT" "MYSQL_STORE_RESULT" -; "OCI_DEFAULT" "OCI_DESCRIBE_ONLY" "OCI_COMMIT_ON_SUCCESS" -; "OCI_EXACT_FETCH" "SQLT_BFILEE" "SQLT_CFILEE" "SQLT_CLOB" -; "SQLT_BLOB" "SQLT_RDD" "OCI_B_SQLT_NTY" "OCI_SYSDATE" -; "OCI_B_BFILE" "OCI_B_CFILEE" "OCI_B_CLOB" "OCI_B_BLOB" -; "OCI_B_ROWID" "OCI_B_CURSOR" "OCI_B_BIN" "OCI_ASSOC" "OCI_NUM" -; "OCI_BOTH" "OCI_RETURN_NULLS" "OCI_RETURN_LOBS" -; "OCI_DTYPE_FILE" "OCI_DTYPE_LOB" "OCI_DTYPE_ROWID" "OCI_D_FILE" -; "OCI_D_LOB" "OCI_D_ROWID" "ODBC_TYPE" "ODBC_BINMODE_PASSTHRU" -; "ODBC_BINMODE_RETURN" "ODBC_BINMODE_CONVERT" "SQL_ODBC_CURSORS" -; "SQL_CUR_USE_DRIVER" "SQL_CUR_USE_IF_NEEDED" "SQL_CUR_USE_ODBC" -; "SQL_CONCURRENCY" "SQL_CONCUR_READ_ONLY" "SQL_CONCUR_LOCK" -; "SQL_CONCUR_ROWVER" "SQL_CONCUR_VALUES" "SQL_CURSOR_TYPE" -; "SQL_CURSOR_FORWARD_ONLY" "SQL_CURSOR_KEYSET_DRIVEN" -; "SQL_CURSOR_DYNAMIC" "SQL_CURSOR_STATIC" "SQL_KEYSET_SIZE" -; "SQL_CHAR" "SQL_VARCHAR" "SQL_LONGVARCHAR" "SQL_DECIMAL" -; "SQL_NUMERIC" "SQL_BIT" "SQL_TINYINT" "SQL_SMALLINT" -; "SQL_INTEGER" "SQL_BIGINT" "SQL_REAL" "SQL_FLOAT" "SQL_DOUBLE" -; "SQL_BINARY" "SQL_VARBINARY" "SQL_LONGVARBINARY" "SQL_DATE" -; "SQL_TIME" "SQL_TIMESTAMP" "SQL_TYPE_DATE" "SQL_TYPE_TIME" -; "SQL_TYPE_TIMESTAMP" "SQL_BEST_ROWID" "SQL_ROWVER" -; "SQL_SCOPE_CURROW" "SQL_SCOPE_TRANSACTION" "SQL_SCOPE_SESSION" -; "SQL_NO_NULLS" "SQL_NULLABLE" "SQL_INDEX_UNIQUE" -; "SQL_INDEX_ALL" "SQL_ENSURE" "SQL_QUICK" -; "X509_PURPOSE_SSL_CLIENT" "X509_PURPOSE_SSL_SERVER" -; "X509_PURPOSE_NS_SSL_SERVER" "X509_PURPOSE_SMIME_SIGN" -; "X509_PURPOSE_SMIME_ENCRYPT" "X509_PURPOSE_CRL_SIGN" -; "X509_PURPOSE_ANY" "PKCS7_DETACHED" "PKCS7_TEXT" -; "PKCS7_NOINTERN" "PKCS7_NOVERIFY" "PKCS7_NOCHAIN" -; "PKCS7_NOCERTS" "PKCS7_NOATTR" "PKCS7_BINARY" "PKCS7_NOSIGS" -; "OPENSSL_PKCS1_PADDING" "OPENSSL_SSLV23_PADDING" -; "OPENSSL_NO_PADDING" "OPENSSL_PKCS1_OAEP_PADDING" -; "ORA_BIND_INOUT" "ORA_BIND_IN" "ORA_BIND_OUT" -; "ORA_FETCHINTO_ASSOC" "ORA_FETCHINTO_NULLS" -; "PREG_PATTERN_ORDER" "PREG_SET_ORDER" "PREG_SPLIT_NO_EMPTY" -; "PREG_SPLIT_DELIM_CAPTURE" -; "PGSQL_ASSOC" "PGSQL_NUM" "PGSQL_BOTH" -; "PRINTER_COPIES" "PRINTER_MODE" "PRINTER_TITLE" -; "PRINTER_DEVICENAME" "PRINTER_DRIVERVERSION" -; "PRINTER_RESOLUTION_Y" "PRINTER_RESOLUTION_X" "PRINTER_SCALE" -; "PRINTER_BACKGROUND_COLOR" "PRINTER_PAPER_LENGTH" -; "PRINTER_PAPER_WIDTH" "PRINTER_PAPER_FORMAT" -; "PRINTER_FORMAT_CUSTOM" "PRINTER_FORMAT_LETTER" -; "PRINTER_FORMAT_LEGAL" "PRINTER_FORMAT_A3" "PRINTER_FORMAT_A4" -; "PRINTER_FORMAT_A5" "PRINTER_FORMAT_B4" "PRINTER_FORMAT_B5" -; "PRINTER_FORMAT_FOLIO" "PRINTER_ORIENTATION" -; "PRINTER_ORIENTATION_PORTRAIT" "PRINTER_ORIENTATION_LANDSCAPE" -; "PRINTER_TEXT_COLOR" "PRINTER_TEXT_ALIGN" "PRINTER_TA_BASELINE" -; "PRINTER_TA_BOTTOM" "PRINTER_TA_TOP" "PRINTER_TA_CENTER" -; "PRINTER_TA_LEFT" "PRINTER_TA_RIGHT" "PRINTER_PEN_SOLID" -; "PRINTER_PEN_DASH" "PRINTER_PEN_DOT" "PRINTER_PEN_DASHDOT" -; "PRINTER_PEN_DASHDOTDOT" "PRINTER_PEN_INVISIBLE" -; "PRINTER_BRUSH_SOLID" "PRINTER_BRUSH_CUSTOM" -; "PRINTER_BRUSH_DIAGONAL" "PRINTER_BRUSH_CROSS" -; "PRINTER_BRUSH_DIAGCROSS" "PRINTER_BRUSH_FDIAGONAL" -; "PRINTER_BRUSH_HORIZONTAL" "PRINTER_BRUSH_VERTICAL" -; "PRINTER_FW_THIN" "PRINTER_FW_ULTRALIGHT" "PRINTER_FW_LIGHT" -; "PRINTER_FW_NORMAL" "PRINTER_FW_MEDIUM" "PRINTER_FW_BOLD" -; "PRINTER_FW_ULTRABOLD" "PRINTER_FW_HEAVY" "PRINTER_ENUM_LOCAL" -; "PRINTER_ENUM_NAME" "PRINTER_ENUM_SHARED" -; "PRINTER_ENUM_DEFAULT" "PRINTER_ENUM_CONNECTIONS" -; "PRINTER_ENUM_NETWORK" "PRINTER_ENUM_REMOTE" "PSPELL_FAST" -; "PSPELL_NORMAL" "PSPELL_BAD_SPELLERS" "PSPELL_RUN_TOGETHER" -; "SID" "SID" "AF_UNIX" "AF_INET" "SOCK_STREAM" "SOCK_DGRAM" -; "SOCK_RAW" "SOCK_SEQPACKET" "SOCK_RDM" "MSG_OOB" "MSG_WAITALL" -; "MSG_PEEK" "MSG_DONTROUTE" "SO_DEBUG" "SO_REUSEADDR" -; "SO_KEEPALIVE" "SO_DONTROUTE" "SO_LINGER" "SO_BROADCAST" -; "SO_OOBINLINE" "SO_SNDBUF" "SO_RCVBUF" "SO_SNDLOWAT" -; "SO_RCVLOWAT" "SO_SNDTIMEO" "SO_RCVTIMEO" "SO_TYPE" "SO_ERROR" -; "SOL_SOCKET" "PHP_NORMAL_READ" "PHP_BINARY_READ" -; "PHP_SYSTEM_READ" "SOL_TCP" "SOL_UDP" "MOD_COLOR" "MOD_MATRIX" -; "TYPE_PUSHBUTTON" "TYPE_MENUBUTTON" "BSHitTest" "BSDown" -; "BSOver" "BSUp" "OverDowntoIdle" "IdletoOverDown" -; "OutDowntoIdle" "OutDowntoOverDown" "OverDowntoOutDown" -; "OverUptoOverDown" "OverUptoIdle" "IdletoOverUp" "ButtonEnter" -; "ButtonExit" "MenuEnter" "MenuExit" "XML_ERROR_NONE" -; "XML_ERROR_NO_MEMORY" "XML_ERROR_SYNTAX" -; "XML_ERROR_NO_ELEMENTS" "XML_ERROR_INVALID_TOKEN" -; "XML_ERROR_UNCLOSED_TOKEN" "XML_ERROR_PARTIAL_CHAR" -; "XML_ERROR_TAG_MISMATCH" "XML_ERROR_DUPLICATE_ATTRIBUTE" -; "XML_ERROR_JUNK_AFTER_DOC_ELEMENT" "XML_ERROR_PARAM_ENTITY_REF" -; "XML_ERROR_UNDEFINED_ENTITY" "XML_ERROR_RECURSIVE_ENTITY_REF" -; "XML_ERROR_ASYNC_ENTITY" "XML_ERROR_BAD_CHAR_REF" -; "XML_ERROR_BINARY_ENTITY_REF" -; "XML_ERROR_ATTRIBUTE_EXTERNAL_ENTITY_REF" -; "XML_ERROR_MISPLACED_XML_PI" "XML_ERROR_UNKNOWN_ENCODING" -; "XML_ERROR_INCORRECT_ENCODING" -; "XML_ERROR_UNCLOSED_CDATA_SECTION" -; "XML_ERROR_EXTERNAL_ENTITY_HANDLING" "XML_OPTION_CASE_FOLDING" -; "XML_OPTION_TARGET_ENCODING" "XML_OPTION_SKIP_TAGSTART" -; "XML_OPTION_SKIP_WHITE" "YPERR_BADARGS" "YPERR_BADDB" -; "YPERR_BUSY" "YPERR_DOMAIN" "YPERR_KEY" "YPERR_MAP" -; "YPERR_NODOM" "YPERR_NOMORE" "YPERR_PMAP" "YPERR_RESRC" -; "YPERR_RPC" "YPERR_YPBIND" "YPERR_YPERR" "YPERR_YPSERV" -; "YPERR_VERS" "FORCE_GZIP" "FORCE_DEFLATE" - - ;; PEAR constants -; "PEAR_ERROR_RETURN" "PEAR_ERROR_PRINT" "PEAR_ERROR_TRIGGER" -; "PEAR_ERROR_DIE" "PEAR_ERROR_CALLBACK" "OS_WINDOWS" "OS_UNIX" -; "PEAR_OS" "DB_OK" "DB_ERROR" "DB_ERROR_SYNTAX" -; "DB_ERROR_CONSTRAINT" "DB_ERROR_NOT_FOUND" -; "DB_ERROR_ALREADY_EXISTS" "DB_ERROR_UNSUPPORTED" -; "DB_ERROR_MISMATCH" "DB_ERROR_INVALID" "DB_ERROR_NOT_CAPABLE" -; "DB_ERROR_TRUNCATED" "DB_ERROR_INVALID_NUMBER" -; "DB_ERROR_INVALID_DATE" "DB_ERROR_DIVZERO" -; "DB_ERROR_NODBSELECTED" "DB_ERROR_CANNOT_CREATE" -; "DB_ERROR_CANNOT_DELETE" "DB_ERROR_CANNOT_DROP" -; "DB_ERROR_NOSUCHTABLE" "DB_ERROR_NOSUCHFIELD" -; "DB_ERROR_NEED_MORE_DATA" "DB_ERROR_NOT_LOCKED" -; "DB_ERROR_VALUE_COUNT_ON_ROW" "DB_ERROR_INVALID_DSN" -; "DB_ERROR_CONNECT_FAILED" "DB_WARNING" "DB_WARNING_READ_ONLY" -; "DB_PARAM_SCALAR" "DB_PARAM_OPAQUE" "DB_BINMODE_PASSTHRU" -; "DB_BINMODE_RETURN" "DB_BINMODE_CONVERT" "DB_FETCHMODE_DEFAULT" -; "DB_FETCHMODE_ORDERED" "DB_FETCHMODE_ASSOC" -; "DB_FETCHMODE_FLIPPED" "DB_GETMODE_ORDERED" "DB_GETMODE_ASSOC" -; "DB_GETMODE_FLIPPED" "DB_TABLEINFO_ORDER" -; "DB_TABLEINFO_ORDERTABLE" "DB_TABLEINFO_FULL" - - ))) - "PHP constants.") - -(defconst php-keywords - (eval-when-compile - (regexp-opt - ;; "class", "new" and "extends" get special treatment - ;; "case" and "default" get special treatment elsewhere - '("and" "as" "break" "continue" "declare" "do" "echo" "else" "elseif" - "endfor" "endforeach" "endif" "endswitch" "endwhile" "exit" - "extends" "for" "foreach" "global" "if" "include" "include_once" - "next" "or" "require" "require_once" "return" "static" "switch" - "then" "var" "while" "xor" "private" "throw" "catch" "try" - "instanceof" "catch all" "finally"))) - "PHP keywords.") - -(defconst php-identifier - (eval-when-compile - '"[a-zA-Z\_\x7f-\xff][a-zA-Z0-9\_\x7f-\xff]*") - "Characters in a PHP identifier.") - -(defconst php-types - (eval-when-compile - (regexp-opt '("array" "bool" "boolean" "char" "const" "double" "float" - "int" "integer" "long" "mixed" "object" "real" - "string"))) - "PHP types.") - -(defconst php-superglobals - (eval-when-compile - (regexp-opt '("_GET" "_POST" "_COOKIE" "_SESSION" "_ENV" "GLOBALS" - "_SERVER" "_FILES" "_REQUEST"))) - "PHP superglobal variables.") - -;; Set up font locking -(defconst php-font-lock-keywords-1 - (list - ;; Fontify constants - (cons - (concat "\\<\\(" php-constants "\\)\\>") - 'font-lock-constant-face) - - ;; Fontify keywords - (cons - (concat "\\<\\(" php-keywords "\\)\\>") - 'font-lock-keyword-face) - - ;; Fontify keywords and targets, and case default tags. - (list "\\<\\(break\\|case\\|continue\\)\\>[ \t]*\\(-?\\(?:\\sw\\|\\s_\\)+\\)?" - '(1 font-lock-keyword-face) '(2 font-lock-constant-face t t)) - ;; This must come after the one for keywords and targets. - '(":" ("^[ \t]*\\(\\(?:\\sw\\|\\s_\\)+\\)[ \t]*:[ \t]*$" - (beginning-of-line) (end-of-line) - (1 font-lock-constant-face))) - - ;; treat 'print' as keyword only when not used like a function name - '("\\" . font-lock-keyword-face) - - ;; Fontify PHP tag - '("<\\?\\(php\\)?" . font-lock-constant-face) - '("\\?>" . font-lock-constant-face) - - ;; Fontify ASP-style tag - '("<\\%\\(=\\)?" . font-lock-constant-face) - '("\\%>" . font-lock-constant-face) - - ) - "Subdued level highlighting for PHP mode.") - -(defconst php-font-lock-keywords-2 - (append - php-font-lock-keywords-1 - (list - - ;; class declaration - '("[^_]*\\<\\(class\\|interface\\)[ \t]*\\(\\(?:\\sw\\|\\s_\\)+\\)?" - (1 font-lock-keyword-face) (2 font-lock-type-face nil t)) - ;; handle several words specially, to include following word, - ;; thereby excluding it from unknown-symbol checks later - ;; FIX to handle implementing multiple - ;; currently breaks on "class Foo implements Bar, Baz" - '("\\<\\(new\\|extends\\|implements\\)\\s-+\\$?\\(\\(?:\\sw\\|\\s_\\)+\\)" - (1 font-lock-keyword-face) (2 font-lock-type-face)) - - ;; function declaration - '("\\<\\(function\\)\\s-+&?\\(\\(?:\\sw\\|\\s_\\)+\\)\\s-*(" - (1 font-lock-keyword-face) - (2 font-lock-function-name-face nil t)) - - ;; class hierarchy - '("\\(self\\|parent\\)\\W" (1 font-lock-constant-face nil nil)) - - ;; method and variable features - '("\\<\\(private\\|protected\\|public\\)\\s-+\\$?\\(?:\\sw\\|\\s_\\)+" - (1 font-lock-keyword-face)) - - ;; method features - '("^[ \t]*\\(abstract\\|static\\|final\\)\\s-+\\$?\\(?:\\sw\\|\\s_\\)+" - (1 font-lock-keyword-face)) - - ;; variable features - '("^[ \t]*\\(static\\|const\\)\\s-+\\$?\\(?:\\sw\\|\\s_\\)+" - (1 font-lock-keyword-face)) - )) - "Medium level highlighting for PHP mode.") - -(defconst php-font-lock-keywords-3 - (append - php-font-lock-keywords-2 - `( - ;; or for HTML - ;;'(" ]*>" . font-lock-constant-face) - ;;'("]*" . font-lock-constant-face) - ;;'(" - ("<[^>]*\\(>\\)" (1 font-lock-constant-face)) - - ;; HTML tags - ("\\(<[a-z]+\\)[[:space:]]+\\([a-z:]+=\\)[^>]*?" (1 font-lock-constant-face) (2 font-lock-constant-face) ) - ("\"[[:space:]]+\\([a-z:]+=\\)" (1 font-lock-constant-face)) - - ;; HTML entities - ;;'("&\\w+;" . font-lock-variable-name-face) - - ;; warn about '$' immediately after -> - ,@(if php-mode-dollar-property-warning - '("\\$\\(?:\\sw\\|\\s_\\)+->\\s-*\\(\\$\\)\\(\\(?:\\sw\\|\\s_\\)+\\)" - (1 font-lock-warning-face) (2 php-default-face))) - - ;; warn about $word.word -- it could be a valid concatenation, - ;; but without any spaces we'll assume $word->word was meant. - ,@(if php-mode-dot-property-warning - '("\\$\\(?:\\sw\\|\\s_\\)+\\(\\.\\)\\sw" 1 font-lock-warning-face)) - - ;; Warn about ==> instead of => - ("==+>" . font-lock-warning-face) - - ;; exclude casts from bare-word treatment (may contain spaces) - (,(concat "(\\s-*\\(" php-types "\\)\\s-*)") 1 font-lock-type-face) - - ;; PHP5: function declarations may contain classes as parameters type - (,(concat - "[(,]\\s-*\\(\\(?:\\sw\\|\\s_\\)+\\)\\s-+&?\\$\\(?:\\sw\\|\\s_\\)+\\>") - 1 font-lock-type-face) - - ;; Fontify variables and function calls - ("\\$\\(this\\|that\\)\\W" (1 font-lock-constant-face nil nil)) - (,(concat "\\$\\(" php-superglobals "\\)\\W") - (1 font-lock-constant-face nil nil)) ; $_GET & co - ("\\$\\(\\(?:\\sw\\|\\s_\\)+\\)" (1 font-lock-variable-name-face)) ; $variable - ("->\\(\\(?:\\sw\\|\\s_\\)+\\)" (1 font-lock-variable-name-face t t)) ; ->variable - ("->\\(\\(?:\\sw\\|\\s_\\)+\\)\\s-*(" . (1 php-default-face t t)) ; ->function_call - ("\\(\\(?:\\sw\\|\\s_\\)+\\)::\\(?:\\sw\\|\\s_\\)+\\s-*(?" . (1 font-lock-type-face)) ; class::member - ("::\\(\\(?:\\sw\\|\\s_\\)+\\>[^(]\\)" . (1 php-default-face)) ; class::constant - ("\\<\\(?:\\sw\\|\\s_\\)+\\s-*[[(]" . php-default-face) ; word( or word[ - ("\\<[0-9]+" . php-default-face) ; number (also matches word) - - ;; Warn on any words not already fontified - ,@(if php-mode-warn-on-unmatched - '("\\<\\(?:\\sw\\|\\s_\\)+\\>" . font-lock-warning-face)) - - ) - ) - "Gauchy level highlighting for PHP mode.") - -;; Define the imenu-generic-expression for PHP mode. -;; To use, execute M-x imenu, then click on Functions or Classes, -;; then select given function/class name to go to its definition. -;; [Contributed by Gerrit Riessen] -(defvar php-imenu-generic-expression - '( - ("All Functions" - "^\\s-*function\\s-+\\([[:alnum:]_]+\\)\\s-*(" 1) - ("Classes" - "^\\s-*class\\s-+\\([[:alnum:]_]+\\)\\s-*" 1) - ("Public Methods" - "^\\s-*public function\\s-+\\([[:alnum:]_]+\\)\\s-*(" 1) - ("Protected Methods" - "^\\s-*protected function\\s-+\\([[:alnum:]_]+\\)\\s-*(" 1) - ("Private Methods" - "^\\s-*private function\\s-+\\([[:alnum:]_]+\\)\\s-*(" 1) - ) - "Imenu generic expression for PHP Mode. See `imenu-generic-expression'." - ) - -(defconst php-block-stmt-1-kwds '("do" "else" "finally" "try")) -(defconst php-block-stmt-2-kwds - '("for" "if" "while" "switch" "foreach" "elseif" "catch all")) - -(defconst php-block-stmt-1-key - (regexp-opt php-block-stmt-1-kwds)) -(defconst php-block-stmt-2-key - (regexp-opt php-block-stmt-2-kwds)) - -(defconst php-class-decl-kwds '("class" "interface")) - -(defconst php-class-key - (concat - "\\(" (regexp-opt php-class-decl-kwds) "\\)\\s +" - c-symbol-key ;; Class name. - "\\(\\s *extends\\s *" c-symbol-key "\\)?" ;; Name of superclass. - "\\(\\s *implements *[^{]+{\\)?")) ;; List of any adopted protocols. - -;; Create "php-default-face" symbol for GNU Emacs so that both XEmacs -;; and GNU emacs can refer to the default face. -(unless (boundp 'php-default-face) - (defvar php-default-face 'php-default-face)) - -;; Create faces for XEmacs -(when (featurep 'xemacs) - (unless (boundp 'font-lock-keyword-face) - (copy-face 'bold 'font-lock-keyword-face)) - (unless (boundp 'font-lock-constant-face) - (copy-face 'font-lock-keyword-face 'font-lock-constant-face))) - -(provide 'php-mode) - -;;; php-mode.el ends here diff --git a/.emacs.d/elisp/pi-php-mode b/.emacs.d/elisp/pi-php-mode deleted file mode 160000 index 32c5b60..0000000 --- a/.emacs.d/elisp/pi-php-mode +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 32c5b60b1748f8df4f6d1472e05679a443a1dea0 diff --git a/.emacs.d/functions.el b/.emacs.d/functions.el index 95fd455..1767290 100644 --- a/.emacs.d/functions.el +++ b/.emacs.d/functions.el @@ -181,9 +181,6 @@ Currently adds | & ! . + = - / % * , < > ? : ->" (setq fill-column 73) (auto-fill-mode)) -(defun on-php-mode () - (local-set-key [f6] 'comment-line)) - (defun on-mail-mode () (turn-on-auto-fill) (search-forward "\n\n")) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 210d2a9..cf602ab 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1,5 +1,6 @@ ;; -*- mode: Emacs-Lisp; -*- (load "~/.emacs.d/ryuslash-load-path") +(load-file "~/.emacs.d/functions.el") ;;; Autopair (require 'autopair) @@ -118,11 +119,18 @@ (gtags-mode t) (djcb-gtags-create-or-update))) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; REQUIRES ;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; PHP +(autoload 'php-mode "php-mode" "Major mode for PHP" t) +(setq-default php-warn-if-mumamo-off nil) ; don't warn me about this +(setq php-mode-force-pear t) +(add-to-list 'auto-mode-alist '("\\.php[345]?$" . php-mode)) +(add-hook 'php-mode-hook + (lambda () + (c-set-offset 'arglist-intro '+) + (c-set-offset 'arglist-close '0) + (local-set-key [f6] 'comment-line))) +(add-php-keywords) -(load-file "~/.emacs.d/functions.el") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; AUTOLOADS ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -131,7 +139,6 @@ (autoload 'sqlplus-mode "sqlplus" "Major mode for PL/SQL" t) (autoload 'batch-mode "batch-mode" "Major mode for Batch" t) (autoload 'lua-mode "lua-mode" "A Major mode for Lua" t) -(autoload 'php-mode "pi-php-mode" "Major mode for PHP" t) (autoload 'graphviz-dot-mode "graphviz-dot-mode" "Major mode for dot" t) (autoload 'cmake-mode "cmake-mode" "Major mode for CMake" t) (autoload 'rainbow-mode "rainbow-mode" "Minor mode for colors" t) @@ -156,7 +163,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq-default indent-tabs-mode nil) ; spaces, no tabs (setq-default truncate-lines t) ; don't wrap -(setq-default php-warn-if-mumamo-off nil) ; don't warn me about this (setq-default tab-width 4) (setq inhibit-startup-message t) ; Don't show welcome screen @@ -213,7 +219,6 @@ (add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode)) (add-to-list 'auto-mode-alist '("\\.bat$" . batch-mode)) (add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode)) -(add-to-list 'auto-mode-alist '("\\.php[345]?$" . php-mode)) (add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$" . js-mode)) (add-to-list 'auto-mode-alist '("CMakeLists\\.txt$" . cmake-mode)) (add-to-list 'auto-mode-alist '("\\.cmake$" . cmake-mode)) @@ -253,7 +258,6 @@ (add-hook 'c-mode-hook 'on-c-mode) (add-hook 'html-mode-hook 'on-html-mode) -(add-hook 'php-mode-hook 'on-php-mode) (add-hook 'message-mode-hook 'on-mail-mode) (add-hook 'git-commit-mode-hook 'auto-fill-mode) (add-hook 'css-mode-hook 'rainbow-mode) @@ -342,7 +346,6 @@ '(indent-region (point-min) (point-max))) (ad-activate 'server-create-window-system-frame) -(add-php-keywords) (add-html-keywords) (make-face 'font-lock-operator-face) (make-face 'font-lock-end-statement) diff --git a/.emacs.d/ryuslash-load-path.el b/.emacs.d/ryuslash-load-path.el index 984c136..298c9e9 100644 --- a/.emacs.d/ryuslash-load-path.el +++ b/.emacs.d/ryuslash-load-path.el @@ -2,7 +2,7 @@ (add-to-list 'load-path "~/.emacs.d/elisp/git-commit-mode") (add-to-list 'load-path "~/.emacs.d/elisp/lua-mode") (add-to-list 'load-path "~/.emacs.d/elisp/markdown-mode") -(add-to-list 'load-path "~/.emacs.d/elisp/pi-php-mode") +(add-to-list 'load-path "~/.emacs.d/elisp/php-mode") (add-to-list 'load-path "~/.emacs.d/elisp/rainbow") (add-to-list 'load-path "~/.emacs.d/elisp/rainbow-delimiters") (add-to-list 'load-path "~/.emacs.d/elisp/zencoding") diff --git a/.gitmodules b/.gitmodules index adebca9..f7c5436 100644 --- a/.gitmodules +++ b/.gitmodules @@ -1,6 +1,3 @@ -[submodule "config/awesome/vicious"] - path = config/awesome/vicious - url = http://git.sysphere.org/vicious/ [submodule ".zsh/syntax-highlighting"] path = .zsh/syntax-highlighting url = git://github.com/zsh-users/zsh-syntax-highlighting @@ -19,9 +16,6 @@ [submodule ".emacs.d/elisp/lua-mode"] path = .emacs.d/elisp/lua-mode url = https://github.com/immerrr/lua-mode.git -[submodule ".emacs.d/elisp/pi-php-mode"] - path = .emacs.d/elisp/pi-php-mode - url = git://piprime.fr/emacs/pi-php-mode.git [submodule ".emacs.d/elisp/rainbow-delimiters"] path = .emacs.d/elisp/rainbow-delimiters url = git://github.com/jlr/rainbow-delimiters.git @@ -31,3 +25,6 @@ [submodule ".emacs.d/elisp/zencoding"] path = .emacs.d/elisp/zencoding url = git://github.com/rooney/zencoding.git +[submodule ".emacs.d/elisp/php-mode"] + path = .emacs.d/elisp/php-mode + url = git://github.com/ejmr/php-mode.git