 	     (beginning-of-thing 'word)
 	     (cond ((fast-looking-back "plw.")
 		    word)
-;;		    (format "plw.%s" word))
+		   ;;		    (format "plw.%s" word))
 		   ((looking-back (format "%s\\." (list-pjs-namespaces-regexp)) (line-beginning-position))
 		    (backward-word)
 		    (format "%s.%s" (thing-at-point 'word t) word))

   (if current-prefix-arg
       '(nil)
     (list (car (pjs-get-default-symbol "Lisp locate source" t t)))))
;;  (interactive)
  (if (string-match ":" tag)
      (fi::lisp-find-definition-common tag nil)
    (fi::lisp-find-definition-common (if (string-prefix-p "plw." tag t)
					 (concat "js::" (substring tag (1+ (position ?. tag))))
				       (concat "js::" tag)) nil)))
  
(defun %pjs-list-who-calls (tag)
  (interactive
   (if current-prefix-arg

  :syntax-table pjs-mode-syntax-table

  ;; load a little bit of cc-mode for indentation
;;  (c-initialize-cc-mode t)
;;  (c-init-language-vars c-mode)
;;  (c-init-language-vars-for 'pjs-mode)
;;  (c-common-init 'c-mode)

  ;; indentation like js mode
  (setq-local indent-line-function 'js-indent-line)
  (setq-local beginning-of-defun-function 'js-beginning-of-defun)
  (setq-local end-of-defun-function 'js-end-of-defun)
  (setq-local open-paren-in-column-0-is-defun-start nil)

  (setq c-comment-prefix-regexp "//+\\|\\**"
        c-paragraph-start "$"
        c-paragraph-separate "$"
        c-block-comment-prefix "* "
        c-line-comment-starter "//"
        c-comment-start-regexp "/[*/]\\|\\s!"
        comment-start-skip "\\(//+\\|/\\*+\\)\\s *")

  (let ((c-buffer-is-cc-mode t))
    ;; FIXME: These are normally set by `c-basic-common-init'.  Should
    ;; we call it instead?  (Bug#6071)
    (make-local-variable 'paragraph-start)
    (make-local-variable 'paragraph-separate)
    (make-local-variable 'paragraph-ignore-fill-prefix)
    (make-local-variable 'adaptive-fill-mode)
    (make-local-variable 'adaptive-fill-regexp)
    (c-setup-paragraph-variables))
  
;;  (setq c-current-comment-prefix  c-comment-prefix-regexp)
  
;;  (setq-local parse-sexp-ignore-comments t)
;;  (setq-local parse-sexp-lookup-properties t)
  
  ;; don't trust properties
  (setq parse-sexp-lookup-properties nil)
  
