procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* face-remap.el (text-scale-increase, text-scale-decrease)

Browse source 
(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.
This commit is contained in:
Juanma Barranquero 2008-10-27 10:37:41 +00:00
parent bee6058c44
commit 16c1ddc2d5
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -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.

6
lisp/face-remap.el
View file

@ -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