Mercurial > emacs
changeset 804:33aaf4b71a1d
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 16 Jul 1992 21:46:14 +0000 |
| parents | 3ce27dfc2deb |
| children | 10f8af91ab47 |
| files | lisp/=mh-e.el lisp/mail/rfc822.el lisp/progmodes/compile.el lisp/progmodes/etags.el lisp/textmodes/paragraphs.el |
| diffstat | 5 files changed, 27 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=mh-e.el Thu Jul 16 21:43:09 1992 +0000 +++ b/lisp/=mh-e.el Thu Jul 16 21:46:14 1992 +0000 @@ -7,7 +7,7 @@ (defvar mh-e-RCS-id) (setq mh-e-RCS-id "$Header: /var/home/larus/lib/emacs/RCS/mh-e.el,v 3.1 90/09/28 15:47:58 larus Exp Locker: larus $") -;;; Copyright (C) 1985-89 Free Software Foundation +;;; Copyright (C) 1985, 86, 87, 88, 89, 92 Free Software Foundation ;; GNU Emacs is distributed in the hope that it will be useful, ;; but without any warranty. No author or distributor
--- a/lisp/mail/rfc822.el Thu Jul 16 21:43:09 1992 +0000 +++ b/lisp/mail/rfc822.el Thu Jul 16 21:46:14 1992 +0000 @@ -4,13 +4,13 @@ ;; Maintainer: FSF ;; Last-Modified: 26 Nov 1990 -;; Copyright (C) 1986-1990 Free Software Foundation, Inc. +;; Copyright (C) 1986, 87, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. ;; GNU Emacs 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 1, or (at your option) +;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful,
--- a/lisp/progmodes/compile.el Thu Jul 16 21:43:09 1992 +0000 +++ b/lisp/progmodes/compile.el Thu Jul 16 21:46:14 1992 +0000 @@ -1,28 +1,28 @@ ;;; compile.el --- run compiler as inferior of Emacs, parse error messages. +;; Author: Roland McGrath <roland@prep.ai.mit.edu> ;; Maintainer: FSF ;; Last-Modified: 05 Jul 1992 ;;;!!! dup removal is broken. -;; Copyright (C) 1985-1991 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 87, 92 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY. No author or distributor -;; accepts responsibility to anyone for the consequences of using it -;; or for whether it serves any particular purpose or works at all, -;; unless he says so in writing. Refer to the GNU Emacs General Public -;; License for full details. +;; GNU Emacs 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. -;; Everyone is granted permission to copy, modify and redistribute -;; GNU Emacs, but only under the conditions described in the -;; GNU Emacs General Public License. A copy of this license is -;; supposed to have been given to you along with GNU Emacs so you -;; can know your rights and responsibilities. It should be in a -;; file named COPYING. Among other things, the copyright notice -;; and this notice must be preserved on all copies. +;; GNU Emacs 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, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Code:
--- a/lisp/progmodes/etags.el Thu Jul 16 21:43:09 1992 +0000 +++ b/lisp/progmodes/etags.el Thu Jul 16 21:46:14 1992 +0000 @@ -477,6 +477,7 @@ (switch-to-buffer-other-window (find-tag-noselect tagname next-p))) ;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window) +;;;###autoload (defun find-tag-other-frame (tagname &optional next-p) "Find tag (in current tag table) whose name contains TAGNAME. Selects the buffer that the tag is contained in in another frame @@ -920,8 +921,12 @@ See documentation of variable `tags-file-name'." (interactive "sTags query replace (regexp): \nsTags query replace %s by: \nP") - (setq tags-loop-scan (list 'prog1 (list 're-search-forward from nil t) - '(goto-char (point-min))) ;??? XXX + (setq tags-loop-scan (list 'prog1 + (list 'if (list 're-search-forward form nil t) + ;; When we find a match, move back + ;; to the beginning of it so perform-replace + ;; will see it. + '(goto-char (match-beginning 0)))) tags-loop-operate (list 'perform-replace from to t t delimited)) (tags-loop-continue t)) @@ -961,6 +966,7 @@ ;;; XXX Kludge interface. ;; XXX If a file is in multiple tables, selection may get the wrong one. +;;;###autoload (defun select-tags-table () "Select a tags table file from a menu of those you have already used. The list of tags tables to select from is stored in `tags-table-file-list';
--- a/lisp/textmodes/paragraphs.el Thu Jul 16 21:43:09 1992 +0000 +++ b/lisp/textmodes/paragraphs.el Thu Jul 16 21:46:14 1992 +0000 @@ -3,13 +3,13 @@ ;; Maintainer: FSF ;; Last-Modified: 13 May 1991 -;; Copyright (C) 1985-1991 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 87, 1991 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. ;; GNU Emacs 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 1, or (at your option) +;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful,