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

*** empty log message ***

parent 15ece07d
......@@ -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,
......
......@@ -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
......
;;; 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 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,
;; 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.
;; 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.
;; 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:
......
......@@ -477,6 +477,7 @@ See documentation of variable `tags-file-name'."
(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 @@ with the command \\[tags-loop-continue].
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 @@ unless it has one in the tags table."
;;; 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';
......
......@@ -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,
......
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