;ELC ;;; compiled by cthomp@willow on Mon Aug 9 12:15:15 1993 ;;; from file /era/era-0.80/editor/lisp/dired/gmhist-app.el ;;; emacs version 19.8 (beta6) Lucid. ;;; bytecomp version 2.15; 14-jul-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.")) (byte-code "! Ū\" \"\"\" \"\"\"\"!\"##C##" [require gmhist mapcar #[(x) " \"" [gmhist-make-magic x regexp-history] 3] gmhist-emacs-19-p (keep-lines flush-lines how-many) (keep-lines flush-lines how-many occur) gmhist-replace-spec occur (gmhist-interactive "sList lines matching regexp: \nP" 'regexp-history) grep (list (read-with-history-in 'grep-history (concat "Run " (substring grep-command 0 (string-match "[ ]+" grep-command)) " (with args): "))) gmhist-make-magic grep-history shell-command (gmhist-interactive "sShell command: \nP" 'shell-history) shell-command-on-region (gmhist-interactive "r\nsShell command on region: \nP\np" 'shell-history) shell-history eval-expression compile (list (read-with-history-in 'compile-history "Compile command: ")) put compile-history backup t no-default initial-hist compile-command cursor-end] 4) (defvar tags-history nil "\ History of tags.") (byte-code "M" [(lambda nil (fset 'find-tag-tag 'gmhist-find-tag-tag)) tags-load-hook gmhist-find-tag-tag #[(string) "  \" O # B\n\")C" [find-tag-default defalt string-match "[:']$" 0 -1 put tags-history default read-with-history-in string] 5]] 2) (defvar gmhist-execute-extended-command-map (copy-keymap gmhist-completion-map) "\ Keymap used inside `gmhist-execute-extended-command'.") (byte-code " # #" [define-key gmhist-execute-extended-command-map " " gmhist-execute-extended-command-exit " " gmhist-execute-extended-command-space] 4) (fset 'gmhist-execute-extended-command-exit #[nil " \" " [minibuffer-history-position 0 lookup-key minibuffer-local-must-match-map " " exit-minibuffer] 3 "\ Maybe complete the minibuffer contents, and exit. Completes commands before exiting, but leaves command history items alone." nil]) (fset 'gmhist-execute-extended-command-space #[nil " \" c" [minibuffer-history-position 0 lookup-key minibuffer-local-must-match-map " "] 3 nil nil]) (fset 'gmhist-execute-extended-command #[nil "  @=  ‰l Ah \"* #######\"$*!\")! B)" [gmhist-execute-extended-command command-history nil elt list delq cmd t minibuffer-history-read-only minibuffer-completion-confirm put cursor-end hist-ignore ".*" no-default completion-table obarray hist-map gmhist-execute-extended-command-map completion-predicate commandp backup read-with-history-in current-prefix-arg format "%s M-x " "M-x " prefix-arg this-command command-execute eval] 6 "\ Read function name, then read its arguments and call it. You can use all gmhist commands (see variable gmhist-completion-map), especially \\\\[gmhist-previous] to backup in command-history." nil])