-(defun file-name-base (&optional filename)
- "Return the base name of the FILENAME: no directory, no extension.
+(when (not (functionp 'file-name-base))
+ (defun file-name-base (&optional filename)
+ "Return the base name of the FILENAME: no directory, no extension.