mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

* files.el (find-file-existing): New function.

Browse Source 
* menu-bar.el (menu-bar-files-menu): Make "Open File..." call
find-file-existing.  Add "New File..." that calls find-file.

* dired.el (dired-read-dir-and-switches): Call read-driectory-name
instead of read-file-name.
This commit is contained in:
Jan Djärv 2004-11-02 07:57:53 +00:00
parent 95ec60bcbf
commit 46bfc73bed
4 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ChangeLog
View File

@ -1,3 +1,18 @@
2004-11-02 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* files.el (find-file-existing): New function.
* menu-bar.el (menu-bar-files-menu): Make "Open File..." call
find-file-existing. Add "New File..." that calls find-file.
* diropen.pbm diropen.xpm: New files.
* toolbar/tool-bar.el (tool-bar-setup): Tool bar item dired uses
icon diropen. New tool bar item find-file-existing uses icon open.
* dired.el (dired-read-dir-and-switches): Call read-driectory-name
instead of read-file-name.
2004-11-02 Ulf Jasper <ulf.jasper@web.de>
* calendar/icalendar.el (icalendar-version): Increase to 0.08.

2
lisp/dired.el
View File

@ -546,7 +546,7 @@ Optional third argument FILTER, if non-nil, is a function to select
(if current-prefix-arg
(read-string "Dired listing switches: "
dired-listing-switches))
(read-file-name (format "Dired %s(directory): " str)
(read-directory-name (format "Dired %s(directory): " str)
nil default-directory nil))))
;;;###autoload (define-key ctl-x-map "d" 'dired)

8
lisp/files.el
View File

@ -977,6 +977,14 @@ expand wildcards (if any) and visit multiple files."
(mapcar 'switch-to-buffer (cdr value)))
(switch-to-buffer-other-frame value))))
(defun find-file-existing (filename &optional wildcards)
"Edit the existing file FILENAME.
Like \\[find-file] but only allow files that exists."
(interactive (find-file-read-args "Find existing file: " t))
(unless (file-exists-p filename) (error "%s does not exist" filename))
(find-file filename wildcards)
(current-buffer))
(defun find-file-read-only (filename &optional wildcards)
"Edit file FILENAME but don't allow changes.
Like \\[find-file] but marks buffer as read-only.

9
lisp/menu-bar.el
View File

@ -186,10 +186,15 @@ A large number or nil slows down menu responsiveness."
'(menu-item "Open Directory..." dired
:help "Read a directory, operate on its files"))
(define-key menu-bar-files-menu [open-file]
'(menu-item "Open File..." find-file
'(menu-item "Open File..." find-file-existing
:enable (not (window-minibuffer-p
(frame-selected-window menu-updating-frame)))
:help "Read a file into an Emacs buffer"))
:help "Read an existing file into an Emacs buffer"))
(define-key menu-bar-files-menu [new-file]
'(menu-item "New File..." find-file
:enable (not (window-minibuffer-p
(frame-selected-window menu-updating-frame)))
:help "Read or create a file and edit it"))
;; The "Edit" menu items