From d2c32364fd1873a6e9cfa52d2531dfbe500ad297 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 26 Jun 2012 12:23:01 -0400 Subject: * lisp/files.el (file-name-base): New convenience function. * lisp/autoinsert.el, lisp/cus-dep.el, lisp/doc-view.el, lisp/image-dired.el, * lisp/woman.el, lisp/eshell/esh-cmd.el, lisp/progmodes/ada-xref.el, * lisp/progmodes/cc-defs.el, lisp/progmodes/cperl-mode.el, * lisp/progmodes/flymake.el, lisp/progmodes/gud.el, lisp/progmodes/idlwave.el, * lisp/textmodes/ispell.el, lisp/textmodes/reftex-ref.el, * lisp/textmodes/tex-mode.el: Use it. Did not touch cedet and org because they are maintained elsewhere. --- lisp/progmodes/gud.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/progmodes/gud.el') diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 7123a8dd7fc..0b67bbed7ea 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -2763,10 +2763,9 @@ Obeying it means displaying in another window the specified file and line." (buffer-file-name) (car frame))))) ((eq key ?F) - (setq subst (file-name-sans-extension - (file-name-nondirectory (if insource - (buffer-file-name) - (car frame)))))) + (setq subst (file-name-base (if insource + (buffer-file-name) + (car frame))))) ((eq key ?d) (setq subst (file-name-directory (if insource (buffer-file-name) -- cgit v1.2.1