;;;###autoload
(defvar ff-special-constructs
`(
- ;; C/C++ include, for NeXTSTEP too
+ ;; C/C++ include, for NeXTstep too
(,(purecopy "^\#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") .
(lambda ()
(buffer-substring (match-beginning 2) (match-end 2))))
(setq name
(expand-file-name
- (read-file-name
+ (read-directory-name
(format "Find or create %s in: " default-name)
default-directory default-name nil)))