Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-composite.el @ 5490:8861440b1aa4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove all autoload cookies from dumped files, they're needless and confusing. lisp/ChangeLog addition: 2011-05-01 Aidan Kehoe <kehoea@parhasard.net> * buff-menu.el (list-buffers-directory): * buff-menu.el (default-list-buffers-identification): * cus-file.el (custom-file-base): * cus-file.el (custom-file): * cus-file.el (make-custom-file-name): * menubar.el (menu-split-long-menu): * newcomment.el: * newcomment.el (indent-for-comment): * newcomment.el (comment-column): * newcomment.el (comment-start): * newcomment.el (comment-start-skip): * newcomment.el (comment-end-skip): * newcomment.el (comment-end): * newcomment.el (comment-indent-function): * newcomment.el (comment-style): * newcomment.el (comment-padding): * newcomment.el (comment-multi-line): * newcomment.el (comment-normalize-vars): * newcomment.el (comment-indent): * newcomment.el (comment-set-column): * newcomment.el (comment-kill): * newcomment.el (uncomment-region): * newcomment.el (comment-region): * newcomment.el (comment-or-uncomment-region): * newcomment.el (comment-dwim): * newcomment.el (comment-indent-new-line): * x-win-sun.el (x-win-init-sun): * x-win-xfree86.el (x-win-init-xfree86): * mule/mule-composite.el: * mule/mule-composite.el (reference-point-alist): * mule/mule-composite.el (compose-region): * mule/mule-composite.el (decompose-region): * mule/mule-composite.el (compose-string): * mule/mule-composite.el (decompose-string): * mule/mule-composite.el (compose-chars): * mule/mule-composite.el (find-composition): * mule/mule-composite.el (compose-chars-after): * mule/mule-composite.el (compose-last-chars): * mule/mule-composite.el (decompose-composite-char): Remove all autoload cookies from dumped files, they're needless and confusing.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 01 May 2011 17:43:14 +0100
parents 308d34e9f07d
children
comparison
equal deleted inserted replaced
5489:159face738c3 5490:8861440b1aa4
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;;; Code: 27 ;;; Code:
28 28
29 ;;;###autoload
30 (defconst reference-point-alist 29 (defconst reference-point-alist
31 '((tl . 0) (tc . 1) (tr . 2) 30 '((tl . 0) (tc . 1) (tr . 2)
32 (Bl . 3) (Bc . 4) (Br . 5) 31 (Bl . 3) (Bc . 4) (Br . 5)
33 (bl . 6) (bc . 7) (br . 8) 32 (bl . 6) (bc . 7) (br . 8)
34 (cl . 9) (cc . 10) (cr . 11) 33 (cl . 9) (cc . 10) (cr . 11)
153 (aset components i 152 (aset components i
154 (decode-composition-rule (aref components i))) 153 (decode-composition-rule (aref components i)))
155 (setq i (+ i 2)))) 154 (setq i (+ i 2))))
156 components) 155 components)
157 156
158 ;;;###autoload
159 (defun compose-region (start end &optional components modification-func) 157 (defun compose-region (start end &optional components modification-func)
160 "UNIMPLEMENTED. 158 "UNIMPLEMENTED.
161 Compose characters in the current region. 159 Compose characters in the current region.
162 160
163 When called from a program, expects these four arguments. 161 When called from a program, expects these four arguments.
191 (if (or (vectorp components) (listp components)) 189 (if (or (vectorp components) (listp components))
192 (setq components (encode-composition-components components))) 190 (setq components (encode-composition-components components)))
193 (compose-region-internal start end components modification-func) 191 (compose-region-internal start end components modification-func)
194 (set-buffer-modified-p modified-p))) 192 (set-buffer-modified-p modified-p)))
195 193
196 ;;;###autoload
197 (defun decompose-region (start end) 194 (defun decompose-region (start end)
198 "UNIMPLEMENTED. 195 "UNIMPLEMENTED.
199 Decompose text in the current region. 196 Decompose text in the current region.
200 197
201 When called from a program, expects two arguments, 198 When called from a program, expects two arguments,
204 (let ((modified-p (buffer-modified-p)) 201 (let ((modified-p (buffer-modified-p))
205 (buffer-read-only nil)) 202 (buffer-read-only nil))
206 (remove-text-properties start end '(composition nil)) 203 (remove-text-properties start end '(composition nil))
207 (set-buffer-modified-p modified-p))) 204 (set-buffer-modified-p modified-p)))
208 205
209 ;;;###autoload
210 (defun compose-string (string &optional start end components modification-func) 206 (defun compose-string (string &optional start end components modification-func)
211 "UNIMPLEMENTED. 207 "UNIMPLEMENTED.
212 Compose characters in string STRING. 208 Compose characters in string STRING.
213 209
214 The return value is STRING where `composition' property is put on all 210 The return value is STRING where `composition' property is put on all
230 (or start (setq start 0)) 226 (or start (setq start 0))
231 (or end (setq end (length string))) 227 (or end (setq end (length string)))
232 (compose-string-internal string start end components modification-func) 228 (compose-string-internal string start end components modification-func)
233 string) 229 string)
234 230
235 ;;;###autoload
236 (defun decompose-string (string) 231 (defun decompose-string (string)
237 "UNIMPLEMENTED. 232 "UNIMPLEMENTED.
238 Return STRING where `composition' property is removed." 233 Return STRING where `composition' property is removed."
239 (remove-text-properties 0 (length string) '(composition nil) string) 234 (remove-text-properties 0 (length string) '(composition nil) string)
240 string) 235 string)
241 236
242 ;;;###autoload
243 (defun compose-chars (&rest args) 237 (defun compose-chars (&rest args)
244 "UNIMPLEMENTED. 238 "UNIMPLEMENTED.
245 Return a string from arguments in which all characters are composed. 239 Return a string from arguments in which all characters are composed.
246 For relative composition, arguments are characters. 240 For relative composition, arguments are characters.
247 For rule-based composition, Mth \(where M is odd) arguments are 241 For rule-based composition, Mth \(where M is odd) arguments are
262 components args)) 256 components args))
263 ;; Relative composition. 257 ;; Relative composition.
264 (setq str (concat args))) 258 (setq str (concat args)))
265 (compose-string-internal str 0 (length str) components))) 259 (compose-string-internal str 0 (length str) components)))
266 260
267 ;;;###autoload
268 (defun find-composition (pos &optional limit string detail-p) 261 (defun find-composition (pos &optional limit string detail-p)
269 "UNIMPLEMENTED. 262 "UNIMPLEMENTED.
270 Return information about a composition at or nearest to buffer position POS. 263 Return information about a composition at or nearest to buffer position POS.
271 264
272 If the character at POS has `composition' property, the value is a list 265 If the character at POS has `composition' property, the value is a list
303 ;; This is a valid rule-base composition. 296 ;; This is a valid rule-base composition.
304 (decode-composition-components (nth 2 result) 'nocopy)) 297 (decode-composition-components (nth 2 result) 'nocopy))
305 result)) 298 result))
306 299
307 300
308 ;;;###autoload
309 (defun compose-chars-after (pos &optional limit object) 301 (defun compose-chars-after (pos &optional limit object)
310 "UNIMPLEMENTED. 302 "UNIMPLEMENTED.
311 Compose characters in current buffer after position POS. 303 Compose characters in current buffer after position POS.
312 304
313 It looks up the char-table `composition-function-table' (which see) by 305 It looks up the char-table `composition-function-table' (which see) by
345 (looking-at pattern)) 337 (looking-at pattern))
346 (setq result (funcall func pos (match-end 0) pattern nil)) 338 (setq result (funcall func pos (match-end 0) pattern nil))
347 (setq func nil tail (cdr tail))))))) 339 (setq func nil tail (cdr tail)))))))
348 result)) 340 result))
349 341
350 ;;;###autoload
351 (defun compose-last-chars (args) 342 (defun compose-last-chars (args)
352 "UNIMPLEMENTED. 343 "UNIMPLEMENTED.
353 Compose last characters. 344 Compose last characters.
354 The argument is a parameterized event of the form 345 The argument is a parameterized event of the form
355 \(compose-last-chars N COMPONENTS), 346 \(compose-last-chars N COMPONENTS),
367 (>= (- (point) (point-min)) chars)) 358 (>= (- (point) (point-min)) chars))
368 (if (nth 2 args) 359 (if (nth 2 args)
369 (compose-region (- (point) chars) (point) (nth 2 args)) 360 (compose-region (- (point) chars) (point) (nth 2 args))
370 (compose-chars-after (- (point) chars) (point)))))) 361 (compose-chars-after (- (point) chars) (point))))))
371 362
372 ;;;###autoload(global-set-key [compose-last-chars] 'compose-last-chars) 363 ;;;don't ###autoload(global-set-key [compose-last-chars] 'compose-last-chars)
373 364
374 365
375 ;;; The following codes are only for backward compatibility with Emacs 366 ;;; The following codes are only for backward compatibility with Emacs
376 ;;; 20.4 and the earlier. 367 ;;; 20.4 and the earlier.
377 368
378 ;;;###autoload
379 (defun decompose-composite-char (char &optional type with-composition-rule) 369 (defun decompose-composite-char (char &optional type with-composition-rule)
380 "UNIMPLEMENTED. 370 "UNIMPLEMENTED.
381 Convert CHAR to string. 371 Convert CHAR to string.
382 This is only for backward compatibility with Emacs 20.4 and the earlier. 372 This is only for backward compatibility with Emacs 20.4 and the earlier.
383 373