Changeset 8167 for lang/xyzzy

Timestamp:

03/19/08 22:57:24 (5 years ago)

Author:

miyamuko

Message:

lang/xyzzy/xyscope/site-lisp/xyscope.l (xyscope-jump-to-xyzzy-source):
cscope-find-xxx function now handle exec-dir properly.
cscope 2008.03.18 or later required.

Files:

• lang/xyzzy/xyscope/site-lisp/xyscope.l (modified) (3 diffs)

lang/xyzzy/xyscope/site-lisp/xyscope.l

@@ -6 +6 @@
 ;;
 ;; Author: MIYAMUKO Katsuyuki <miyamuko@gmail.com>
-;; Version: 0.1
+;; Version: 0.3
 ;; Keywords: development
 ;;
@@ -34 +34 @@
 ;;
 ;; * tag jump に cscope を使っているので、NetInstaller から cscope をインストールしてください。
-;;   2008.03.17 以上が必要です。
+;;   2008.03.18 版以上が必要です。
 ;;
 ;; * 使い方
@@ -109 +109 @@
 (defun xyscope-jump-to-xyzzy-source (sym)
   (interactive "SBuild-in symbol: ")
-  (macrolet ((save-default-directory (&body body)
-               `(let ((dir (default-directory))
-                      (buf (selected-buffer)))
-                  (unwind-protect
-                      (progn ,@body)
-                    (set-default-directory dir buf)))))
-    (save-default-directory
-     (set-default-directory *xyscope-xyzzy-source-directory* buf)
-     (multiple-value-bind (cname type)
-         (xyzzy-lisp-symbol->c-name sym)
-       (funcall (if (eq type :function)
-                    'cscope-find-global-definition
-                  'cscope-find-c-symbol)
-                cname)
-       (message "~S => ~S" sym cname)
-       ))))
+  (multiple-value-bind (cname type)
+      (xyzzy-lisp-symbol->c-name sym)
+    (funcall (if (eq type :function)
+                 'cscope-find-global-definition
+               'cscope-find-c-symbol)
+             cname *xyscope-xyzzy-source-directory*)
+    (message "~S => ~S" sym cname)
+    ))
 
 (defun xyscope-jump-to-xyzzy-source-current-word ()