[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100372: * composite.el: Require cl w
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100372: * composite.el: Require cl when compiling; fix typos in docstrings. |
Date: |
Thu, 20 May 2010 03:27:49 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100372
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2010-05-20 03:27:49 +0200
message:
* composite.el: Require cl when compiling; fix typos in docstrings.
modified:
lisp/ChangeLog
lisp/composite.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-05-19 20:37:57 +0000
+++ b/lisp/ChangeLog 2010-05-20 01:27:49 +0000
@@ -1,3 +1,9 @@
+2010-05-20 Juanma Barranquero <address@hidden>
+
+ * composite.el: Require cl when compiling.
+ (reference-point-alist, compose-gstring-for-graphic)
+ (compose-gstring-for-terminal): Fix typos in docstrings.
+
2010-05-19 Juri Linkov <address@hidden>
* emacs-lisp/cl-macs.el (window-parameter): Add defsetf with
=== modified file 'lisp/composite.el'
--- a/lisp/composite.el 2010-05-19 01:09:50 +0000
+++ b/lisp/composite.el 2010-05-20 01:27:49 +0000
@@ -28,6 +28,8 @@
;;; Code:
+(eval-when-compile (require 'cl))
+
(defconst reference-point-alist
'((tl . 0) (tc . 1) (tr . 2)
(Bl . 3) (Bc . 4) (Br . 5)
@@ -77,7 +79,7 @@
+----+-----+ <--- new descent
A composition rule may have the form \(GLOBAL-REF-POINT
-NEW-REF-POINT XOFF YOFF), where XOFF and YOFF specifies how much
+NEW-REF-POINT XOFF YOFF), where XOFF and YOFF specify how much
to shift NEW-REF-POINT from GLOBAL-REF-POINT. In this case, XOFF
and YOFF are integers in the range -100..100 representing the
shifting percentage against the font size.")
@@ -537,7 +539,7 @@
each combining character is composed as a spacing character by
a padding space before and/or after the character.
-All non-spacing characters has this function in
+All non-spacing characters have this function in
`composition-function-table' unless overwritten."
(let* ((header (lgstring-header gstring))
(nchars (lgstring-char-len gstring))
@@ -669,7 +671,7 @@
Non-spacing characters are composed with the preceding base
character. If the preceding character is not a base character,
each non-spacing character is composed as a spacing character by
-a prepending a space before it."
+prepending a space before it."
(let* ((header (lgstring-header gstring))
(nchars (lgstring-char-len gstring))
(nglyphs (lgstring-glyph-len gstring))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100372: * composite.el: Require cl when compiling; fix typos in docstrings.,
Juanma Barranquero <=