- (when (equal (file-name-extension buffer-file-name) "c")
- (let ((header-file-name
- (concat (file-name-sans-extension buffer-file-name) ".h")))
- (cl-find-if
- (lambda (buffer)
- (with-current-buffer buffer
- (equal buffer-file-name header-file-name)))
- (buffer-list)))))
+ (pcase (file-name-extension buffer-file-name)
+ ("h"
+ (current-buffer))
+ ("c"
+ (let ((header-file-name
+ (concat (file-name-sans-extension buffer-file-name) ".h")))
+ (cl-find-if
+ (lambda (buffer)
+ (with-current-buffer buffer
+ (equal buffer-file-name header-file-name)))
+ (buffer-list))))))