diff options
author | Michele Calgaro <michele.calgaro@yahoo.it> | 2018-09-27 16:03:56 +0900 |
---|---|---|
committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2018-09-27 16:03:56 +0900 |
commit | a615469e90c89c23000bd7c2f2905744123ac728 (patch) | |
tree | e3db27e2ce51ea6c9cfb0bb7dc2256bf4f8e60f0 /scripts/kde-emacs/kde-emacs-utils.el | |
parent | fe4b336173b34957c0ebaecaba3d8781623acb68 (diff) | |
download | tdesdk-a615469e90c89c23000bd7c2f2905744123ac728.tar.gz tdesdk-a615469e90c89c23000bd7c2f2905744123ac728.zip |
qt -> tqt conversion:
QTDIR -> TQTDIR
QTDOC -> TQTDOC
INCDIR_QT -> INCDIR_TQT
LIBDIR_QT -> LIBDIR_TQT
QT_INC -> TQT_INC
QT_LIB -> TQT_LIB
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
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) ) |