From ce4375f57f9b89d68fb639590f3e4a0a28e3a627 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 9 Nov 2019 17:12:56 +0100 Subject: [PATCH] two doc nits --- lisp/emacs-lisp/comp.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index dabf6cf99ab..cb001bc884c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -39,7 +39,7 @@ :group 'lisp) (defcustom comp-verbose 0 - "Compiler verbosity. From 0 to 3. + "Compiler verbosity. From 0 to 3. - 0 no logging - 1 final limple is logged - 2 LAP and final limple and some pass info are logged @@ -48,7 +48,7 @@ :group 'comp) (defconst native-compile-log-buffer "*Native-compile-Log*" - "Name of the native-compiler's log buffer.") + "Name of the native-compiler log buffer.") (defvar comp-native-compiling nil "This gets bound to t while native compilation. @@ -301,7 +301,7 @@ BODY is evaluate only if `comp-verbose' is > 0." ,@body)))) (defun comp-log (data verbosity) - "Log DATA." + "Log DATA given VERBOSITY." (when (>= comp-verbose verbosity) (if noninteractive (if (atom data) @@ -650,7 +650,6 @@ Return value is the fall through block name." (handler-bb (comp-bb-maybe-add (comp-label-to-addr label-num) (1+ (comp-sp)))) (handler-buff-n (comp-func-handler-cnt comp-func))) - (comp-emit (list 'push-handler handler-type (comp-slot+1) -- 2.39.5