From 9b6bf433f4192718aea6a86b9199b51ed36074d5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Karel=20Kl=C3=AD=C4=8D?= Date: Tue, 16 Feb 2010 16:59:39 +0000 Subject: [PATCH] Removed old unused source files and patches. --- emacsclient.patch | 12 - files-el.patch | 30 -- igrep-init.el | 16 - igrep.el | 1153 --------------------------------------------- rfc1345.el | Bin 31752 -> 0 bytes tramp-init.el | 3 - wrapper | 10 - 7 files changed, 1224 deletions(-) delete mode 100644 emacsclient.patch delete mode 100644 files-el.patch delete mode 100644 igrep-init.el delete mode 100644 igrep.el delete mode 100644 rfc1345.el delete mode 100644 tramp-init.el delete mode 100755 wrapper diff --git a/emacsclient.patch b/emacsclient.patch deleted file mode 100644 index 6306157..0000000 --- a/emacsclient.patch +++ /dev/null @@ -1,12 +0,0 @@ -*** emacs-22.3/lib-src/emacsclient.c~ 2007-02-16 09:12:59.000000000 -0800 ---- emacs-22.3/lib-src/emacsclient.c 2009-03-05 15:42:53.000000000 -0800 -*************** -*** 48,53 **** ---- 48,54 ---- - - # ifdef HAVE_INET_SOCKETS - # include -+ # include - # endif - - # define INVALID_SOCKET -1 diff --git a/files-el.patch b/files-el.patch deleted file mode 100644 index 4a650f3..0000000 --- a/files-el.patch +++ /dev/null @@ -1,30 +0,0 @@ -description: -;;; files.el --- file input and output commands for Emacs ----------------------------- -revision 1.938 -date: 2007-11-02 11:03:42 +0000; author: rfrancoise; state: Exp; lines: +2 -2; commitid: wgxFxIhiWr3NtZDs; -2007-11-02 Drake Wilson (tiny change) - - * files.el (hack-local-variables): Fix membership tests to avoid - treating all variables as safe if `enable-local-variables' is - set to :safe. -============================================================================= -Index: lisp/files.el -=================================================================== -RCS file: /sources/emacs/emacs/lisp/files.el,v -retrieving revision 1.937 -retrieving revision 1.938 -diff -u -r1.937 -r1.938 ---- lisp/files.el 26 Oct 2007 14:25:17 -0000 1.937 -+++ lisp/files.el 2 Nov 2007 11:03:42 -0000 1.938 -@@ -2821,8 +2821,8 @@ - ;; If caller wants only the safe variables, - ;; install only them. - (dolist (elt result) -- (unless (or (memq (car elt) unsafe-vars) -- (memq (car elt) risky-vars)) -+ (unless (or (member elt unsafe-vars) -+ (member elt risky-vars)) - (hack-one-local-variable (car elt) (cdr elt)))) - ;; Query, except in the case where all are known safe - ;; if the user wants no quuery in that case. diff --git a/igrep-init.el b/igrep-init.el deleted file mode 100644 index 331a7ec..0000000 --- a/igrep-init.el +++ /dev/null @@ -1,16 +0,0 @@ -;; igrep-init.el - -(autoload 'igrep "igrep" - "*Run `grep` PROGRAM to match REGEX in FILES..." t) -(autoload 'igrep-find "igrep" - "*Run `grep` via `find`..." t) -(autoload 'igrep-visited-files "igrep" - "*Run `grep` ... on all visited files." t) -(autoload 'dired-do-igrep "igrep" - "*Run `grep` on the marked (or next prefix ARG) files." t) -(autoload 'dired-do-igrep-find "igrep" - "*Run `grep` via `find` on the marked (or next prefix ARG) directories." t) -(autoload 'Buffer-menu-igrep "igrep" - "*Run `grep` on the files visited in buffers marked with '>'." t) -(autoload 'igrep-insinuate "igrep" - "Define `grep' aliases for the corresponding `igrep' commands." t) diff --git a/igrep.el b/igrep.el deleted file mode 100644 index db74b13..0000000 --- a/igrep.el +++ /dev/null @@ -1,1153 +0,0 @@ -;;; igrep.el --- An improved interface to `grep` and `find` -;;; -*-unibyte: t;-*- - -;; Copyright © 1993-1998,2000-2004 Kevin Rodgers - -;; Author: Kevin Rodgers -;; Created: 22 Jun 1993 -;; Version: 2.112 -;; Keywords: tools, processes, search -;; SCCS: @(#)igrep.el 2.112 - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2 of -;; the License, or (at your option) any later version. - -;; This program is distributed in the hope that it will be -;; useful, but WITHOUT ANY WARRANTY; without even the implied -;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -;; PURPOSE. See the GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public -;; License along with this program; if not, write to the Free -;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, -;; MA 02111-1307 USA - -;;; Commentary: - -;; The `igrep' command is like `grep' except that it takes three -;; required arguments (PROGRAM, REGEX, and FILES) and an optional -;; argument (OPTIONS) instead of just one argument (COMMAND). The -;; analogous `egrep' and `fgrep' commands are also defined for -;; convenience. -;; -;; The `igrep-find' command is like `igrep' except that it uses `find` -;; to recursively `grep` a directory. The analogous `egrep-find' and -;; `fgrep-find' commands are also defined for convenience. -;; -;; When called interactively, `igrep' and `igrep-find' (and their -;; analogues) provide defaults for the REGEX and FILES arguments based -;; on the current word and the visited file name (if the `igrep-regex- -;; default' and `igrep-files-default' options are set, respectively). -;; The `igrep-insert-default-key' option allows the default value to be -;; inserted into the minibuffer for editing; since Emacs 20 provides -;; that via the minibuffer history, it's only enabled for older -;; versions by default. Other options that control the user interface -;; are `igrep-insert-default-directory', `igrep-read-options', `igrep- -;; read-multiple-files', `igrep-verbose-prompts', `igrep-save-buffers', -;; and `igrep-menu-bar'. -;; -;; Besides the basic `igrep-program' and `igrep-find-program' global -;; variables, other variables control the syntax of the `grep` and -;; `find` shell commands that are executed: `igrep-options', `igrep- -;; regex-option', `igrep-case-fold-search', `igrep-find-prune-clause', -;; `igrep-find-file-clause', and `igrep-find-use-xargs'. -;; -;; The `igrep-use-zgrep' user option controls whether the corresponding -;; GNU (gzip) "zPROGRAM" script is used, to `grep` compressed files. -;; Special minibuffer history lists are maintained for the REGEX and -;; FILES arguments. -;; -;; The `agrep' and `agrep-find' commands are interfaces to the -;; approximate `grep` utility, which is distributed with the `glimpse' -;; indexing and query tool (available from http://www.tgries.de/agrep/). -;; -;; `grep' itself can be advised to provide the `igrep' interface when -;; it is invoked interactively (but still use the original argument -;; list when it is called from Emacs Lisp), via the `igrep-insinuate' -;; command. `igrep-insinuate' also defines `grep-find' as an alias for -;; `igrep-find', `dired-do-grep' and `dired-do-grep-find' as aliases -;; for `dired-do-igrep' and `dired-do-igrep-find', and `Buffer-menu- -;; grep' as an alias for `Buffer-menu-igrep'. -;; -;; When run interactively from Dired mode, the various `igrep' commands -;; provide defaults for the REGEX and FILES arguments that are based on -;; the visited directory (including any inserted subdirectories) and -;; the current file. The alternative `dired-do-igrep' and `dired-do- -;; igrep-find' commands respect the `dired-do-*' command conventions: a -;; prefix argument is interpreted as the number of succeeding files to -;; `grep`, otherwise all the marked files are `grep`ed. -;; -;; The `igrep-visited-files' command provides a simple way to `grep` -;; just those files that are being visited in buffers. The `Buffer- -;; menu-igrep' command does the same thing, for buffers marked for -;; selection in Buffer Menu mode. - -;; Installation: -;; -;; 1. Put this file in a directory that is a member of load-path, and -;; byte-compile it (e.g. with `M-x byte-compile-file') for better -;; performance. You can ignore any warnings about references to free -;; variables and "not known to be defined" functions. -;; 2. Put these forms in default.el or ~/.emacs: -;; (autoload 'igrep "igrep" -;; "*Run `grep` PROGRAM to match REGEX in FILES..." t) -;; (autoload 'igrep-find "igrep" -;; "*Run `grep` via `find`..." t) -;; (autoload 'igrep-visited-files "igrep" -;; "*Run `grep` ... on all visited files." t) -;; (autoload 'dired-do-igrep "igrep" -;; "*Run `grep` on the marked (or next prefix ARG) files." t) -;; (autoload 'dired-do-igrep-find "igrep" -;; "*Run `grep` via `find` on the marked (or next prefix ARG) directories." t) -;; (autoload 'Buffer-menu-igrep "igrep" -;; "*Run `grep` on the files visited in buffers marked with '>'." t) -;; (autoload 'igrep-insinuate "igrep" -;; "Define `grep' aliases for the corresponding `igrep' commands." t) -;; 2. a. For completeness, you can add these forms as well: -;; (autoload 'grep "igrep" -;; "*Run `grep` PROGRAM to match REGEX in FILES..." t) -;; (autoload 'egrep "igrep" -;; "*Run `egrep`..." t) -;; (autoload 'fgrep "igrep" -;; "*Run `fgrep`..." t) -;; (autoload 'agrep "igrep" -;; "*Run `agrep`..." t) -;; (autoload 'grep-find "igrep" -;; "*Run `grep` via `find`..." t) -;; (autoload 'egrep-find "igrep" -;; "*Run `egrep` via `find`..." t) -;; (autoload 'fgrep-find "igrep" -;; "*Run `fgrep` via `find`..." t) -;; (autoload 'agrep-find "igrep" -;; "*Run `agrep` via `find`..." t) -;; 3. If you are running Windows 95/NT, you should install findutils -;; and grep from release 17.1 (or higher) of the Cygnus GNU-Win32 -;; distribution (http://www.cygnus.com/misc/gnu-win32/). - -;; Usage: -;; -;; These igrep commands accept 1, 2, or 3 `C-u' prefix arguments: -;; M-x igrep M-x igrep-find -;; M-x grep M-x grep-find [after `M-x igrep-insinuate'] -;; M-x egrep M-x egrep-find -;; M-x fgrep M-x fgrep-find -;; M-x agrep M-x agrep-find -;; -;; These igrep commands accept a single `C-u' prefix argument: -;; M-x igrep-visited-files -;; M-x Buffer-menu-igrep [in the *Buffer List* buffer] -;; -;; These igrep commands interpret a prefix argument like the Emacs -;; `dired-do-*' commands: -;; M-x dired-do-igrep M-x dired-do-igrep-find -;; M-x dired-do-grep M-x dired-do-grep-find [after `M-x -;; igrep-insinuate'] -;; -;; These Emacs commands can be used after any igrep command: -;; C-x ` (M-x next-error) -;; C-c C-c (M-x compile-goto-error) [in the *igrep* buffer] - -;; Customization examples: -;; -;; To ignore case by default: -;; (setq igrep-options "-i") -;; or: -;; (setq igrep-case-fold-search t) -;; To search subdirectories by default: -;; (setq igrep-find t) -;; To search files with the GNU (gzip) zgrep script: -;; (setq igrep-use-zgrep t) -;; or define new igrep commands (this works for zegrep and zfgrep as well): -;; (igrep-define zgrep) ; M-x zgrep -;; (igrep-find-define zgrep) ; M-x zgrep-find -;; To search "*.[ch]" files by default in C mode: -;; (put 'igrep-files-default 'c-mode -;; (lambda () "*.[ch]")) -;; To disable the default search regex and/or files pattern, except for -;; specific modes: -;; (setq igrep-regex-default 'ignore) -;; (setq igrep-files-default 'ignore) -;; To avoid exceeding some shells' limit on command argument length -;; (this only searches files in the current directory): -;; (setq igrep-find t -;; igrep-find-prune-clause "-type d \\! -name .") - -;; To do: -;; 1. Replace igrep-options with a table that maps igrep-program -;; to the appropriate options, and/or support POSIX (egrep -> `grep -E`). -;; 2. Generalize support for the -prune find clause (e.g. -fstype nfs). -;; 3. Provide support for `glimpse`. - -;;; Code: - -;; Package interface: - -(require 'custom) ; defgroup, defcustom - -(require 'easymenu) ; easy-menu-define, easy-menu-add-item - -(or (condition-case nil - (require 'grep) ; CVS Emacs (21.3.50/21.4) - (error nil)) - (require 'compile)) ; compile-internal, grep-regexp-alist, - ; grep-null-device - -(eval-when-compile - (require 'dired) ; dired-directory, - ; dired-get-filename, - ; dired-current-directory, - ; dired-get-marked-files, - ; dired-mark-get-files - (or (featurep 'ange-ftp) - (featurep 'efs) - (condition-case nil - (load-library "ange-ftp") ; ange-ftp-ftp-name - (error nil)) - (condition-case nil - (load-library "efs") ; efs-ftp-path - (error nil))) - ) - -(defconst igrep-version "2.112" - "This version of igrep.el.") - -(defgroup igrep nil - "An improved interface to `grep` and `find`." - :group 'compilation) - -;; User options: - -(defcustom igrep-options nil - "*The options passed by `\\[igrep]' to `igrep-program', or nil. - -\"-n\" will automatically be passed to `igrep-program', to generate the -output expected by `\\[next-error]' and `\\[compile-goto-error]'. -\"-e\" will automatically be passed to `igrep-program', if it supports -that option." - :group 'igrep - :type '(choice (const nil) (string))) -(put 'igrep-options 'variable-interactive - "xOptions (\"-xyz\" or nil): ") - -(defcustom igrep-case-fold-search nil - "*If non-nil, `\\[igrep]' ignores case unless REGEX has uppercase letters." - :group 'igrep - :type '(boolean)) -(put 'igrep-case-fold-search 'variable-interactive - "XIgnore case? (t or nil): ") - -(defcustom igrep-read-options nil - "*If non-nil, `\\[igrep]' always prompts for options; -otherwise, it only prompts when 1 or 3 `C-u's are given as a prefix arg." - :group 'igrep - :type '(boolean)) -(put 'igrep-read-options 'variable-interactive - "XAlways prompt for options? (t or nil): ") - -(defcustom igrep-read-multiple-files nil - "*If non-nil, `\\[igrep]' always prompts for multiple-files; -otherwise, it only prompts when 2 or 3 `C-u's are given as a prefix arg." - :group 'igrep - :type '(boolean)) -(put 'igrep-read-multiple-files 'variable-interactive - "XAlways prompt for multiple files? (t or nil): ") - -(defcustom igrep-regex-default 'current-word - "*If non-nil, a function that returns a default REGEX for `\\[igrep]'. -The function is called with no arguments and should return a string (or nil). - -A different function can be specified for any particular mode by specifying -a value for that `major-mode' property; for example: - (put 'igrep-regex-default 'dired-mode - 'igrep-dired-file-current-word)" - :group 'igrep - :type '(choice (const nil) (function))) -(put 'igrep-regex-default 'variable-interactive - "SProvide a default regex? (function or nil): ") -(put 'igrep-regex-default 'dired-mode - 'igrep-dired-file-current-word) - -(defcustom igrep-files-default 'igrep-buffer-file-name-pattern - "*If non-nil, a function that returns the default FILES for `\\[igrep]'. -The function is called with no arguments and should return a string, -or a list of strings (or nil). - -A different function can be specified for any particular mode by specifying -a value for that `major-mode' property; for example: - (put 'igrep-files-default 'dired-mode - 'igrep-dired-directory-file-pattern)" - :group 'igrep - :type '(choice (const nil) (function))) -(put 'igrep-files-default 'variable-interactive - "SProvide a default file name pattern? (function or nil): ") -(put 'igrep-files-default 'dired-mode - 'igrep-dired-directory-file-pattern) - -(defcustom igrep-verbose-prompts t - "*If t, `\\[igrep]' prompts for arguments verbosely; -if not t but non-nil, `\\[igrep]' prompts for arguments semi-verbosely; -if nil, `\\[igrep]' prompts for arguments tersely." - :group 'igrep - :type '(choice (const :tag "Verbose" t) - (other :tag "Semi-verbose" semi) - (const :tag "Terse" nil))) -(put 'igrep-verbose-prompts 'variable-interactive - "XPrompt verbosely? (t, 'semi, or nil): ") - -(defcustom igrep-insert-default-directory nil - "*The value of `insert-default-directory' for `\\[igrep]'." - :group 'igrep - :type '(boolean)) -(put 'igrep-insert-default-directory 'variable-interactive - "XPrompt with directory in the minibuffer? (t or nil): ") - -(defcustom igrep-insert-default-key - (if (< emacs-major-version 20) "\C-c\C-e") - "*The key used to insert the default argument in the minibuffer. -In Emacs 20, the default is available via the minibuffer history \ -\(\\\\[next-history-element])." - :group 'igrep - :type '(choice (const nil) (string) (vector))) ; key-binding -(put 'igrep-insert-default-key 'variable-interactive - "kSet key to insert the default `\\[igrep]' argument in the minibuffer: ") - -(defcustom igrep-save-buffers 'query - "*If t, `\\[igrep]' first saves each modified file buffer; -if not t but non-nil, `\\[igrep]' offers to save each modified file buffer." - :group 'igrep - :type '(choice (const :tag "Save" t) - (other :tag "Query" query) - (const :tag "Don't Save" nil))) -(put 'igrep-save-buffers 'variable-interactive - "XSave modified buffers? (t, 'query, or nil): ") - -(defcustom igrep-menu-bar t - "*If non-nil, enable the `igrep-menu' submenu on the \"Tools\" menu bar." - :group 'igrep - :type '(boolean)) -(put 'igrep-menu-bar 'variable-interactive - "XEnable menu bar? (t or nil): ") - -;; User variables: - -(defsubst igrep-easy-menu-item (name callback help-keyword help-text) - "Return a [NAME CALLBACK HELP-KEYWORD HELP-TEXT] menu item. -See `easy-menu-define'." - (if (featurep 'xemacs) ; no :help keyword - (vector name callback) - (vector name callback help-keyword help-text))) - -(defvar :help ':help) ; Emacs 19 - -(defvar igrep-easy-menu - `("Search Files and Directories (igrep)" - ,@(cond ((featurep 'xemacs) '(:included igrep-menu-bar)) - ((>= emacs-major-version 20) '(:active igrep-menu-bar)) - (t ())) - ("Search files" - ,(igrep-easy-menu-item "`grep` files..." 'igrep - :help "Search files for basic regex(5)s") - ,(igrep-easy-menu-item "`egrep` files..." 'egrep - :help "Search files for extended regex(5)s") - ,(igrep-easy-menu-item "`fgrep` files..." 'fgrep - :help "Search files for strings")) - ("Search directories" - ,(igrep-easy-menu-item "`find | grep` directories..." 'igrep-find - :help "Search directories for basic regex(5)s") - ,(igrep-easy-menu-item "`find | egrep` directories..." 'egrep-find - :help "Search directories for extended regex(5)s") - ,(igrep-easy-menu-item "`find | fgrep` directories..." 'fgrep-find - :help "Search directories for strings")) - "--" - ,(igrep-easy-menu-item "Search visited files..." 'igrep-visited-files - :help "Search visited files for basic regex(5)s")) - "If non-nil, the menu bar submenu of `igrep' commands. -See `easy-menu-define'.") - -(defvar igrep-null-device - (cond ((boundp 'null-device) null-device) ; Emacs 20 - ((boundp 'grep-null-device) grep-null-device)) ; Emacs 19 - "The system null device.") - -(defvar igrep-program "grep" - "The default program run by `\\[igrep]' and `\\[igrep-find]'. -It must accept a `grep` regex argument and one or more file names, plus -the \"-n\" option. If nil, `\\[igrep]' prompts for the program to run.") - -(defvar igrep-regex-option - (if (equal (call-process igrep-program nil nil nil - "-e" "foo" igrep-null-device) - 1) - "-e") - "If non-nil, the option used to specify the REGEX argument to `\\[igrep]'. -This protects an initial \"-\" from option processing.") - -(defvar igrep-program-table ; referenced by igrep-use-zgrep - (let ((exec-directories exec-path) - (program-obarray (make-vector 11 0))) - (while exec-directories - (if (and (car exec-directories) - (file-directory-p (car exec-directories)) - (file-readable-p (car exec-directories))) - (let ((grep-programs - (directory-files (car exec-directories) - nil "grep\\(\\.exe\\)?\\'"))) - (while grep-programs - ;; Check `(file-executable-p (car grep-programs))'? - (if (save-match-data - (string-match "\\.exe\\'" (car grep-programs))) - (intern (substring (car grep-programs) 0 -4) program-obarray) - (intern (car grep-programs) program-obarray)) - (setq grep-programs (cdr grep-programs))))) - (setq exec-directories (cdr exec-directories))) - program-obarray) - "An obarray of available `grep` programs. -This is passed by `igrep-read-program' to `completing-read' when -`igrep-program' is nil.") - -(defvar igrep-use-zgrep - (if (intern-soft "zgrep" igrep-program-table) - 'files) - "If t, `\\[igrep]' searches files using the GNU (gzip) `zPROGRAM` script; -If not t but non-nil, `\\[igrep]' searches compressed FILES using `zPROGRAM`; -if nil, `\\[igrep]' searches files with `PROGRAM`.") - -(defvar igrep-find nil - "If non-nil, `\\[igrep]' searches directories using `find`. -See `igrep-find'.") - -(defvar igrep-find-program "find" - "The program run by `\\[igrep-find]'.") - -(defvar igrep-find-prune-clause - (if (equal (call-process igrep-find-program nil nil nil - igrep-null-device "-prune") - 0) - (format "-type d %s -name RCS -o -name CVS -o -name SCCS %s" - (shell-quote-argument "(") - (shell-quote-argument ")"))) - "The `find` clause used to prune directories, or nil; -see `igrep-find'.") - -(defvar igrep-find-file-clause - (format "-type f %s -name %s %s -name %s %s -name %s %s -name %s" ; -type l - (shell-quote-argument "!") - (shell-quote-argument "*~") ; Emacs backup - (shell-quote-argument "!") - (shell-quote-argument "*,v") ; RCS file - (shell-quote-argument "!") - (shell-quote-argument "s.*") ; SCCS file - (shell-quote-argument "!") - (shell-quote-argument ".#*")) ; CVS file - "The `find` clause used to filter files passed to `grep`, or nil; -see `igrep-find'.") - -(defvar igrep-find-use-xargs - (cond ((equal (call-process igrep-find-program nil nil nil - igrep-null-device "-print0") - 0) - 'gnu) - ((not (equal system-type 'darwin)))) ; not MacOS - "Whether `\\[igrep-find]' uses the `xargs` program or not. -If `gnu', it executes - `find ... -print0 | xargs -0 -e grep ...`; -if not `gnu' but non-nil, it executes - `find ... -print | xargs -e grep ...`; -if nil, it executes - `find ... -exec grep ...`.") - -(defvar igrep-program-default "grep" - "The default `grep` program. -This is passed by `igrep-read-program' to `completing-read' when -`igrep-program' is nil.") - -;; Internal variables: - -(defvar igrep-regex-history '() - "The minibuffer history list for `\\[igrep]'s REGEX argument.") - -(defvar igrep-files-history '() - "The minibuffer history list for `\\[igrep]'s FILES argument.") - -;; Commands: - -;;;###autoload -(defun igrep-insinuate (&optional override) - "Define `grep' aliases for the corresponding `igrep' commands. -With a prefix arg, OVERRIDE the current `grep' command definitions." - (interactive "P") - (if override - (defalias 'grep 'igrep) - (defadvice grep (around igrep-interactive first (&rest command-args) - activate) - "If called interactively, use the `\\[igrep]' interface instead, -where COMMAND-ARGS is (PROGRAM REGEX FILES [OPTIONS]); if called -programmatically, COMMAND-ARGS is still (COMMAND)." - (interactive (igrep-read-args)) - (if (interactive-p) - (apply 'igrep command-args) - ad-do-it))) - (if (or (not (fboundp 'grep-find)) - override) - (defalias 'grep-find 'igrep-find)) - (if (or (not (fboundp 'dired-do-grep)) - override) - (defalias 'dired-do-grep 'dired-do-igrep)) - (if (or (not (fboundp 'dired-do-grep-find)) - override) - (defalias 'dired-do-grep-find 'dired-do-igrep-find)) - (if (or (not (fboundp 'Buffer-menu-grep)) - override) - (defalias 'Buffer-menu-grep 'Buffer-menu-igrep))) - -(defsubst igrep-quote-file-name (file) - "Quote FILE name pattern for `shell-file-name'." - (if (fboundp 'shell-quote-wildcard-pattern) ; Emacs 21 - (shell-quote-wildcard-pattern file) - (shell-quote-argument file))) - -;;;###autoload -(defun igrep (program regex files &optional options) - "*Run `grep` PROGRAM to match REGEX in FILES. -The output is displayed in the *igrep* buffer, which `\\[next-error]' and -`\\[compile-goto-error]' parse to find each line of matched text. - -PROGRAM may be nil, in which case it defaults to `igrep-program'. - -REGEX is automatically quoted by `shell-quote-argument'. - -FILES is either a file name pattern (automatically quoted by -`shell-quote-wildcard-pattern', then expanded by the `shell-file-name' shell), -or a list of file name patterns. - -Optional OPTIONS is also passed to PROGRAM; it defaults to `igrep-options'. - -If a prefix argument \ -\(`\\[universal-argument]') \ -is given when called interactively, -or if `igrep-read-options' is set, OPTIONS is read from the minibuffer. - -If two prefix arguments \ -\(`\\[universal-argument] \\[universal-argument]') \ -are given when called interactively, -or if `igrep-read-multiple-files' is set, FILES is read from the minibuffer -multiple times. - -If three prefix arguments \ -\(`\\[universal-argument] \\[universal-argument] \\[universal-argument]') \ -are given when called interactively, -or if `igrep-read-options' and `igrep-read-multiple-files' are set, -OPTIONS is read and FILES is read multiple times. - -If `igrep-find' is non-nil, the directory or directories -containing FILES is recursively searched for files whose name matches -the file name component of FILES (and whose contents match REGEX)." - (interactive - (igrep-read-args)) - (if (null program) - (setq program (or igrep-program "grep"))) - (if (null options) - (setq options igrep-options)) - (if (not (listp files)) ; (stringp files) - (setq files (list files))) - (if (and (member ?~ (mapcar 'string-to-char files)) - (save-match-data - (string-match "\\`[rj]?sh\\(\\.exe\\)?\\'" - (file-name-nondirectory shell-file-name)))) - ;; (restricted, job-control, or standard) Bourne shell doesn't expand ~: - (setq files - (mapcar 'expand-file-name files))) - (let* ((use-zgrep (cond ((eq igrep-use-zgrep t)) - (igrep-use-zgrep - (let ((files files) - (compressed-p nil)) - (while (and files (not compressed-p)) - (if (save-match-data - (string-match "\\.g?[zZ]\\'" (car files))) - (setq compressed-p t)) - (setq files (cdr files))) - compressed-p)) - (t nil))) - (command (format "%s -n %s %s %s %s %s" - (if (and use-zgrep - (save-match-data - (not (string-match "\\`z" program)))) - (setq program (concat "z" program)) - program) - (or options - (and igrep-case-fold-search - (equal regex (downcase regex)) - "-i") - "") - (or igrep-regex-option - (progn - (if (save-match-data - (string-match "\\`-" regex)) - (setq regex (concat "\\" regex))) - "")) - (shell-quote-argument regex) - (if igrep-find - (if igrep-find-use-xargs - "" - (shell-quote-argument "{}")) - (mapconcat (lambda (file) - (let ((dir (file-name-directory file))) - (if dir - (expand-file-name - (file-name-nondirectory file) - (igrep-quote-file-name dir)) - file))) - files " ")) - igrep-null-device))) - (if igrep-find - (setq command - (igrep-format-find-command command files))) - (cond ((eq igrep-save-buffers t) (save-some-buffers t)) - (igrep-save-buffers (save-some-buffers))) - (if (fboundp 'compilation-start) ; CVS Emacs (21.3.50/21.4) - (let ((compilation-process-setup-function 'grep-process-setup)) - (or (fboundp 'igrep-mode) - (define-derived-mode igrep-mode grep-mode "Igrep")) - (compilation-start command - 'igrep-mode - nil - (cond ((eq compilation-highlight-regexp t)) - (compilation-highlight-regexp - (if (eq program "fgrep") - (regexp-quote regex) - regex))))) - (compile-internal command (format "No more %s matches" program) - "Igrep" nil grep-regexp-alist)))) - -;; Analogue commands: - -(defmacro igrep-define (analogue-command &rest igrep-bindings) - "Define ANALOGUE-COMMAND as an `igrep' analogue command. -Optional (VARIABLE VALUE) arguments specify the temporary IGREP-BINDINGS -for the command." - ;; (interactive "SCommand: ") ; C-u => read bindings? - (let ((analogue-program (symbol-name analogue-command))) - `(defun ,analogue-command (&rest igrep-args) - ,(format "*Run `%s` via `\\[igrep]'. -All arguments (including prefix arguments, when called interactively) -are handled by `igrep'." - analogue-program) - (interactive - (let ((igrep-program (if igrep-program ,analogue-program)) - (igrep-program-default ,analogue-program)) - (igrep-read-args))) - (let (,@ igrep-bindings) - (apply 'igrep - (cond ((interactive-p) (car igrep-args)) - ((car igrep-args)) - (t ,analogue-program)) - (cdr igrep-args)))))) - -(igrep-define egrep) -(igrep-define fgrep) -(igrep-define agrep - (igrep-use-zgrep nil) - (igrep-regex-option "-e")) - -;; Recursive (`find`) commands: - -;;;###autoload -(defun igrep-find (&rest igrep-args) - "*Run `grep` via `find`; see `igrep' and `igrep-find'. -All IGREP-ARGS (including prefix arguments, when called interactively) -are handled by `igrep'." - (interactive - (let ((igrep-find t)) - (igrep-read-args))) - (let ((igrep-find t)) - (apply 'igrep igrep-args))) - -;; Analogue recursive (`find`) commands: - -(defmacro igrep-find-define (analogue-command &rest igrep-bindings) - "Define ANALOGUE-COMMAND-find as an `igrep' analogue `find` command. -Optional (VARIABLE VALUE) arguments specify the temporary IGREP-BINDINGS -for the command." - ;; (interactive "SCommand: ") ; C-u => read bindings? - (let ((analogue-program (symbol-name analogue-command))) - (setq analogue-command - (intern (format "%s-find" analogue-command))) - `(defun ,analogue-command (&rest igrep-args) - ,(format "*Run `%s` via `\\[igrep-find]'. -All arguments (including prefix arguments, when called interactively) -are handled by `igrep'." - analogue-program) - (interactive - (let ((igrep-program (if igrep-program ,analogue-program)) - (igrep-program-default ,analogue-program) - (igrep-find t)) - (igrep-read-args))) - (let (,@ igrep-bindings) - (apply 'igrep-find - (cond ((interactive-p) (car igrep-args)) - ((car igrep-args)) - (t ,analogue-program)) - (cdr igrep-args)))))) - -(igrep-find-define egrep) -(igrep-find-define fgrep) -(igrep-find-define agrep - (igrep-use-zgrep nil) - (igrep-regex-option "-e")) - -;;;###autoload -(defun igrep-visited-files (program regex &optional options) - "*Run `grep` PROGRAM to match REGEX (with optional OPTIONS) \ -on all visited files. -See `\\[igrep]'." - (interactive - (let ((igrep-args (igrep-read-args 'no-files))) - ;; Delete FILES: - (setcdr (nthcdr 1 igrep-args) (nthcdr 3 igrep-args)) - igrep-args)) - (igrep program regex - (let ((directory-abbrev-alist - (cons (cons (regexp-quote (expand-file-name default-directory)) - "./") ; or even "" - directory-abbrev-alist))) - (mapcar 'abbreviate-file-name - (apply 'nconc - (mapcar (lambda (buffer) - (let ((file (buffer-file-name buffer))) - (if (and file - (cond ((featurep 'ange-ftp) - (not (ange-ftp-ftp-name file))) - ((featurep 'efs) - (not (efs-ftp-path file))) - (t t)) - ;; (file-exists-p file) - ) - (list file)))) - (buffer-list))))) - options)) - -;; Dired commands: - -;;;###autoload -(defun dired-do-igrep (program regex &optional options arg) - "*Search the marked (or next prefix ARG) files. -See `\\[igrep]' for a description of PROGRAM, REGEX, and OPTIONS." - (interactive - (let ((igrep-args - (let ((current-prefix-arg nil)) - (igrep-read-args 'no-files)))) - ;; Delete FILES: - (setcdr (nthcdr 1 igrep-args) (nthcdr 3 igrep-args)) - ;; Append ARG: - (nconc igrep-args (list current-prefix-arg)))) - (igrep program regex - (funcall (cond ((fboundp 'dired-get-marked-files) ; GNU Emacs - 'dired-get-marked-files) - ((fboundp 'dired-mark-get-files) ; XEmacs - 'dired-mark-get-files)) - t arg) - options)) - -;; Dired recursive (`find`) commands: - -;;;###autoload -(defun dired-do-igrep-find (program regex &optional options arg) - "*Run `grep` on the marked (or next prefix ARG) directories. -See `\\[igrep]' for a description of PROGRAM, REGEX, and OPTIONS." - (interactive - (let ((igrep-args - (let ((current-prefix-arg nil) - (igrep-find t)) - (igrep-read-args 'no-files)))) - ;; Delete FILES: - (setcdr (nthcdr 1 igrep-args) (nthcdr 3 igrep-args)) - ;; Append ARG: - (nconc igrep-args (list current-prefix-arg)))) - (let ((igrep-find t)) - (dired-do-igrep program regex options arg))) - -;; Buffer menu commands: - -;;;###autoload -(defun Buffer-menu-igrep (program regex &optional options) - "*Run `grep` on the files visited in buffers marked with '>'. -See `\\[igrep]' for a description of PROGRAM, REGEX, and OPTIONS." - (interactive - (let ((igrep-args (igrep-read-args 'no-files))) - ;; Delete FILES: - (setcdr (nthcdr 1 igrep-args) (nthcdr 3 igrep-args)) - igrep-args)) - ;; See Buffer-menu-select: - (let ((marked-files '()) - marked-buffer - file) - (goto-char (point-min)) - (while (search-forward "\n>" nil t) - (setq marked-buffer (Buffer-menu-buffer t) - file (buffer-file-name marked-buffer)) - (if (and file - ;; local: - (cond ((featurep 'ange-ftp) - (not (ange-ftp-ftp-name file))) - ((featurep 'efs) - (not (efs-ftp-path file))) - (t t))) - (setq marked-files (cons file marked-files))) -;;; (let ((buffer-read-only nil)) -;;; (delete-char -1) -;;; (insert ?\ )) - ) - (setq marked-files (nreverse marked-files)) - (igrep program regex - (let ((directory-abbrev-alist - (cons (cons (regexp-quote (expand-file-name default-directory)) - "./") ; or even "" - directory-abbrev-alist))) - (mapcar 'abbreviate-file-name marked-files)) - options))) - -;; User functions: - -(defun igrep-dired-file-current-word () - "Return the current word in the file on this line, if it is visible; -else, return the file name on this line, if there is one; -otherwise, return the current word." - (let* ((dired-file - (dired-get-filename t t)) - (dired-file-buffer - (if dired-file - (get-file-buffer (expand-file-name dired-file)))) - (dired-file-buffer-window - (if dired-file-buffer - (get-buffer-window dired-file-buffer)))) - (cond (dired-file-buffer-window (save-excursion - (set-buffer dired-file-buffer) - (current-word))) - (dired-file) - (t (current-word))))) - -(defun igrep-buffer-file-name-pattern () - "Return a shell file name pattern based on the visited file name. -If the `buffer-file-name' variable is nil, return \"*\"." - ;; (Based on other-possibly-interesting-files in ~/as-is/unix.el, by - ;; Wolfgang Rupprecht .) - (if buffer-file-name - (let ((file-name (file-name-nondirectory buffer-file-name))) - (concat "*" - (save-match-data - (if (string-match "\\.[^.]+\\(\\.g?[zZ]\\)?\\'" - file-name) - (substring file-name (match-beginning 0) - (match-end 0)))))) - "*")) - -(defun igrep-dired-directory-file-pattern () - "Return a shell file name pattern based on `dired-directory', or \"*\"." - (cond ((stringp dired-directory) - (if (file-directory-p dired-directory) - "*" - (file-name-nondirectory dired-directory))) ; wildcard - ((consp dired-directory) ; (DIR FILE ...) - (mapconcat 'identity (cdr dired-directory) " ")))) - -;; Utilities: - -(defsubst igrep-file-directory (name) - "Return the directory component of NAME, or \".\" if it has none." - (directory-file-name (or (file-name-directory name) - (file-name-as-directory ".")))) - -(defsubst igrep-file-pattern (name) - "Return the file component of NAME, or \"*\" if it has none." - (let ((pattern (file-name-nondirectory name))) - (if (string= pattern "") - "*" - pattern))) - -(defun igrep-format-find-command (command files) - "Format `grep` COMMAND to be invoked via `find` on FILES." - (let ((directories '()) - (patterns '())) - (while files - (let ((dir (igrep-file-directory (car files))) - (pat (igrep-file-pattern (car files)))) - (if (and (not (string= dir ".")) - (file-symlink-p dir)) - (setq dir (concat dir "/."))) - (if (not (member dir directories)) - (setq directories (cons dir directories))) - (cond ((equal pat "*") - (setq patterns t)) - ((and (listp patterns) - (not (member pat patterns))) - (setq patterns (cons pat patterns))))) - (setq files (cdr files))) - (format (cond ((eq igrep-find-use-xargs 'gnu) - ;; | \\\n - "%s %s %s %s %s -print0 | xargs -0 -e %s") - (igrep-find-use-xargs - ;; | \\\n - "%s %s %s %s %s -print | xargs -e %s") - (t - "%s %s %s %s %s -exec %s %s")) - igrep-find-program - (mapconcat 'igrep-quote-file-name (nreverse directories) - " ") - (if igrep-find-prune-clause - (format "%s -prune -o" igrep-find-prune-clause) - "") - (or igrep-find-file-clause "") - (if (listp patterns) - (if (cdr patterns) ; (> (length patterns) 1) - (format "%s %s %s" - (shell-quote-argument "(") - (mapconcat (lambda (pat) - (format "-name %s" - (shell-quote-argument pat))) - (nreverse patterns) - " -o ") - (shell-quote-argument ")")) - (format "-name %s" (shell-quote-argument (car patterns)))) - "") - command - (shell-quote-argument ";") - ))) - -(defmacro igrep-default-arg (variable) - "Return the default arg based on VARIABLE." - `(if ,variable - (cond ((get (quote ,variable) major-mode) - (funcall (get (quote ,variable) major-mode))) - (t (funcall ,variable))))) - -(defun igrep-default-regex () - "Return the default REGEX for `\\[igrep]'." - (let ((default-regex (igrep-default-arg igrep-regex-default))) - (if (not (equal default-regex "")) - default-regex))) - -(defun igrep-default-files () - "Return the default FILES for `\\[igrep]'." - (let* ((dired-subdirectory (if (cond ((fboundp 'derived-mode-p) ; Emacs 21 - (derived-mode-p 'dired-mode)) - (t (eq major-mode 'dired-mode))) - (dired-current-directory t))) - (default-files (igrep-default-arg igrep-files-default))) - (if (not (listp default-files)) ; stringp - (setq default-files (list default-files))) - (if dired-subdirectory - (mapcar (lambda (file) - (concat dired-subdirectory file)) - default-files) - default-files))) - -(defsubst igrep-prefix (prefix string &rest strings) - "Concatenate PREFIX (if non-nil), STRING, and any other STRINGS." - (if (or prefix strings) - (apply 'concat prefix string strings) - string)) - -(defun igrep-read-args (&optional no-files) - "Read and return a list: (PROGRAM REGEX FILES OPTIONS). -If NO-FILES is non-nil, then FILES is not read and nil is returned -in its place." - (let* ((pre-prefix (if (and igrep-find (eq igrep-verbose-prompts t)) - "[find] ")) - (program - (igrep-read-program pre-prefix)) - (prefix (if (and program (eq igrep-verbose-prompts t)) - (igrep-prefix pre-prefix program " ") - pre-prefix)) - (options - (igrep-read-options prefix)) - (post-prefix (if (and options (eq igrep-verbose-prompts t)) - (igrep-prefix prefix options " ") - prefix))) - (list program - (igrep-read-regex post-prefix) - (if (not no-files) - (igrep-read-files post-prefix)) - options))) - -(defun igrep-read-program (&optional prompt-prefix) - "Read and return a `grep` program name from the minibuffer. -If `igrep-program' is non-nil, it. - -Optional PROMPT-PREFIX is prepended to the \"Program: \" prompt." - (or igrep-program - (let ((prompt "Program: ")) - (completing-read (igrep-prefix prompt-prefix prompt) igrep-program-table - nil t igrep-program-default)))) - -(defun igrep-read-options (&optional prompt-prefix) - "Read and return an options string from the minibuffer. -If `current-prefix-arg' is '(4) or '(64), return `igrep-options'. - -Optional PROMPT-PREFIX is prepended to the \"Options: \" prompt." - (if (or igrep-read-options - (and (consp current-prefix-arg) - (memq (prefix-numeric-value current-prefix-arg) - '(4 64)))) - (let ((prompt "Options: ")) - (read-string (igrep-prefix prompt-prefix prompt) - (or igrep-options "-"))) - igrep-options)) - -(defun igrep-read-regex (&optional prompt-prefix) - "Read and return a `grep` regex(5) string from the minibuffer. -Optional PROMPT-PREFIX is prepended to the \"Regex: \" prompt." - (if igrep-insert-default-key - (define-key minibuffer-local-map igrep-insert-default-key - 'igrep-insert-default-regex)) - (let* ((default-regex (igrep-default-regex)) - (prompt (igrep-prefix prompt-prefix - (if default-regex - (format "Regex [default: %s]: " - default-regex) - "Regex: "))) - (regex (cond ((featurep 'xemacs) ; incompatible - ;; DEFAULT-VALUE is the 7th arg in 21.4 (but 21.1 - ;; only accepts 6 args): - (read-from-minibuffer prompt - nil nil nil - 'igrep-regex-history - nil)) ; ABBREV-TABLE - ((>= emacs-major-version 20) - (read-from-minibuffer prompt - nil nil nil - 'igrep-regex-history - default-regex)) - (t - (read-from-minibuffer prompt - nil nil nil - 'igrep-regex-history))))) - (if (equal regex "") - (progn - (or (equal default-regex (car igrep-regex-history)) - (setq igrep-regex-history - (cons default-regex igrep-regex-history))) - default-regex) - regex))) - -(defun igrep-insert-default-regex (&optional clear-minibuffer) - "*Insert the default regex in the minibuffer. -If a prefix argument is specified, CLEAR-MINIBUFFER contents first." - (interactive "P") - (if clear-minibuffer - (delete-region (if (fboundp 'minibuffer-prompt-end) ; Emacs 21 - (minibuffer-prompt-end) - (point-min)) - (point-max))) - (insert (or (save-excursion - (set-buffer (window-buffer minibuffer-scroll-window)) - (igrep-default-regex)) - ""))) - -(defun igrep-insert-default-files (&optional clear-minibuffer) - "*Insert the default files in the minibuffer. -If a prefix argument is specified, CLEAR-MINIBUFFER contents first." - (interactive "P") - (if clear-minibuffer - (delete-region (if (fboundp 'minibuffer-prompt-end) ; Emacs 21 - (minibuffer-prompt-end) - (point-min)) - (point-max))) - (insert (mapconcat 'identity - (save-excursion - (set-buffer (window-buffer minibuffer-scroll-window)) - (igrep-default-files)) - " "))) - -(defsubst igrep-default-key (command &optional keymap key) - "Return the key bound to COMMAND in KEYMAP, preferably KEY." - (if (null keymap) - (setq keymap (current-global-map))) - (if (and key - (eq (lookup-key keymap key) command)) - key - (where-is-internal command keymap t))) - -(defun igrep-read-files (&optional prompt-prefix) - "Read and return a file name pattern from the minibuffer. -If `current-prefix-arg' is '(16) or '(64), read multiple file name -patterns and return them in a list. Optional PROMPT-PREFIX is -prepended to the \"File(s): \" prompt." - (let* ((default-files (igrep-default-files)) - (default-files-string (mapconcat 'identity default-files " ")) - (insert-default-directory igrep-insert-default-directory) - (file (igrep-read-file-name - (igrep-prefix prompt-prefix - (if default-files - (format "File(s) [default: %s]: " - default-files-string) - "File(s): ")) - nil (if default-files default-files-string "") nil nil - 'igrep-files-history)) - (files (list file))) - (if (or igrep-read-multiple-files - (and (consp current-prefix-arg) - (memq (prefix-numeric-value current-prefix-arg) - '(16 64)))) - (let* ((key (igrep-default-key 'exit-minibuffer - minibuffer-local-completion-map - "\r")) - (prompt - (igrep-prefix prompt-prefix - (if igrep-verbose-prompts - (format "File(s): [Type `%s' when done] " - (key-description key)) - "File(s): ")))) - (while (and (setq file - (igrep-read-file-name prompt - nil "" nil nil - 'igrep-files-history)) - (not (equal file ""))) - (setq files (cons file files))))) - (mapcar (lambda (file) - (if (file-directory-p file) - ;; really should map expand-file-name over default-files: - (expand-file-name (if default-files default-files-string "*") - file) - file)) - (nreverse files)))) - -(defun igrep-read-file-name (prompt - &optional directory default existing initial history) - "Just like `read-file-name,' but with optional HISTORY." - (if igrep-insert-default-key - (define-key minibuffer-local-completion-map igrep-insert-default-key - 'igrep-insert-default-files)) - (if history - (let ((file-name-history (symbol-value history))) - (prog1 (read-file-name prompt directory default existing initial) - (set history file-name-history))) - (read-file-name prompt directory default existing initial))) - -;; Menu bar: - -(if igrep-easy-menu - (progn - (easy-menu-define igrep-menu nil - "Menu keymap for igrep." - igrep-easy-menu) - (cond ((fboundp 'add-submenu) ; XEmacs - (add-submenu '("Tools") igrep-menu "Grep...")) - ((fboundp 'easy-menu-add-item) ; Emacs 20 - (easy-menu-add-item menu-bar-tools-menu nil igrep-menu - 'grep)) - (t ; Emacs 19 - (define-key-after menu-bar-tools-menu [igrep] - (cons (car igrep-easy-menu) igrep-menu) - (and (lookup-key menu-bar-tools-menu [grep]) 'grep)))))) - -;;; Local Variables: -;;; eval: (put 'igrep-define 'lisp-indent-function 1) -;;; eval: (put 'igrep-find-define 'lisp-indent-function 1) -;;; eval: (put 'easy-menu-define 'lisp-indent-function 'defun) -;;; End: - -(provide 'igrep) - -;;; igrep.el ends here diff --git a/rfc1345.el b/rfc1345.el deleted file mode 100644 index 87c62b2c65dc5808da5cd032a8049ad2fd16481b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 31752 zcmai-`FB%kn%}c0r;?L>J=ugO)fNUB%L_YrgeBX;i(HarmmOz1*V45mTb7I#8#$W` z=xV4YnJF5oilnp5WKSwd&rFsAcf&abipkWO?yCIK)%_ddclZ~g`+h&qCEHBSnd$Bi z?|t{@^SrOFWjJ^4T%^8Mhz|{q^!t@aEEbEr)AGud$d=zM)ryg|T0N2-ABzMJM7FB_ zR;^ktG$OISSfo%ZmaFS$Bdz9I>~!!aZ@txRY^=83u9w$K%}8|YXk>6;ARdW~*L^>d ztF1M6y}BP6ueGX0uUW2Dk4MtgLcgn)Xmz`*pN%BF9X~Q%>;A|2wW~kBUTyW)>gyMS zhNt}YZmnKyoQ;&@r>m~ge5u@std%Q%r2F67UcDKqtwkng^O4k+S7@l=|LvKzU?2?! zaxT)YwIT(t8marma-&%*AS`B}#RXH9s+ns)7F+D$-$9PED zA{&{@XXi4xRDUFr>uySS=0O9$!*T|ZxK-=MPtk971C;Gu>TY49JGM$OQVK$+?ic*> zPIqKpH$Jz6as7X`$*pIlR$X_Kd=owAA`J~o0XCMITT0JPbVr+Bi&SgPS+LoJ3*6(WC?WF%? z*h4KukIDP(b(t)+IBZeNFA+4H$4Q&!> zE7iZ=ANhvY8;M$7Tcm^C72Z0{#mj=iKuHLxV>nk#mt>SPu5l zlcNQ%o6H)KX1&%;yM8ygA~U&2quprwTitBI-loQa_Wokn-nd)qzZCL>K>?WVlmD3@f3Gj^ z=u&Au#D$>lLWqk2E{5px=({1hRIwD|a`5nSi057S|MiehxF}r-`Ka5}zY%h;<6j8* zn?ZBm46)al`!_@Of?_X3=k02Ug`l($VllvCh<<>6h-(3^g}5HzdWfX}OCgp6EQh!e z;6{j>0d9s^39x&5lia!|^XSS}h}8gfWekq7T7b2%bUVQ95U&JyCB%Aw^$;5YHbQhl zbkASUQOCg?z;E-+sd`>HVFMd!4#} zH{_%X$G>;5<%mK`=Ut~^oQ?>E;-i@uZdGkj*KtpauzbHz&)N}Yt zqB)nB4?l!d?~Z6*y?<9Urh0cpGfv9Gd!n36NrxYaQlgJ3Q!Af{Ce+G(%0&NAG^RQH zBg)*S9DYxf(UbpJH0Ki4;Xe^2RQ69rv+D1kiH@kvUlxtIkUabq(VP?V@SjuW;`8ud zh?bn4hyPM^$z|`ue2Z3Sv2E}I{Yu9 zIjz!v74>U%{~Pt(CE)NgQCw|45XCgxhoXxvcOD+_Xwj_3$sPdia-CJ^V|np84l?>D;|9tg_f4=&|KVSXfpRXS9udI6bS5`gzE2|#< zl~oV_irPQ?t7;DTS5uq#S5uq#S5uq#S5rOwtEmV4i;3{Brv1aemU_UymU_UymU_Uy zmRiBTww}blrn^o&!N0biH2>WEp5mV;GXJ8%t~|v*Ph|eNyYy51^F;VJ=6ZjMe+3c# zjk!@j#lM0G|Hj-$jHmcl5aHjL%cf89uOPy|qzM0tBJXwSgnyG-CHyOi@GtEm`6>RDMfjK23gTZ`gnwy`+WZsYUs|hV{)zA} ztr_88S%iOScYAt@e`R+qeu{sWH6#4n5aHjHRs#PvMfkVrZqrZkZ(6a7e-#n_O{*UM zRYdqVt-Zy+iU|LvH3$5wIC_SE({8Pw;a^3Bf3vRlXZTkY;oq$5{TcpMMff-CdVhw0 zRT2L6Rs+MI;ot0pBmAqbJHo$=+s$YAR}Sq{O zb9w(624*!w46KVVFsm72U|ocPSmm%ysTB-th%hkcV&oYHHbfYhQxA3miZC#z z9x$*W!oYbwiGfWK2F~kA3~Y)pa9%r)flUzx=ACoTFt8=Uz`XVa16v{t%xhmTuqDF4 zynB7~3RMk$(>NoaBx|>goAq` z99)(?IJhUm!DX!|4(^F?u;D%jJ;T9Ox4xg_;3ao={Tv6!MA%ahVb8dTSY8tm%Tpqv za8pDSX53q<&xx3th=|F!+wtc_OsyO^_&E{Nt~(+s@~X!!wM1;vvS!3u?}=FJl>1!y zIcuHNGCe1eB(+Y@$s|RPR5E>eC>X(WR%3cY$Z}Lb%O*TbI+>-Ed{PBTC<(Vc&q*kr zh=h_Bkx-!nJP|=M;Wqm@X=PnR zTA9$m37~ZmX=O@8TGkU^mnQ0h?Ub zB*-esJt1kO2$EMOv^(ULbrG?i&_~GUBnVHRNS>1+68gaRoD|{d^TTs;MCOE=B1zOh zvP44fnSO&b;eq6d#L-}Kzrk7Ui8!lMJc?sJh+`=|i(LL`&^C*tBKpe~KSrluDFs$yv=D)KozI#*i zoAhxm7p&}WvV(DVQhdQ`^|~PXg4K#Ur@vrz;?Bb_SdU(J-hF|>z3!y=0)uI!O(t-Ks+uY5S8D4i#Qy8+dWBS_4WnyBjTagmHmit zNQjtVzn)}*DU}foOCk#f5y6lVvHN)u+r22VeCka55xbpGe{A+85gRcfVzZMX_BthE ztCvM=^^%CKo)obWX%QPSC1N9{MQp^3h>e&Pu@7S+@@Pgx9-R}BN3$aGXij7oG7*_G zFCue}i^!bsipZSrh{&9aA~NS?5t(yAMCSCg4`fbXMCNRZ$ed*nnX{!GBXfFclf=0y zB5$sXNSj3w(dvtc);$qdgtmw)LP_+QUf7jI4@8?HqP!wP)h!WHS4E`Sg2*zhh(x>X z=*Q&Qx`;H}*9gq{F=@7;GSX~QgjFpOR;`J!>Z%BEHCPb`6I^~{ZC6YNu ztVBBPh?Q6pu@aZn3M(;v**(ch%!*iv`GzZFC8kuyN-U@q=ALwSfG^253HL+RFIkC8 zBC^eb$g+*dvW>{HjmWZ%`Xk#ctBh=u7Ljc(i!9rSEZc}I+lVaNh{!e>k?oO)Y?BqS zV>uDoW?satEiWSXjEl%UlOl4@n26jnrrDBvaw2k1uHbfs+;c&P)t4lnB{f6xd7DDA z&*hY>N%pzye%SOS+2?Y?m63fsHAD7U6_I^*M3#L-mVHE)eMFXhGz+rNp32BRWf9qD zLuA=UWZ6e#*+*pAM@06iiO4?NBC=22(N|=jh6v}HBAjc9aBfY6b0rbZ6+}2!aI^gi z=NclMYq%Z!3g<4k`{-9V*H$Yy_qNJ#Zo?1u=qs|%hWp{xR~WeAxiUNNYmRWPsNQjI zU4(OGwTW{@XZ%+#h}BKFFWCIV zvYm*s2@xxw6tVJ?B36D;WZ6!{%D*dO<>%cB{=~AK$}HQt_52AdKczBOepY$qbyr9|w}oa(Vhb1Ea-Eo;9Wm-%5u^58?_V?Ow#pc_rydyf zs)$iHw_KZyx~Vco-Q09#MC-cB$j~K~k)f}uj0{~Ak)exvk_=r}85w#{gaHi^1~lBu z;IA>DpfU_7x{qXElcAe#$G#>*?`iI2XkYcn&}9)B`k14i;?bH2kFJQwt(zipYehtE z-4c;ot0Ho1Nknel6_HyvMC8`Ch}?QsL~dQ_5fVNZL?qV}B9d#bh~ydA_xaX1mTc~ARHDEgd-w?@T7+TCqKO-a)G4~Ps#b<22XH2`7+~@HZpRxO^ zAlrW_1``0Q#)QD7ZwBLk@fpKf1qp(&gj8%)?Q)WGm>xF zm{^};Q_yJ>Bmqy^Oi00-#w6h>0*EZU36h4V?P(Hm#h6q)&Ew?T3V5Io>(jRXT#75k zT#IKID(Y{6k5zj{Tl4^hw?GV@VI&Vwc*_`vXL%fjs~`r?+S4dpHOAptP2>RzS3wM( zWgZVuxN3~UnNiK;0S?!UaX2%o_<4ZDHDfH!;N1f>t{LNT2Jar=am^Ty=ja}dw?QnP zV=0h$8^qx(h{AOcgR{0y7+g2T;4BM;p>+^Lb2Nsb4G=?f))tC3jBzxlm#8lu;Aq1b zM|0JoVVVvuxX5i^GpQ^n;;I(TLd6s(-;f$IQ;<4TE=*mx99P! zWsGNeiy$sNEn}`dd3~wp#REia8DrwYsLNju5OD{@!v&iwBJLPt;-Zd)hnTnvV&bC0 z>mefUf_S*7P=APryC5DeY7-u!;Vy`Ui;UwT8txk7;k!JJhF3u>e3!0}@G6LdOFWE% zZ4d*Obx=M;z&#NEmTesPw`Yuh%LjfZIB8RJPJO8YDKQmo|xGWf>Wkk()i2=_8bw5OTr0pVUYwo}L0P90-Ab!g5G9nj7k=6Yaf zjz{yfG=48p7QCuHzH>??RH_V)2 zJ{&zYW6qw;8SV7}*42!$E^n)aS1n__%F{erwLq-O+i0<>WsFsM8!c9~jIk$DA){GYbLlK;;!IMV$&MeSp<{iu@8W0HN#Izy6{ zb%rE$Bza7-uOrE0l6}htPqxondq|bH_K+%XgD1V`ZSbV`thG;iKcc(nW3oFR=pU2Z zj}Qgq_Fda{B6imXN5p2Vb0RilofEN(R!+n&S~(HBXkkFao}hao_8dz~#KvcXc<$_T z#fi@d3CSUl3(hde{pKV{yvE(HV0HEh*SLH0*V!jpr?YCA@XJmM3BQ>80#9e3=!-F` z@9Nb-jE=aA#M}=_I{REjj=1x!vrlAR0J(_ty5Ilp>=UQG?t6}%eZsUKBuaJ6clHU= zl^!Z{Nm=RPaiaDtNYtLu&qO=>gzbr#=1A0@a6f=U#N_v@dXeLfcqfqX9LcOPIn z`$TX*Qzn4>X_@QF+wSdXXP+DycQSSMN%?~y@iqjK@Z&aU68@ku;W%VW!XNWADWdZ{ z8%J}49nVoXc$9>I6Qy#nsMNAL}}x6GaQnB*|XG)6#X zaS~(_r$FX#8e|SBfwuD?o@TbxGA1TyijyJL&>U}& z`{P6I>2Hz920;>8d_<)rvO$nh4uOnv7$lL!m72aqA{zloWbxB#nM5`OlE+3s(%31G z`Nx&1zs39qLDJR`$Z`yW?Dz=Cj-Ld{Vy8gX?led|oB=tMJ&^EN1&NLV$hwaVz(h;D zuKANJ20<>3Lm&xq7$iZCfMk}FAerS9NM<<=l3C7xWEKx3v#f$-mI6p-85w{{E$5XT z-?uZ--IzM>6aRXn*m?gBN92y1@cRVXdH05^^FD!=ci-9XyicH=*EefB?-OY!PVhLP zcH{_5tew~2gV1@OV9O^N8e4U7!FB#^^4fWc{cQ$*L5+QzkzSybp^Yb8-J8@c&Iw6^ z^C=;gpOD8lu{=pBS#Q?;-gW0DSud(V-X!bAj;bm0+BhANx%xovBgdBYur2nW&=%YM zsIqgD#qI~0kuH;+n=EEVr`k={G6%AhSzVfL;_ZO@w9~nXnFGuhGh@0m-Q<1|)3V=0 z)H$YrYzf_=Zemv^t0}N$(Yz45j)K^guBsHfl4&7wrIl-MlH>Z_?YDCiU(V|0auZ+9 z(l5T8ujyOI?wS%|V{ZU2EEp~rYn{tc&z2H9hb#8G`O=`@y*rOxV zWvwnK5#J)IU2xw6@7yA7UF2a_^1Qo2cW$vbeTwH>EY1VhvkU2pkX<-` zLP$)Kly0-^3k_HLOPn-u&FDk&#t>+CDUkUNgDiV|!!`9G%RUIQ>_Z@nGYqmgas4d@ zoe!DAps}5g#=oM~8#ZR#BgS?_8nch5jO~y##^W=_CURVP?L+j74#M~s9fA=sIt*iA zbOh$eik^fyv!bV94z1{Em{Tiy21enyg7yxpHwdzNLm;6w3=&!+APS!Zxoe&R$=Ihs zGWHpeu#6+m9Wr>_#zmaQZD8bwxQ&b?9=D+p$Z;DRM`qjxN0yJ<=!o>V4G($aHa_ef zwDEC6i|SW?I(N9DMOU?~cQ^^61(>5CT7)?ZqWZ<3&K<%sx<)x+8C{17%V-HEETj7M zpUxe^GP*%IVHw?o3Cm~&CM=^{u!Ut6M&@V@#^&fYOcsq^fjMKM`qiM$9p0%#8j{A-k7g?}Ax!=}+5j7ABxyMsoTjL~S!7>$y~Xp}NW zqj6(2nlMJANn<`(rj0ooFB|jGati(~`Ec5pgg9eNMw~S!C1#9oXg%hPIZxg(CTC`i zNt!uhyq`Bl{Jb&dFBqf#qA~8jYmEF$#@N4XjQ*Z6{;wM2f5904i^llx8{_|)G5)U` zX1Gu-6d3qbgj5cqz+S;KpmzoaXL(0JD{jblospm;&7KBEoNzpAWha`f;4I61Zh$C zox8+nahk`8(PRZCMyL6hb(a`z(K{j9vepUFy!B3q=B=C%ZP7as+Opn>(7g3dgyyZB z2;HG~0(8e(CqVPIHUwxZ$@2v0f{l&<%@?y;O9Hf&gbC0EYo7q!Ve}TCHag-nZ);0@ zwvs$gd@k7Rh|hd+THO<$E&U~>ox8;6g0;{2R3u(Go{H1Vj^n9VVe}kNMT=*Sr(}t( z<#4ir&Hd#=XAs)>1&;L$|!*_a3_CDaE!O>LS|$Et_kUqS_91F>QgCO*BgJ%$6R{Y^Tu7 zHo`1pVUa9f(zcmnl%m)UXom4Hf-O*rVB@SLep~|4V_t81J|do`L5_oQkZ7rZB<(Cn zF!bl#m_H&I&VmHPC`d4@fh=qWWMQ)zHO0bawJ9I5uvxv5{)mOmF6m(wHmm7>#KLCv z{^=tYHan$#jF3}xfR5Nu z-UNTlhUThz7zfktHxN1>}Vn$f3sSD!GW`IN@-38QTK zT8~c{=6UV#CkTBJ#NYwF8To{j9?<)^PsqPHkcA)D^4ure&YFZ|GGX3UAEdpavzTq2IoM+U;rer&%1ZSFYTw`7eNC1y!%<~%Y9Ol zzN7bYpX=m#8we3~(U^#e8WZ_PjS2k=&d-{v8L6)-&vYL62)og*RW(s6AeUQwa0l5a$K$6I&r%|!i z>mX~r>D+$#9&5c0vecU`)n%pEK^A(`S1Ief4zkXhE?d2Pk9A%LS?31BV4e3sE)Wfd z!8-4OB(Da;AbIV9Tp$_@gA2qS$R0Hq1{a7uko41J7+fHVAo?^J1}UTnl0uq!tp+Ki z$*9O6MUVv2WK`sjB1rmZGAhowB1kr=GAgo3m0^%gs&qs$snRmZq)JmHlM+plOjg0~ z%lK{ZSA``y;>cVDIWo6FuI43%!OeUX~EfA6NAR_r7BBek?s)2}<0TF46 z#X_VB5Rs->J4BiQ5oxNW86naHh)7c`G$Kuah&08zBhmzjNI8aqNXsB1s~5=5l=yj!d5h%~QJT}PxO zh)DAq)pbNlf`~M)QC&x*B#20}j0%xv83rQF(h(xf(lR2=(i9?1(i9?H0ugBrM5IYN zLZnL|BF%w_G|4bH2rq#ggmWMV;Ut6PAiM-}5YB-dgp*7GLob0CItOCt3{$|+83xHg zIKwbF2xsUBe`jb4f0q*4U;JI7W&B;rs}z5iXc>Q(GAhO2C0fScEKT8WmOk*4r>R%zrq{w^>K{GFmB{GCc^g7~{YzxcaA zzxcaAzxcaAzxdlvzxW#i@wX4e-(w*Dt`56l*!RS?K`h$>v1|>*vLc9OO%ThfAeL1? zEL#V$Y!k$?5{P9RAeLPLvFs{{WqT#f2+Il}mNh^ut5X-t_CPEvfLPW5vCIRptOjD4 z4`P{bQ$jOO8*JaP^FcK86gu{myBdgQp8E*@@&=muAewoznm?NPAe#B^g~rPpXjW#F zXx0MJtW3XXwnHhJRo$0UUfw{nb%udvara{3rF|J^5M&BNAX69ynZgLj6i$Ln;S|Ue zPJ>M049FDX12A)#%8j|@xy6CyxmO1-e~}|;8)U~}o{VCz2FW0{Ql;{~c<~H;715&*=#AlM2>97o~#r&rPXVq<{P=>hG?3{gAs- zQGege>xY~j#iIJR-&4y!0$c% zMJ%rmI34yTsn6-)GyelFWIpq^->CMP{{g3i&-@R#la;ML{+F#j{+F#j{+F#j{;yem z{9m*B_`hcL@qf+gf`^W)yMx$tB?PiR^LtttB?N`tB?N` ztB?N`tB?N`tB?O%Rv-VjtUms4S$+K9vikU6wfgv9wfgv9wfgv9wfgv9vikU6vikU6 zvikU6vikVHYxVJe*XrZ{hLz+0hLz)g+sg63ZRPmiw*K+IZT;haWd?unzry)-fd3Wq z1OF@L2mV(|)W`n{=i34PSM<;EygtDHiie+F|AT+$cDr8NDR=+1-Cq7Z-tM2B>;CI| zUcFF?HNEaX!|k0Ji5J$2XJYYU{7h_k*gF;Tyfdd`1H&Wnk+s6GKQb`rs{Aki+_zsX MHX^}4mHXEJ1PZP4W&i*H diff --git a/tramp-init.el b/tramp-init.el deleted file mode 100644 index 20c3c01..0000000 --- a/tramp-init.el +++ /dev/null @@ -1,3 +0,0 @@ -;; setup tramp - -(add-to-list 'load-path "/usr/share/emacs/site-lisp/tramp") diff --git a/wrapper b/wrapper deleted file mode 100755 index 8ead71b..0000000 --- a/wrapper +++ /dev/null @@ -1,10 +0,0 @@ -#!/bin/sh - -PROG_NAME=`basename $0` - -for i in x nox; do - [ -x "/usr/bin/${PROG_NAME}-$i" ] && exec -a ${PROG_NAME} /usr/bin/${PROG_NAME}-$i "$@" -done - -echo "Can't find $PROG_NAME" 1>&2 -exit 1