(let ((b (get-buffer-create "*CEDET CScope*"))
(cd default-directory)
)
- (save-excursion
- (set-buffer b)
+ (with-current-buffer b
(setq default-directory cd)
(erase-buffer))
(apply 'call-process cedet-cscope-command
"Expand the FILENAME with CScope.
Return a fully qualified filename."
(interactive "sFile: ")
- (let* ((ans1 (save-excursion
- (set-buffer (cedet-cscope-call (list "-d" "-L" "-7" filename)))
+ (let* ((ans1 (with-current-buffer
+ (cedet-cscope-call (list "-d" "-L" "-7" filename))
(goto-char (point-min))
(if (looking-at "[^ \n]*cscope: ")
(error "CScope not available")
(when (interactive-p)
(message "CScope not found."))
nil)
- (save-excursion
- (set-buffer b)
+ (with-current-buffer b
(goto-char (point-min))
(re-search-forward "cscope: version \\([0-9.]+\\)" nil t)
(setq rev (match-string 1))