diff options
Diffstat (limited to 'scripts/kde-emacs/kde-emacs-utils.el')
| -rw-r--r-- | scripts/kde-emacs/kde-emacs-utils.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/kde-emacs/kde-emacs-utils.el b/scripts/kde-emacs/kde-emacs-utils.el index 37cc8977..d983ae30 100644 --- a/scripts/kde-emacs/kde-emacs-utils.el +++ b/scripts/kde-emacs/kde-emacs-utils.el @@ -865,14 +865,14 @@ This function does not do any hidden buffer changes." (defun qt-open-header () "Open the Qt header file for the class under point" (interactive) - (let* ((qtinc (concat (getenv "QTDIR") "/include/")) + (let* ((qtinc (concat (getenv "TQTDIR") "/include/")) (class (thing-at-point 'word)) (f nil) (file nil) (files nil) ) (save-excursion - ; The Qt3 case: the includes are directly in $QTDIR/include/, lowercased + ; The Qt3 case: the includes are directly in $TQTDIR/include/, lowercased (set f (concat qtinc (downcase class) ".h" )) (if (file-readable-p f) (set file f) @@ -880,7 +880,7 @@ This function does not do any hidden buffer changes." (set f (concat qtinc (downcase class) "_qws.h" )) (if (file-readable-p f) (set file f) - ; The Qt4 case: the includes are in $QTDIR/include/QSomething/, in original case + ; The Qt4 case: the includes are in $TQTDIR/include/QSomething/, in original case (set files (directory-files qtinc t nil "dirsonly")) (dolist (f files nil) (if (file-readable-p (concat f "/" class) ) |