Some fixes to follow coding conventions.

This commit is contained in:
Pavel Janík 2001-07-15 19:53:53 +00:00
parent 715a2ca2fc
commit 60370d4073
118 changed files with 345 additions and 165 deletions

View file

@ -2,10 +2,10 @@
;; Copyright (C) 1994,1995,1997,1998, 2001 Free Software Foundation, Inc.
;; Author: 1994-1998 Barry A. Warsaw
;; Maintainer: FSF
;; Created: 26-Feb-1994
;; Keywords: debugging lisp tools
;; Author: Barry A. Warsaw
;; Maintainer: FSF
;; Created: 26-Feb-1994
;; Keywords: debugging lisp tools
;; This file is part of GNU Emacs.
@ -331,7 +331,7 @@ For example, to instrument all ELP functions, do the following:
\\[elp-instrument-package] RET elp- RET"
(interactive "sPrefix of package to instrument: ")
(if (zerop (length prefix))
(error "Instrumenting all Emacs functions would render Emacs unusable."))
(error "Instrumenting all Emacs functions would render Emacs unusable"))
(elp-instrument-list
(mapcar
'intern
@ -362,7 +362,7 @@ Use optional LIST if provided instead."
(interactive "aFunction to reset: ")
(let ((info (get funsym elp-timer-info-property)))
(or info
(error "%s is not instrumented for profiling." funsym))
(error "%s is not instrumented for profiling" funsym))
(aset info 0 0) ;reset call counter
(aset info 1 0.0) ;reset total time
;; don't muck with aref 2 as that is the old symbol definition
@ -417,7 +417,7 @@ original definition, use \\[elp-restore-function] or \\[elp-restore-all]."
(func (aref info 2))
result)
(or func
(error "%s is not instrumented for profiling." funsym))
(error "%s is not instrumented for profiling" funsym))
(if (not elp-record-p)
;; when not recording, just call the original function symbol
;; and return the results.
@ -591,4 +591,4 @@ displayed."
(provide 'elp)
;; elp.el ends here
;;; elp.el ends here

View file

@ -1,4 +1,4 @@
;;; levents.el --- emulate the Lucid event data type and associated functions.
;;; levents.el --- emulate the Lucid event data type and associated functions
;; Copyright (C) 1993 Free Software Foundation, Inc.

View file

@ -21,6 +21,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:

View file

@ -24,6 +24,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;;; The selection code requires us to use certain symbols whose names are
@ -229,4 +231,4 @@ the kill ring or the Clipboard."
(provide 'lselect)
;;; lselect.el ends here.
;;; lselect.el ends here

View file

@ -1,4 +1,4 @@
;;; lucid.el --- Emulate some Lucid Emacs functions.
;;; lucid.el --- emulate some Lucid Emacs functions
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
@ -19,6 +19,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;; XEmacs autoloads CL so we might as well make use of it.
@ -224,4 +226,4 @@ bottom of the buffer stack."
(provide 'lucid)
;;; end of lucid.el
;;; lucid.el ends here