作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

发信人: 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.*]

相关软件：