Anonymous avatar Anonymous committed 2f7f028

profiling fix, customize h-cl.el

Comments (0)

Files changed (4)

+1998-04-20  Karl M. Hegbloom  <>
+	* hide-copyleft.el (more-copylefts-to-hide): Added defcustom.
+1998-04-18  Hrvoje Niksic  <>
+	* profile.el (profile-results): When `internal-error-checking' is
+	non-nil, warn that the results are likely bogus.
 1998-03-26  Jens-Ulrik Petersen  <>
 	* find-func.el (find-function-read): Call `variable-at-point' for
 # This XEmacs package contains independent single file lisp packages
-VERSION = 1.11
+VERSION = 1.12
 MAINTAINER = XEmacs Development Team <>
 PACKAGE = xemacs-devel
   "An alist of pairs of regexps which delimit copyright notices to hide.
 The first one found is hidden, so order is significant.")
+(defgroup hide-copyleft nil
+  "Hide copyright prologs."
+  :group 'matching)
+(defcustom more-copylefts-to-hide nil
+  "Additional copylefts to hide.  See: `copylefts-to-hide'."
+  :group 'hide-copyleft
+  :set #'(lambda (var val)
+	   (prog1
+	       (setq-default var val)
+	     (setq copylefts-to-hide (append copylefts-to-hide
+					     val))))
+  :type '(repeat (cons (regexp :tag "Top line")
+		       (regexp :tag "Bottom line"))))
 (defun hide-copyleft-region (&optional arg)
       (princ "---------------------------------\n")
       (princ (format "%-*s    %-5d    %-6.2f\n" maxfunlen "Total" sum 100.0))
       (princ (format "\n\nOne tick = %g ms\n"
-		     (/ default-profiling-interval 1000.0)))))
+		     (/ default-profiling-interval 1000.0)))
+      (and (boundp 'internal-error-checking)
+	   internal-error-checking
+	   (princ "
+WARNING: Error checking is turned on in this XEmacs.  This might make
+         the measurements very unreliable.\n"))))
   (when (and (not stream)
     (goto-char (point-min))))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.