Some fixes to follow coding conventions.
This commit is contained in:
parent
715a2ca2fc
commit
60370d4073
118 changed files with 345 additions and 165 deletions
|
@ -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
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -21,6 +21,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue