From 3b1e4dd1eb6c7f99cf9d609eb39fba77f2adfbc9 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Wed, 17 Mar 1993 15:58:09 +0000 Subject: [PATCH] Add standard library headers. --- lisp/emacs-lisp/cust-print.el | 2 +- lisp/find-dired.el | 8 ++++---- lisp/find-gc.el | 4 +++- lisp/hippie-exp.el | 13 ++++++++----- lisp/isearch.el | 25 ++++++++++++++++++------- 5 files changed, 34 insertions(+), 18 deletions(-) diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el index 8676c98d402..49b76ce18e9 100644 --- a/lisp/emacs-lisp/cust-print.el +++ b/lisp/emacs-lisp/cust-print.el @@ -1,4 +1,4 @@ -;; cust-print.el --- handles print-level and print-circle. +;;; cust-print.el --- handles print-level and print-circle. ;; Copyright (C) 1992 Free Software Foundation, Inc. diff --git a/lisp/find-dired.el b/lisp/find-dired.el index bb1f29f4b6f..5fa664ed424 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -1,4 +1,4 @@ -;; find-dired.el --- run a `find' command and dired the output +;;; find-dired.el --- run a `find' command and dired the output ;;; Copyright (C) 1992 Free Software Foundation, Inc. @@ -7,8 +7,8 @@ ;; Maintainer: Sebastian Kremer ;; Keywords: unix -(defconst find-dired-version (substring "$Revision: 1.15 $" 11 -2) - "$Id: find-dired.el,v 1.15 1992/09/26 11:48:45 sk Exp $") +(defconst find-dired-version (substring "$Revision: 1.10 $" 11 -2) + "$Id: find-dired.el,v 1.10 1992/09/27 01:24:00 roland Exp eric $") ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by @@ -33,7 +33,7 @@ ;; find-dired|Roland McGrath, Sebastian Kremer ;; |roland@gnu.ai.mit.edu, sk@thp.uni-koeln.de ;; |Run a `find' command and dired the output -;; |$Date: 1992/09/26 11:48:45 $|$Revision: 1.15 $| +;; |$Date: 1992/09/27 01:24:00 $|$Revision: 1.10 $| ;; INSTALLATION ====================================================== diff --git a/lisp/find-gc.el b/lisp/find-gc.el index 38088a3ba58..40289587a91 100644 --- a/lisp/find-gc.el +++ b/lisp/find-gc.el @@ -20,12 +20,14 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;; Code: +;;; Commentary: ;;; Produce in unsafe-list the set of all functions that may invoke GC. ;;; This expects the Emacs sources to live in emacs-source-directory. ;;; It creates a temporary working directory /tmp/esrc. +;;; Code: + (defun find-gc-unsafe () (trace-call-tree nil) (trace-use-tree) diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index 1d2f647ecf2..0080136c8e4 100644 --- a/lisp/hippie-exp.el +++ b/lisp/hippie-exp.el @@ -1,4 +1,8 @@ -;; Expand a word trying various ways to find its expansion. +;;; hippie.el --- expand a word trying various ways to find its expansion. + +;; Author: Anders Holst +;; Keywords: extensions + ;; Copyright (C) 1992 Free Software Foundation, Inc. ;; ;; This file is part of GNU Emacs. @@ -17,12 +21,9 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;; -;; Author: Anders Holst (aho@sans.kth.se) -;; ;; Last change: 4 January 1993 -;; -;; DESCRIPTION +;; Commentary: ;; ;; `hippie-expand' is a single function for a lot of different kinds ;; of completions and expansions. Called repeatedly it tries all @@ -124,6 +125,7 @@ ;; how to improve it. ;; +;; Code: (defvar he-num -1) @@ -672,3 +674,4 @@ string). It returns t if a new expansion is found, nil otherwise." (skip-chars-forward "-_.") (point)))) +;;; hippie.el ends here diff --git a/lisp/isearch.el b/lisp/isearch.el index 3595b972ab5..9fa37e25e09 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1,10 +1,10 @@ -;; Incremental search minor mode. +;; isearch.el ---- incremental search minor mode. + ;; Copyright (C) 1992 Free Software Foundation, Inc. -;; LCD Archive Entry: -;; isearch-mode|Daniel LaLiberte|liberte@cs.uiuc.edu -;; |A minor mode replacement for isearch.el. -;; |$Date: 1993/03/07 08:43:57 $|$Revision: 1.22 $|~/modes/isearch-mode.el +;; Author: Daniel LaLiberte + +;; |$Date: 1993/03/07 20:17:27 $|$Revision: 1.23 $ ;; This file is not yet part of GNU Emacs, but it is based almost ;; entirely on isearch.el which is part of GNU Emacs. @@ -24,6 +24,8 @@ ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. +;;; Commentary: + ;;;==================================================================== ;; Instructions @@ -85,11 +87,18 @@ ;; - Think about incorporating query-replace. ;; - Hooks and options for failed search. +;;; Change Log: + ;;;==================================================================== ;;; Change History -;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.22 1993/03/07 08:43:57 rms Exp rms $ -;;; $Log: isearch-mode.el,v $ +;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.23 1993/03/07 20:17:27 rms Exp eric $ +;;; $Log: isearch.el,v $ +; Revision 1.23 1993/03/07 20:17:27 rms +; (isearch-other-meta-char): Call listify-key-sequence. +; (isearch-unread): Don't call it here. +; (isearch-mode-map): Bind the ASCII-equivalent function keys. +; ; Revision 1.22 1993/03/07 08:43:57 rms ; (isearch-mode): Don't make a pre-command-hook. ; @@ -186,6 +195,7 @@ ;;; 3/18/92 Fixed invalid-regexp. ;;; 3/18/92 Fixed yanking in regexps. +;;; Code: ;;;========================================================================= @@ -1574,3 +1584,4 @@ have special meaning in a regexp." ;;)) +;;; isearch.el ends here -- 2.11.4.GIT