;ELC ;;; compiled by jwz@thalidomide on Wed Dec 29 01:02:11 1993 ;;; from file /th/jwz/emacs19/lisp/dired/dired-lucid.el ;;; emacs version 19.9 Lucid (beta8). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (require 'mode-motion) (defvar dired-menu '("Dired Commands" ["Open File" dired-find-file t] ["Open File Other Window" dired-find-file-other-window t] ["View File" dired-view-file t] "----" ("Mark" ["Mark File" dired-mark-subdir-or-file t] ["Mark Files in Region" dired-mark-region (mark)] ["Mark Files by Regexp..." dired-mark-files-regexp t] ["Mark All Directories" dired-mark-directories t] ["Mark All Executables" dired-mark-executables t] ["Mark All Symbolic Links" dired-mark-symlinks t] "----" ["Unmark File" dired-unmark-subdir-or-file t] ["Unmark All Files" (dired-unflag-all-files nil) t] ["Unmark All Files (Query)..." (dired-unflag-all-files nil t) t] ["Unmark Files in Region" dired-unmark-region (mark)]) ("Copy/Link" ["Copy Files..." dired-do-copy t] ["Copy Files by Regexp..." dired-do-copy-regexp t] "----" ["Symlink Files in Directory..." dired-do-symlink t] ["Symlink Files in Directory by Regexp..." dired-do-symlink-regexp t] "----" ["Hard-Link Files in Directory..." dired-do-hardlink t] ["Hard-Link Files in Directory by Regexp..." dired-do-hardlink-regexp t]) ("Rename" ["Rename Marked Files..." dired-do-move t] ["Rename Files by Regexp..." dired-do-rename-regexp t] "----" ["Downcase Names of Marked Files..." dired-downcase t] ["Upcase Names of Marked Files..." dired-upcase t]) ("Delete" ["Delete Marked Files..." dired-do-delete t] ["Delete Flaged Files..." dired-do-deletions t] "----" ["Flag Marked Files for Deletion" dired-flag-file-deleted t] ["Flag Files in Region for Deletion" dired-flag-region (mark)] ["Flag Files for Deletion by Regexp..." dired-flag-regexp-files t] ["Flag Backup Files for Deletion" dired-clean-directory t] ["Flag Autosave Files for Deletion" dired-flag-auto-save-files t] "----" ["Unflag Marked Files" dired-unflag t] ["Unflag Backup Files" dired-backup-unflag t] ["Unflag All Files" (dired-unflag-all-files nil) t] ["Unflag All Files (Query)..." (dired-unflag-all-files nil) t] ["Unflag Files in Region" dired-unflag-region (mark)]) ("Shell commands" ["Compress Marked Files..." dired-do-compress t] ["Uncompress Marked Files..." dired-do-uncompress t] ["Print Marked Files..." dired-do-print t] ["Shell Command on Marked Files..." dired-do-shell-command t] "----" ["Load Marked Files" dired-do-load t] ["Byte-Compile Marked Files..." dired-do-byte-compile t] "----" ["Diff File against Backup" dired-backup-diff t] ["Diff File..." dired-diff t] "----" ["Change Permissions of Marked Files..." dired-do-chmod t] ["Change Group of Marked Files..." dired-do-chgrp t] ["Change Owner of Marked Files..." dired-do-chown t]) "----" ("Directory" ["Up Directory" dired-up-directory t] ["Home Directory" (dired "~/") t] "----" ["Dired..." dired t] ["Dired Other Window..." dired-other-window t] ["Redisplay All Files" revert-buffer t] "----" ["Create Directory..." dired-create-directory t] "----" ["Insert Subdirectory" dired-insert-subdir t] ["Hide Subdirectory" dired-kill-subdir t] ["Hide All Subdirectories..." dired-kill-tree t]) ("Goto" ["Next Directory Line" dired-next-dirline t] ["Previous Directory Line" dired-prev-dirline t] ["Next Marked File" dired-next-marked-file t] ["Previous Marked File" dired-prev-marked-file t] "----" ["File..." dired-goto-file t] ["Top of Directory..." dired-goto-subdir t] ["Down Directory" dired-tree-down t] ["Up Directory" dired-tree-up t]) ("Display" ["Undisplay Line or Subdirectory" dired-kill-line-or-subdir t] ["Undisplay Tree" dired-kill-tree t] ["Undisplay Marked Lines" dired-do-kill t] "----" ["Redisplay All Files" revert-buffer t] ["Redisplay All Marked Files" dired-do-redisplay t] ["Undo" dired-undo t] "----" ["Sort by Date/Name (Toggle)" dired-sort-toggle-or-edit t] ["Edit `ls' Switches..." (dired-sort-toggle-or-edit t) t]) "----" ["Explain Last Failure" dired-why t]) "\ *The menu for Dired.") (fset 'dired-install-menubar #[nil "«”ÁÂ\"¬ŽÃÄ!!ˆÅÆÂA#ˆÈÉ!ˆÊ‰ ‡" [current-menubar assoc "Dired" set-buffer-menubar copy-sequence add-menu nil dired-menu make-local-variable mode-motion-hook mode-motion-highlight-line] 4 "\ Installs the Dired menu at the menubar."]) (add-hook 'dired-mode-hook 'dired-install-menubar) (fset 'dired-popup-menu #[(event) "À !ˆÂÃ!ˆÄ !‡" [mouse-set-point event dired-next-line 0 popup-menu dired-menu] 2 "\ Display the Dired Menu." "@e"]) (fset 'dired-mouse-find-file #[(event) "À !ˆÂÃ!ˆÄ ‡" [mouse-set-point event dired-next-line 0 dired-find-file] 2 "\ Edit the file under the mouse." "e"]) (fset 'dired-mark-region #[(&optional form-to-eval) "¬‚ÁŠÂ Ä bˆÅyˆ` X­‹ŠÆ!ˆ)Çyˆªp*‡" [form-to-eval (dired-mark-subdir-or-file nil) region-end end region-beginning 0 eval 1] 2 "\ Mark all files in the region." nil]) (fset 'dired-unmark-region #[nil "ÀÁ!‡" [dired-mark-region (dired-unmark-subdir-or-file nil)] 2 "\ Unmark all files in the region." nil]) (fset 'dired-flag-region #[nil "ÀÁ!‡" [dired-mark-region (dired-flag-file-deleted nil)] 2 "\ Flag all files in the region for deletion." nil]) (fset 'dired-unflag-region #[nil "ÀÁ!‡" [dired-mark-region (dired-unflag 1)] 2 "\ Unflag all files in the region for deletion." nil]) (byte-code "À ÂÃ#ˆÀ ÄÅ#ˆÆÇ!‡" [define-key dired-mode-map button2 dired-mouse-find-file button3 dired-popup-menu provide dired-lucid] 4)