Commit 29add8b9 authored by Roland McGrath's avatar Roland McGrath

*** empty log message ***

parent 15ece07d
...@@ -4,13 +4,13 @@ ...@@ -4,13 +4,13 @@
;; Maintainer: FSF ;; Maintainer: FSF
;; Last-Modified: 26 Nov 1990 ;; 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. ;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify ;; 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 ;; 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. ;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful, ;; GNU Emacs is distributed in the hope that it will be useful,
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
(defvar mh-e-RCS-id) (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 $") (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, ;; GNU Emacs is distributed in the hope that it will be useful,
;; but without any warranty. No author or distributor ;; but without any warranty. No author or distributor
......
;;; compile.el --- run compiler as inferior of Emacs, parse error messages. ;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
;; Author: Roland McGrath <roland@prep.ai.mit.edu>
;; Maintainer: FSF ;; Maintainer: FSF
;; Last-Modified: 05 Jul 1992 ;; Last-Modified: 05 Jul 1992
;;;!!! dup removal is broken. ;;;!!! 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. ;; 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 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful, ;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY. No author or distributor ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; accepts responsibility to anyone for the consequences of using it ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; or for whether it serves any particular purpose or works at all, ;; GNU General Public License for more details.
;; unless he says so in writing. Refer to the GNU Emacs General Public
;; License for full 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
;; Everyone is granted permission to copy, modify and redistribute ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; 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.
;;; Code: ;;; Code:
......
...@@ -477,6 +477,7 @@ See documentation of variable `tags-file-name'." ...@@ -477,6 +477,7 @@ See documentation of variable `tags-file-name'."
(switch-to-buffer-other-window (find-tag-noselect tagname next-p))) (switch-to-buffer-other-window (find-tag-noselect tagname next-p)))
;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window) ;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window)
;;;###autoload
(defun find-tag-other-frame (tagname &optional next-p) (defun find-tag-other-frame (tagname &optional next-p)
"Find tag (in current tag table) whose name contains TAGNAME. "Find tag (in current tag table) whose name contains TAGNAME.
Selects the buffer that the tag is contained in in another frame Selects the buffer that the tag is contained in in another frame
...@@ -920,8 +921,12 @@ with the command \\[tags-loop-continue]. ...@@ -920,8 +921,12 @@ with the command \\[tags-loop-continue].
See documentation of variable `tags-file-name'." See documentation of variable `tags-file-name'."
(interactive (interactive
"sTags query replace (regexp): \nsTags query replace %s by: \nP") "sTags query replace (regexp): \nsTags query replace %s by: \nP")
(setq tags-loop-scan (list 'prog1 (list 're-search-forward from nil t) (setq tags-loop-scan (list 'prog1
'(goto-char (point-min))) ;??? XXX (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-operate (list 'perform-replace from to t t delimited))
(tags-loop-continue t)) (tags-loop-continue t))
...@@ -961,6 +966,7 @@ unless it has one in the tags table." ...@@ -961,6 +966,7 @@ unless it has one in the tags table."
;;; XXX Kludge interface. ;;; XXX Kludge interface.
;; XXX If a file is in multiple tables, selection may get the wrong one. ;; XXX If a file is in multiple tables, selection may get the wrong one.
;;;###autoload
(defun select-tags-table () (defun select-tags-table ()
"Select a tags table file from a menu of those you have already used. "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'; The list of tags tables to select from is stored in `tags-table-file-list';
......
...@@ -3,13 +3,13 @@ ...@@ -3,13 +3,13 @@
;; Maintainer: FSF ;; Maintainer: FSF
;; Last-Modified: 13 May 1991 ;; 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. ;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify ;; 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 ;; 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. ;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful, ;; GNU Emacs is distributed in the hope that it will be useful,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment