From b5b7b0baf551299e058432d58d5ab2e21d16c312 Mon Sep 17 00:00:00 2001 From: Claudio Fontana Date: Fri, 6 Jan 2006 04:52:00 +0000 Subject: * s/id-utils/idutils/g; * other small changes --- lisp/Makefile.am | 2 +- lisp/Makefile.in | 6 ++++-- lisp/id-utils.el | 63 -------------------------------------------------------- lisp/idutils.el | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 68 insertions(+), 66 deletions(-) delete mode 100644 lisp/id-utils.el create mode 100644 lisp/idutils.el (limited to 'lisp') diff --git a/lisp/Makefile.am b/lisp/Makefile.am index 9038f21..16cf288 100644 --- a/lisp/Makefile.am +++ b/lisp/Makefile.am @@ -1,4 +1,4 @@ ## Process this file with automake to create Makefile.in -dist_lisp_LISP = id-utils.el +dist_lisp_LISP = idutils.el diff --git a/lisp/Makefile.in b/lisp/Makefile.in index f91faef..06588ed 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in @@ -93,7 +93,7 @@ am__strip_dir = `echo $$p | sed -e 's|^.*/||'`; am__installdirs = "$(DESTDIR)$(lispdir)" dist_lispLISP_INSTALL = $(INSTALL_DATA) LISP = $(dist_lisp_LISP) -am__ELFILES = id-utils.el +am__ELFILES = idutils.el am__ELCFILES = $(am__ELFILES:.el=.elc) ELCFILES = $(LISP:.el=.elc) elisp_comp = $(top_srcdir)/elisp-comp @@ -131,6 +131,8 @@ GENCAT = @GENCAT@ GETOPT_H = @GETOPT_H@ GLIBC2 = @GLIBC2@ GLIBC21 = @GLIBC21@ +GL_COND_LIBTOOL_FALSE = @GL_COND_LIBTOOL_FALSE@ +GL_COND_LIBTOOL_TRUE = @GL_COND_LIBTOOL_TRUE@ GMSGFMT = @GMSGFMT@ HAVE_ASPRINTF = @HAVE_ASPRINTF@ HAVE_POSIX_PRINTF = @HAVE_POSIX_PRINTF@ @@ -220,7 +222,7 @@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ -dist_lisp_LISP = id-utils.el +dist_lisp_LISP = idutils.el all: all-am .SUFFIXES: diff --git a/lisp/id-utils.el b/lisp/id-utils.el deleted file mode 100644 index 09c7f9b..0000000 --- a/lisp/id-utils.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; id-utils.el -- emacs interface to `lid -R grep', a.k.a. `gid' -;;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. -;;; Greg McGary . - -;; This file is part of GNU id-utils. - -;; GNU id-utils 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, or (at your option) -;; any later version. - -;; GNU id-utils 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, 59 Temple Place - Suite 330, Boston, -;; MA 02111-1307, USA. - -;;; This package provides the tools meant to help editing PO files, -;;; as documented in the GNU id-utils user's manual. See this manual -;;; for user documentation, which is not repeated here. - -;;; To install, merely put this file somewhere GNU Emacs will find it, -;;; then add the following lines to your .emacs file: -;;; -;;; (autoload 'gid "id-utils") -;;; -;;; You may also adjust some customizations variables, below, by defining -;;; them in your .emacs file. - -(require 'compile) -(provide 'id-utils) - -(defvar gid-command "gid" "The command run by the gid function.") - -(defun gid (args) - "Run gid, with user-specified ARGS, and collect output in a buffer. -While gid runs asynchronously, you can use the \\[next-error] command to -find the text that gid hits refer to. The command actually run is -defined by the gid-command variable." - (interactive (list (read-input - (concat "Run " gid-command " (with args): ") (word-around-point)))) - (let (compile-command - (compilation-error-regexp-alist grep-regexp-alist) - (compilation-buffer-name-function '(lambda (mode) - (concat "*" gid-command " " args "*")))) - ;; For portability to v19, use compile rather than compile-internal. - (compile (concat gid-command " " args)))) - -(defun word-around-point () - "Return the word around the point as a string." - (save-excursion - (if (not (eobp)) - (forward-char 1)) - (forward-word -1) - (forward-word 1) - (forward-sexp -1) - (buffer-substring (point) (progn - (forward-sexp 1) - (point))))) diff --git a/lisp/idutils.el b/lisp/idutils.el new file mode 100644 index 0000000..b52e614 --- /dev/null +++ b/lisp/idutils.el @@ -0,0 +1,63 @@ +;;; idutils.el -- emacs interface to `lid -R grep', a.k.a. `gid' +;;; Copyright (C) 1995, 1996, 2006 Free Software Foundation, Inc. +;;; Greg McGary . + +;; This file is part of GNU idutils. + +;; GNU idutils 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, or (at your option) +;; any later version. + +;; GNU idutils 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 GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, 59 Temple Place - Suite 330, Boston, +;; MA 02111-1307, USA. + +;;; This package provides the tools meant to help editing PO files, +;;; as documented in the GNU idutils user's manual. See this manual +;;; for user documentation, which is not repeated here. + +;;; To install, merely put this file somewhere GNU Emacs will find it, +;;; then add the following lines to your .emacs file: +;;; +;;; (autoload 'gid "idutils") +;;; +;;; You may also adjust some customizations variables, below, by defining +;;; them in your .emacs file. + +(require 'compile) +(provide 'idutils) + +(defvar gid-command "gid" "The command run by the gid function.") + +(defun gid (args) + "Run gid, with user-specified ARGS, and collect output in a buffer. +While gid runs asynchronously, you can use the \\[next-error] command to +find the text that gid hits refer to. The command actually run is +defined by the gid-command variable." + (interactive (list (read-input + (concat "Run " gid-command " (with args): ") (word-around-point)))) + (let (compile-command + (compilation-error-regexp-alist grep-regexp-alist) + (compilation-buffer-name-function '(lambda (mode) + (concat "*" gid-command " " args "*")))) + ;; For portability to v19, use compile rather than compile-internal. + (compile (concat gid-command " " args)))) + +(defun word-around-point () + "Return the word around the point as a string." + (save-excursion + (if (not (eobp)) + (forward-char 1)) + (forward-word -1) + (forward-word 1) + (forward-sexp -1) + (buffer-substring (point) (progn + (forward-sexp 1) + (point))))) -- cgit v1.2.3