git-gutter+ and symlinks

gistfile1.el

Debugger entered--Lisp error: (wrong-number-of-arguments nil 0)
  signal(wrong-number-of-arguments (nil 0))
  (if (= (length --cl-rest--) 2) (car (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))
  (let* ((--cl-rest-- (git-gutter+-diff curfile)) (diff-header (if (= (length --cl-rest--) 2) (car (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (diffinfos (car --cl-rest--))) (setq git-gutter+-diff-header diff-header git-gutter+-diffinfos diffinfos) (save-restriction (widen) (funcall git-gutter+-view-diff-function diffinfos)))
  (progn (let* ((--cl-rest-- (git-gutter+-diff curfile)) (diff-header (if (= (length --cl-rest--) 2) (car (prog1 --cl-rest-- (setq --cl-rest-- ...))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (diffinfos (car --cl-rest--))) (setq git-gutter+-diff-header diff-header git-gutter+-diffinfos diffinfos) (save-restriction (widen) (funcall git-gutter+-view-diff-function diffinfos))))
  git-gutter+-process-diff("../../../../releases/cu_registrar/dev/includes/bootstrap.inc")
  (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile))
  (progn (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile)))
  (if it (progn (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile))))
  (let ((it (git-gutter+-root-directory file))) (if it (progn (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile)))))
  (progn (let ((it (git-gutter+-root-directory file))) (if it (progn (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile))))))
  (if (and file (file-exists-p file)) (progn (let ((it (git-gutter+-root-directory file))) (if it (progn (let* ((default-directory ...) (curfile ...)) (git-gutter+-process-diff curfile)))))))
  (let ((file (buffer-file-name))) (if (and file (file-exists-p file)) (progn (let ((it (git-gutter+-root-directory file))) (if it (progn (let* (... ...) (git-gutter+-process-diff curfile))))))))
  git-gutter+-refresh()
  (progn (git-gutter+-add-local-hooks) (git-gutter+-refresh))
  (if (and (git-gutter+-file-buffer-p) (git-gutter+-in-git-repository-p (buffer-file-name))) (progn (git-gutter+-add-local-hooks) (git-gutter+-refresh)) (if (called-interactively-p (quote any)) (message "No Git repo for current buffer")) (git-gutter+-mode -1))
  (if git-gutter+-mode (if (and (git-gutter+-file-buffer-p) (git-gutter+-in-git-repository-p (buffer-file-name))) (progn (git-gutter+-add-local-hooks) (git-gutter+-refresh)) (if (called-interactively-p (quote any)) (message "No Git repo for current buffer")) (git-gutter+-mode -1)) (git-gutter+-remove-local-hooks) (git-gutter+-clear))
  (let ((last-message (current-message))) (setq git-gutter+-mode (if (eq arg (quote toggle)) (not git-gutter+-mode) (> (prefix-numeric-value arg) 0))) (if git-gutter+-mode (if (and (git-gutter+-file-buffer-p) (git-gutter+-in-git-repository-p (buffer-file-name))) (progn (git-gutter+-add-local-hooks) (git-gutter+-refresh)) (if (called-interactively-p (quote any)) (message "No Git repo for current buffer")) (git-gutter+-mode -1)) (git-gutter+-remove-local-hooks) (git-gutter+-clear)) (run-hooks (quote git-gutter+-mode-hook) (if git-gutter+-mode (quote git-gutter+-mode-on-hook) (quote git-gutter+-mode-off-hook))) (if (called-interactively-p (quote any)) (progn nil (if (and (current-message) (not (equal last-message (current-message)))) nil (message "Git-Gutter+ mode %sabled" (if git-gutter+-mode "en" "dis"))))))
  git-gutter+-mode(t)
  (progn (git-gutter+-mode t))
  (if (and (buffer-file-name) (not (memq major-mode git-gutter+-disabled-modes)) (not git-gutter+-mode)) (progn (git-gutter+-mode t)))
  git-gutter+-turn-on()
  run-hooks(find-file-hook)
  after-find-file(nil nil)
  find-file-noselect-1(#<buffer bootstrap.inc> "~/data/releases/cu_registrar/dev/includes/bootstrap.inc" t nil "~/data/code/dslm_base/cores/drupal-7.22/includes/bootstrap.inc" (35370789 16777219))
  find-file-noselect("~/data/releases/cu_registrar/dev/includes/bootstrap.inc" t)
  (set-buffer (find-file-noselect (concat dir file) t))
  (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list (list nil (cons ... ...) (cons ... dir)))) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2)))
  (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list (list nil ... ...))) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2))))
  (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list ...)) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2)))))
  (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables ... ...) (dir-locals-set-directory-class dir ...)))) (setq drupal-version (match-string-no-properties 2))))))
  (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn ... ...))) (setq drupal-version (match-string-no-properties 2)))))))
  (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect ... t)) (save-excursion (widen) (goto-char ...) (if ... ...)) (setq drupal-version (match-string-no-properties 2))))))))
  (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer ...) (save-excursion ... ... ...) (setq drupal-version ...))))))))
  (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer ... ... ...))))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir ...)) (if dir (progn ...)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let (...) (if dir ...))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (progn (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (hack-local-variables))
  (if (or (not drupal-version) (not drupal-rootdir)) (progn (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here ...)) (if here (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (hack-local-variables)))
  drupal-detect-drupal-version()
  (progn (drupal-detect-drupal-version) (if (or drupal-version (string-match "drush" (or buffer-file-name default-directory))) (progn (drupal-mode 1))))
  (if (apply (quote derived-mode-p) (append drupal-php-modes drupal-css-modes drupal-js-modes drupal-info-modes)) (progn (drupal-detect-drupal-version) (if (or drupal-version (string-match "drush" (or buffer-file-name default-directory))) (progn (drupal-mode 1)))))
  drupal-mode-bootstrap()
  run-hooks(change-major-mode-after-body-hook prog-mode-hook c-mode-common-hook c-mode-hook c-mode-hook php-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook prog-mode-hook c-mode-common-hook c-mode-hook c-mode-hook php-mode-hook))
  run-mode-hooks(php-mode-hook)
  php-mode()
  set-auto-mode-0(php-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil nil)
  find-file-noselect-1(#<buffer system.module> "~/data/releases/cu_registrar/dev/modules/system/system.module" t nil "~/data/code/dslm_base/cores/drupal-7.22/modules/system/system.module" (35371681 16777219))
  find-file-noselect("~/data/releases/cu_registrar/dev/modules/system/system.module" t)
  (set-buffer (find-file-noselect (concat dir file) t))
  (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list (list nil (cons ... ...) (cons ... dir)))) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2)))
  (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list (list nil ... ...))) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2))))
  (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list ...)) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2)))))
  (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables ... ...) (dir-locals-set-directory-class dir ...)))) (setq drupal-version (match-string-no-properties 2))))))
  (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn ... ...))) (setq drupal-version (match-string-no-properties 2)))))))
  (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect ... t)) (save-excursion (widen) (goto-char ...) (if ... ...)) (setq drupal-version (match-string-no-properties 2))))))))
  (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer ...) (save-excursion ... ... ...) (setq drupal-version ...))))))))
  (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer ... ... ...))))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir ...)) (if dir (progn ...)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let (...) (if dir ...))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (progn (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (hack-local-variables))
  (if (or (not drupal-version) (not drupal-rootdir)) (progn (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here ...)) (if here (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (hack-local-variables)))
  drupal-detect-drupal-version()
  (progn (drupal-detect-drupal-version) (if (or drupal-version (string-match "drush" (or buffer-file-name default-directory))) (progn (drupal-mode 1))))
  (if (apply (quote derived-mode-p) (append drupal-php-modes drupal-css-modes drupal-js-modes drupal-info-modes)) (progn (drupal-detect-drupal-version) (if (or drupal-version (string-match "drush" (or buffer-file-name default-directory))) (progn (drupal-mode 1)))))
  drupal-mode-bootstrap()
  run-hooks(change-major-mode-after-body-hook prog-mode-hook c-mode-common-hook c-mode-hook c-mode-hook php-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook prog-mode-hook c-mode-common-hook c-mode-hook c-mode-hook php-mode-hook))
  run-mode-hooks(php-mode-hook)
  php-mode()
  set-auto-mode-0(php-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer foo.php> "~/data/releases/cu_registrar/dev/foo.php" nil nil "~/data/releases/cu_registrar/dev/foo.php" (34396663 16777219))
  find-file-noselect("/Users/daha1836/data/releases/cu_registrar/dev/foo.php" nil nil nil)
  find-file("/Users/daha1836/data/releases/cu_registrar/dev/foo.php")
  dired-find-file()
  call-interactively(dired-find-file nil nil)
Debugger entered--Lisp error: (wrong-number-of-arguments nil 0)
  signal(wrong-number-of-arguments (nil 0))
  (if (= (length --cl-rest--) 2) (car (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))
  (let* ((--cl-rest-- (git-gutter+-diff curfile)) (diff-header (if (= (length --cl-rest--) 2) (car (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (diffinfos (car --cl-rest--))) (setq git-gutter+-diff-header diff-header git-gutter+-diffinfos diffinfos) (save-restriction (widen) (funcall git-gutter+-view-diff-function diffinfos)))
  (progn (let* ((--cl-rest-- (git-gutter+-diff curfile)) (diff-header (if (= (length --cl-rest--) 2) (car (prog1 --cl-rest-- (setq --cl-rest-- ...))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (diffinfos (car --cl-rest--))) (setq git-gutter+-diff-header diff-header git-gutter+-diffinfos diffinfos) (save-restriction (widen) (funcall git-gutter+-view-diff-function diffinfos))))
  git-gutter+-process-diff("../../../../releases/cu_registrar/dev/includes/bootstrap.inc")
  (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile))
  (progn (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile)))
  (if it (progn (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile))))
  (let ((it (git-gutter+-root-directory file))) (if it (progn (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile)))))
  (progn (let ((it (git-gutter+-root-directory file))) (if it (progn (let* ((default-directory (git-gutter+-default-directory it file)) (curfile (git-gutter+-relative-path default-directory file))) (git-gutter+-process-diff curfile))))))
  (if (and file (file-exists-p file)) (progn (let ((it (git-gutter+-root-directory file))) (if it (progn (let* ((default-directory ...) (curfile ...)) (git-gutter+-process-diff curfile)))))))
  (let ((file (buffer-file-name))) (if (and file (file-exists-p file)) (progn (let ((it (git-gutter+-root-directory file))) (if it (progn (let* (... ...) (git-gutter+-process-diff curfile))))))))
  git-gutter+-refresh()
  (progn (git-gutter+-add-local-hooks) (git-gutter+-refresh))
  (if (and (git-gutter+-file-buffer-p) (git-gutter+-in-git-repository-p (buffer-file-name))) (progn (git-gutter+-add-local-hooks) (git-gutter+-refresh)) (if (called-interactively-p (quote any)) (message "No Git repo for current buffer")) (git-gutter+-mode -1))
  (if git-gutter+-mode (if (and (git-gutter+-file-buffer-p) (git-gutter+-in-git-repository-p (buffer-file-name))) (progn (git-gutter+-add-local-hooks) (git-gutter+-refresh)) (if (called-interactively-p (quote any)) (message "No Git repo for current buffer")) (git-gutter+-mode -1)) (git-gutter+-remove-local-hooks) (git-gutter+-clear))
  (let ((last-message (current-message))) (setq git-gutter+-mode (if (eq arg (quote toggle)) (not git-gutter+-mode) (> (prefix-numeric-value arg) 0))) (if git-gutter+-mode (if (and (git-gutter+-file-buffer-p) (git-gutter+-in-git-repository-p (buffer-file-name))) (progn (git-gutter+-add-local-hooks) (git-gutter+-refresh)) (if (called-interactively-p (quote any)) (message "No Git repo for current buffer")) (git-gutter+-mode -1)) (git-gutter+-remove-local-hooks) (git-gutter+-clear)) (run-hooks (quote git-gutter+-mode-hook) (if git-gutter+-mode (quote git-gutter+-mode-on-hook) (quote git-gutter+-mode-off-hook))) (if (called-interactively-p (quote any)) (progn nil (if (and (current-message) (not (equal last-message (current-message)))) nil (message "Git-Gutter+ mode %sabled" (if git-gutter+-mode "en" "dis"))))))
  git-gutter+-mode(t)
  (progn (git-gutter+-mode t))
  (if (and (buffer-file-name) (not (memq major-mode git-gutter+-disabled-modes)) (not git-gutter+-mode)) (progn (git-gutter+-mode t)))
  git-gutter+-turn-on()
  run-hooks(find-file-hook)
  after-find-file(nil nil)
  find-file-noselect-1(#<buffer bootstrap.inc> "~/data/releases/cu_registrar/dev/includes/bootstrap.inc" t nil "~/data/code/dslm_base/cores/drupal-7.22/includes/bootstrap.inc" (35370789 16777219))
  find-file-noselect("~/data/releases/cu_registrar/dev/includes/bootstrap.inc" t)
  (set-buffer (find-file-noselect (concat dir file) t))
  (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list (list nil (cons ... ...) (cons ... dir)))) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2)))
  (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list (list nil ... ...))) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2))))
  (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list ...)) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2)))))
  (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables ... ...) (dir-locals-set-directory-class dir ...)))) (setq drupal-version (match-string-no-properties 2))))))
  (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn ... ...))) (setq drupal-version (match-string-no-properties 2)))))))
  (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect ... t)) (save-excursion (widen) (goto-char ...) (if ... ...)) (setq drupal-version (match-string-no-properties 2))))))))
  (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer ...) (save-excursion ... ... ...) (setq drupal-version ...))))))))
  (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer ... ... ...))))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir ...)) (if dir (progn ...)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let (...) (if dir ...))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (progn (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (hack-local-variables))
  (if (or (not drupal-version) (not drupal-rootdir)) (progn (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here ...)) (if here (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (hack-local-variables)))
  drupal-detect-drupal-version()
  (progn (drupal-detect-drupal-version) (if (or drupal-version (string-match "drush" (or buffer-file-name default-directory))) (progn (drupal-mode 1))))
  (if (apply (quote derived-mode-p) (append drupal-php-modes drupal-css-modes drupal-js-modes drupal-info-modes)) (progn (drupal-detect-drupal-version) (if (or drupal-version (string-match "drush" (or buffer-file-name default-directory))) (progn (drupal-mode 1)))))
  drupal-mode-bootstrap()
  run-hooks(change-major-mode-after-body-hook prog-mode-hook c-mode-common-hook c-mode-hook c-mode-hook php-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook prog-mode-hook c-mode-common-hook c-mode-hook c-mode-hook php-mode-hook))
  run-mode-hooks(php-mode-hook)
  php-mode()
  set-auto-mode-0(php-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil nil)
  find-file-noselect-1(#<buffer system.module> "~/data/releases/cu_registrar/dev/modules/system/system.module" t nil "~/data/code/dslm_base/cores/drupal-7.22/modules/system/system.module" (35371681 16777219))
  find-file-noselect("~/data/releases/cu_registrar/dev/modules/system/system.module" t)
  (set-buffer (find-file-noselect (concat dir file) t))
  (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list (list nil (cons ... ...) (cons ... dir)))) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2)))
  (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list (list nil ... ...))) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2))))
  (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables (quote drupal-site) (list ...)) (dir-locals-set-directory-class dir (quote drupal-site))))) (setq drupal-version (match-string-no-properties 2)))))
  (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn (dir-locals-set-class-variables ... ...) (dir-locals-set-directory-class dir ...)))) (setq drupal-version (match-string-no-properties 2))))))
  (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect (concat dir file) t)) (save-excursion (widen) (goto-char (point-min)) (if (re-search-forward "\\(define('VERSION',\\|const VERSION =\\) +'\\(.+\\)'" nil t) (progn ... ...))) (setq drupal-version (match-string-no-properties 2)))))))
  (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer (find-file-noselect ... t)) (save-excursion (widen) (goto-char ...) (if ... ...)) (setq drupal-version (match-string-no-properties 2))))))))
  (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer (set-buffer ...) (save-excursion ... ... ...) (setq drupal-version ...))))))))
  (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir (locate-dominating-file here file))) (if dir (progn (save-current-buffer ... ... ...))))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ((dir ...)) (if dir (progn ...)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let (...) (if dir ...))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (progn (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here (or buffer-file-name default-directory))) (if here (progn (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (hack-local-variables))
  (if (or (not drupal-version) (not drupal-rootdir)) (progn (progn (let ((--dolist-tail-- (quote ("modules/system/system.module" "includes/bootstrap.inc" "core/includes/bootstrap.inc"))) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((here ...)) (if here (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (hack-local-variables)))
  drupal-detect-drupal-version()
  (progn (drupal-detect-drupal-version) (if (or drupal-version (string-match "drush" (or buffer-file-name default-directory))) (progn (drupal-mode 1))))
  (if (apply (quote derived-mode-p) (append drupal-php-modes drupal-css-modes drupal-js-modes drupal-info-modes)) (progn (drupal-detect-drupal-version) (if (or drupal-version (string-match "drush" (or buffer-file-name default-directory))) (progn (drupal-mode 1)))))
  drupal-mode-bootstrap()
  run-hooks(change-major-mode-after-body-hook prog-mode-hook c-mode-common-hook c-mode-hook c-mode-hook php-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook prog-mode-hook c-mode-common-hook c-mode-hook c-mode-hook php-mode-hook))
  run-mode-hooks(php-mode-hook)
  php-mode()
  set-auto-mode-0(php-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer foo.php> "~/data/releases/cu_registrar/dev/foo.php" nil nil "~/data/releases/cu_registrar/dev/foo.php" (34396663 16777219))
  find-file-noselect("/Users/daha1836/data/releases/cu_registrar/dev/foo.php" nil nil nil)
  find-file("/Users/daha1836/data/releases/cu_registrar/dev/foo.php")
  dired-find-file()
  call-interactively(dired-find-file nil nil)