diff options
author | Ulrich Müller <ulm@gentoo.org> | 2011-11-24 17:59:55 +0000 |
---|---|---|
committer | Ulrich Müller <ulm@gentoo.org> | 2011-11-24 17:59:55 +0000 |
commit | 99926d8c72d45d7c74effce367b306e27535b9b8 (patch) | |
tree | 55f712dc9cfd5cb950b721d41b3208c06192c8ef /app-emacs | |
parent | Define variable for display table. (diff) | |
download | emacs-99926d8c72d45d7c74effce367b306e27535b9b8.tar.gz emacs-99926d8c72d45d7c74effce367b306e27535b9b8.tar.bz2 emacs-99926d8c72d45d7c74effce367b306e27535b9b8.zip |
Moved to Portage tree.
svn path=/emacs-overlay/; revision=1756
Diffstat (limited to 'app-emacs')
-rw-r--r-- | app-emacs/teco/ChangeLog | 11 | ||||
-rw-r--r-- | app-emacs/teco/Manifest | 16 | ||||
-rw-r--r-- | app-emacs/teco/files/50teco-gentoo.el | 4 | ||||
-rw-r--r-- | app-emacs/teco/files/teco-7-minibuffer-prompt.patch | 84 | ||||
-rw-r--r-- | app-emacs/teco/metadata.xml | 5 | ||||
-rw-r--r-- | app-emacs/teco/teco-7.ebuild | 28 |
6 files changed, 0 insertions, 148 deletions
diff --git a/app-emacs/teco/ChangeLog b/app-emacs/teco/ChangeLog deleted file mode 100644 index 6ce3b90..0000000 --- a/app-emacs/teco/ChangeLog +++ /dev/null @@ -1,11 +0,0 @@ -# ChangeLog for app-emacs/teco -# Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2 -# $Header: $ - -*teco-7 (19 Nov 2011) - - 19 Nov 2011; Ulrich Mueller <ulm@gentoo.org> +teco-7.ebuild, - +files/teco-7-minibuffer-prompt.patch, +files/50teco-gentoo.el, - +metadata.xml: - Initial import. Ebuild contributed by me. - diff --git a/app-emacs/teco/Manifest b/app-emacs/teco/Manifest deleted file mode 100644 index db18836..0000000 --- a/app-emacs/teco/Manifest +++ /dev/null @@ -1,16 +0,0 @@ ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -AUX 50teco-gentoo.el 257 RMD160 9e07ed5ff32e761178685b7341f20c9b1b792726 SHA1 82ca1a321853d6a66bcf160938b50bd578d22257 SHA256 0f5462dbf8632c898192ab09a9874a4adabbc2a2a96861a19e4dda3e61708dad -AUX teco-7-minibuffer-prompt.patch 2951 RMD160 1f0b98a27ce7af5070dffca10a649f496c47458e SHA1 02429452037778d4917b5b88494773f827c3ee4b SHA256 14e708a859985f65d96eb11f9d64605e0a74be88b42b0a61ed0fa9631579125c -DIST teco-7.el.bz2 16372 RMD160 73ca72286844171548303979b274843a550335bc SHA1 98707cf208484e01d082c2313dde4f880a2a7eb5 SHA256 28c04c00f36bc04ffd31291fa2718538a549a5d86dc372a427fba60b40801570 -EBUILD teco-7.ebuild 753 RMD160 11f59c73e1de47dab5b05e089116d1198d9f0320 SHA1 0c08fddccc0514e9cf1d3f476d18c99ec4261934 SHA256 d6443cbdbaa7a7f8cb06be6e3dd924c62abbd7d3a1a0b866dcb7782340d6e1f4 -MISC ChangeLog 329 RMD160 84246a026ca64c81de4995cc3aca038cf7c08866 SHA1 8c6ee961d4bcd2cdd39f43d2e8c581f3bff3b09f SHA256 0a65c4871146ddc65f5d3ef7fed196145bd21e61b30406b478fe99f798dfc63b -MISC metadata.xml 158 RMD160 415d172437ca754d24fc5ab186ba8e77934d96e4 SHA1 61f6eff9729cd87a725c2a70c81aca4270a17fc4 SHA256 1393bdef3a74343fdb40a112c7096a1af16f67e7a43413250de28dfe73810eab ------BEGIN PGP SIGNATURE----- -Version: GnuPG v2.0.18 (GNU/Linux) - -iEYEARECAAYFAk7NMy0ACgkQOeoy/oIi7uw1OACfSX1+Bt2BFWPdu3vyfgPjWl1S -F4cAoNAwOKyYty81bJqea1tBjt3KpOhu -=sURX ------END PGP SIGNATURE----- diff --git a/app-emacs/teco/files/50teco-gentoo.el b/app-emacs/teco/files/50teco-gentoo.el deleted file mode 100644 index 6992ef1..0000000 --- a/app-emacs/teco/files/50teco-gentoo.el +++ /dev/null @@ -1,4 +0,0 @@ -(add-to-list 'load-path "@SITELISP@") -(autoload 'teco:command "teco" "Read and execute a Teco command string." t) -(autoload 'teco "teco" "Read and execute a Teco command string." t) -(autoload 'teco:copy-to-q-reg "teco" "Copy region into Teco q-reg REG." t) diff --git a/app-emacs/teco/files/teco-7-minibuffer-prompt.patch b/app-emacs/teco/files/teco-7-minibuffer-prompt.patch deleted file mode 100644 index 22702ce..0000000 --- a/app-emacs/teco/files/teco-7-minibuffer-prompt.patch +++ /dev/null @@ -1,84 +0,0 @@ ---- teco.el -+++ teco.el -@@ -2202,6 +2202,12 @@ - (list 'keymap (make-vector 128 'teco:command-self-insert)) - "Keymap used while reading teco commands.") - -+(defvar teco:command-display-table -+ (let ((table (make-display-table))) -+ (aset table ?\e [?$]) -+ table) -+ "Display table used while reading teco commands.") -+ - (define-key teco:command-keymap "\^c" 'teco:command-quit) - (define-key teco:command-keymap "\^g" 'teco:command-quit) - (define-key teco:command-keymap "\^l" 'teco:command-ctrl-l) -@@ -2213,10 +2219,6 @@ - (define-key teco:command-keymap "/" 'teco:command-slash) - (define-key teco:command-keymap "*" 'teco:command-star) - --(defvar teco:command-escapes nil -- "Records where ESCs are, since they are represented in the command buffer --by $.") -- - (defun teco:copy-to-q-reg (char start end) - "Copy region into Teco q-reg REG. - When called from program, takes three args: REG, START, and END. -@@ -2244,15 +2246,10 @@ - - (defun teco:read-command () - "Read a teco command string from the user." -- (let* ((teco:command-escapes nil) -- (command (catch 'teco:command-quit -- (read-from-minibuffer teco:prompt nil -- teco:command-keymap)))) -- (if command -- (while teco:command-escapes -- (aset command (car teco:command-escapes) ?\e) -- (setq teco:command-escapes (cdr teco:command-escapes)))) -- command)) -+ (minibuffer-with-setup-hook -+ (lambda () (setq buffer-display-table teco:command-display-table)) -+ (catch 'teco:command-quit -+ (read-from-minibuffer teco:prompt nil teco:command-keymap)))) - - (defun teco:command-self-insert () - (interactive) -@@ -2276,16 +2273,13 @@ - (interactive) - ;; Two ESCs in a row terminate the command string - (if (eq last-command 'teco:command-escape) -- (throw 'teco:command-quit (buffer-string))) -+ (throw 'teco:command-quit (minibuffer-contents-no-properties))) - (teco:command-insert-character last-command-char)) - - (defun teco:command-ctrl-u () - (interactive) - ;; delete the characters - (kill-line 0) -- ;; forget that they were ESCs -- (while (and teco:command-escapes (<= (point) (car teco:command-escapes))) -- (setq teco:command-escapes (cdr teco:command-escapes))) - ;; decide whether to shrink the window - (while (let ((a (insert ?\n)) - (b (pos-visible-in-window-p)) -@@ -2297,9 +2291,6 @@ - (interactive) - ;; delete the character - (backward-delete-char 1) -- ;; forget that it was an ESC -- (if (and teco:command-escapes (= (1- (point)) (car teco:command-escapes))) -- (setq teco:command-escapes (cdr teco:command-escapes))) - ;; decide whether to shrink the window - (insert ?\n) - (if (prog1 (pos-visible-in-window-p) -@@ -2362,9 +2353,6 @@ - - ;; Insert a single command character - (defun teco:command-insert-character (c) -- (if (eq c ?\e) -- (setq teco:command-escapes (cons (1- (point)) teco:command-escapes) -- c ?$)) - (insert c) - (if (not (pos-visible-in-window-p)) - (enlarge-window 1))) diff --git a/app-emacs/teco/metadata.xml b/app-emacs/teco/metadata.xml deleted file mode 100644 index bc306fe..0000000 --- a/app-emacs/teco/metadata.xml +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd"> -<pkgmetadata> -<herd>emacs</herd> -</pkgmetadata> diff --git a/app-emacs/teco/teco-7.ebuild b/app-emacs/teco/teco-7.ebuild deleted file mode 100644 index a194fa9..0000000 --- a/app-emacs/teco/teco-7.ebuild +++ /dev/null @@ -1,28 +0,0 @@ -# Copyright 1999-2011 Gentoo Foundation -# Distributed under the terms of the GNU General Public License v2 -# $Header: $ - -EAPI=4 - -inherit elisp - -DESCRIPTION="TECO interpreter for GNU Emacs" -HOMEPAGE="http://www.emacswiki.org/emacs/TECO" -# taken from: http://www.emacswiki.org/emacs/teco.el -SRC_URI="http://dev.gentoo.org/~ulm/distfiles/${P}.el.bz2" - -LICENSE="public-domain" -SLOT="0" -KEYWORDS="~amd64 ~x86" -IUSE="" - -ELISP_PATCHES="${P}-minibuffer-prompt.patch" -SITEFILE="50${PN}-gentoo.el" - -pkg_postinst() { - elisp-site-regen - elog "To be able to invoke Teco directly, define a key binding" - elog "for teco:command in your ~/.emacs file, e.g.:" - elog " (global-set-key \"\\C-z\" 'teco:command)" - elog "See ${SITELISP}/${PN}/teco.el for documentation." -} |