From 16c1ddc2d581c920316b7886179a07850ecaf798 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 27 Oct 2008 10:37:41 +0000 Subject: [PATCH] * face-remap.el (text-scale-increase, text-scale-decrease) (text-scale-adjust): Remove &optional keyword from the arg list; the INC argument is not really optional, if the functions happen to be called from elisp. --- lisp/ChangeLog | 9 ++++++++- lisp/face-remap.el | 6 +++--- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a1a04113dd8..509583328cd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-10-27 Juanma Barranquero + + * face-remap.el (text-scale-increase, text-scale-decrease) + (text-scale-adjust): Remove &optional keyword from the arg list; + the INC argument is not really optional, if the functions happen + to be called from elisp. + 2008-10-27 Dan Nicolaescu * vc.el: Rename VC methods that were missed when vc-status was @@ -11,7 +18,7 @@ * vc-dir.el (vc-dir-mode): Use vc-dir-printer instead of vc-dir-status-printer. (vc-dir-headers): Use `dir-extra-headers' instead of - `status-extra-headers' + `status-extra-headers'. (vc-dir-printer): Rename from vc-dir-status-printer. (vc-default-dir-extra-headers): Rename from vc-default-status-extra-headers. diff --git a/lisp/face-remap.el b/lisp/face-remap.el index 32bba13d00d..f87a86c70a0 100644 --- a/lisp/face-remap.el +++ b/lisp/face-remap.el @@ -229,7 +229,7 @@ be used to interactively modify the variable (force-window-update (current-buffer))) ;;;###autoload -(defun text-scale-increase (&optional inc) +(defun text-scale-increase (inc) "Increase the height of the default face in the current buffer by INC steps. If the new height is other than the default, `text-scale-mode' is enabled. @@ -243,7 +243,7 @@ will remove any scaling currently active." (text-scale-mode (if (zerop text-scale-mode-amount) -1 1))) ;;;###autoload -(defun text-scale-decrease (&optional dec) +(defun text-scale-decrease (dec) "Decrease the height of the default face in the current buffer by DEC steps. See `text-scale-increase' for more details." (interactive "p") @@ -254,7 +254,7 @@ See `text-scale-increase' for more details." ;;;###autoload (define-key ctl-x-map [(control ?=)] 'text-scale-adjust) ;;;###autoload (define-key ctl-x-map [(control ?0)] 'text-scale-adjust) ;;;###autoload -(defun text-scale-adjust (&optional inc) +(defun text-scale-adjust (inc) "Increase or decrease the height of the default face in the current buffer. The actual adjustment made depends on the final component of the -- 2.39.2