发信人: rokia (我就是我), 信区: Emacs
标 题: 打开对应的 H 文件 或者 cpp 文件。
发信站: BBS 水木清华站 (Mon Dec 6 11:12:16 2004), 站内
打开当前文件对应的头文件或cpp 文件。
第一次写。嘿嘿，不知道有没有人写过。写的烂的地方请多指教。
嘿。
(defun dd-open-h-cpp (p)
"open related header file or cpp file"
(interactive "p")
(setq wholename (buffer-file-name))
(setq nameext (file-name-extension wholename))
(if (string= nameext "h")
(
(lambda()
(setq namenew (concat (file-name-sans-extension wholename) ".cpp"))
( if(= p 0)
(find-file namenew)
(find-file-other-window namenew)
)
)
)
)
(if (string= nameext "cpp")
(
(lambda()
(setq namenew (concat (file-name-sans-extension wholename) ".h"))
( if(= p 0)
(find-file namenew)
(find-file-other-window namenew)
)
)
)
)
)
(global-set-key [(control f7)] (lambda () (interactive) (dd-open-h-cpp 0)))
(global-set-key [(control f6)] (lambda () (interactive) (dd-open-h-cpp 1)))
(global-set-key [(control f7)] (lambda () (interactive) (dd-open-h-cpp 0)))
(global-set-key [(control f6)] (lambda () (interactive) (dd-open-h-cpp 1)))
--
秋天别来...
※ 来源:·BBS 水木清华站 smth.org·[FROM: 135.252.62.*]