Mercurial > emacs
changeset 99163:60acf25bcfb5
* 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.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 27 Oct 2008 10:37:41 +0000 |
| parents | bccadf804d55 |
| children | 683eaeb4c921 |
| files | lisp/ChangeLog lisp/face-remap.el |
| diffstat | 2 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Oct 27 10:28:00 2008 +0000 +++ b/lisp/ChangeLog Mon Oct 27 10:37:41 2008 +0000 @@ -1,3 +1,10 @@ +2008-10-27 Juanma Barranquero <lekktu@gmail.com> + + * 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 <dann@ics.uci.edu> * 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.
--- a/lisp/face-remap.el Mon Oct 27 10:28:00 2008 +0000 +++ b/lisp/face-remap.el Mon Oct 27 10:37:41 2008 +0000 @@ -229,7 +229,7 @@ (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 @@ (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 @@ ;;;###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