|
|
@ -165,7 +165,7 @@ With arg, to it arg times."
|
|
|
|
(and (re-search-backward "^class[ \t]" nil t)
|
|
|
|
(and (re-search-backward "^class[ \t]" nil t)
|
|
|
|
(progn
|
|
|
|
(progn
|
|
|
|
(forward-word 1)
|
|
|
|
(forward-word 1)
|
|
|
|
(while (looking-at "[ \t]*Q_EXPORT")
|
|
|
|
(while (looking-at "[ \t]*TQ_EXPORT")
|
|
|
|
(forward-word 2))
|
|
|
|
(forward-word 2))
|
|
|
|
(while (looking-at "[ \t]")
|
|
|
|
(while (looking-at "[ \t]")
|
|
|
|
(forward-char 1))
|
|
|
|
(forward-char 1))
|
|
|
@ -1618,7 +1618,7 @@ With arg, to it arg times."
|
|
|
|
(re-search-backward "^class \\([a-zA-Z0-9_]+\\)[ \t]*\\([a-zA-Z0-9_]*\\)" nil t)
|
|
|
|
(re-search-backward "^class \\([a-zA-Z0-9_]+\\)[ \t]*\\([a-zA-Z0-9_]*\\)" nil t)
|
|
|
|
(set class (match-string 1))
|
|
|
|
(set class (match-string 1))
|
|
|
|
(set save (match-string 2))
|
|
|
|
(set save (match-string 2))
|
|
|
|
(and (string-match "Q_EXPORT" class)
|
|
|
|
(and (string-match "TQ_EXPORT" class)
|
|
|
|
(set class save))
|
|
|
|
(set class save))
|
|
|
|
(message (concat class "::" fn))
|
|
|
|
(message (concat class "::" fn))
|
|
|
|
)
|
|
|
|
)
|
|
|
|