mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 06:20:55 -08:00
c723760f28
1895ba3ba3; Document %i format85db0ac0d6; * doc/lispref/nonascii.texi (Explicit Encoding): Fix a ...c119a3600e; * doc/lispref/tips.texi (Documentation Tips): Document ... Also fix trailing whitespace in test files.
18 lines
374 B
EmacsLisp
18 lines
374 B
EmacsLisp
;; -*- lexical-binding:t -*-
|
|
(eval-and-compile
|
|
(defmacro increase ()
|
|
`(let ((foo ,(point-max)))
|
|
(cond
|
|
((consp foo)
|
|
(message "consp %s" foo)
|
|
foo)
|
|
((numberp foo)
|
|
(1+ fooo)) ; Note the misspelling.
|
|
(t (message "Something else: %s" foo))))))
|
|
|
|
(defun call-increase (bar)
|
|
(cond
|
|
((not (or (consp bar)
|
|
(numberp bar)))
|
|
bar)
|
|
(t (increase))))
|