Mercurial > emacs
view lispref/two.el @ 63461:8aa0953a6870
(mac_compute_glyph_string_overhangs): Don't set
overhangs unless the given glyph type is noncomposite CHAR_GLYPH.
[USE_CARBON_EVENTS] (mac_convert_event_ref): Convert dead key down
events.
(XTread_socket): Don't pass keyboard events with the option
modifier to the system when Vmac_command_key_is_meta is nil or
Vmac_option_modifier is non-nil.
[USE_CARBON_EVENTS] (read_socket_inev): New variable.
[USE_CARBON_EVENTS] (init_command_handler): Fix argument.
[USE_CARBON_EVENTS] (mac_handle_mouse_event): New Carbon event
handler function.
(install_window_handler) [USE_CARBON_EVENTS]: Install it.
(XTread_socket) [USE_CARBON_EVENTS]: Move mouse wheel event
handler part to mac_handle_mouse_event.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Wed, 15 Jun 2005 02:29:29 +0000 |
parents | 695cf19ef79e |
children | 9f4849fee703 375f2633d815 |
line wrap: on
line source
;; Auxilary functions for preparing a two volume manual. ;; --rjc 30mar92 (defun volume-aux-markup (arg) "Append `vol. NUMBER' to page number. Apply to aux file that you save. Then insert marked file into other volume's .aux file." (interactive "sType volume number, 1 or 2: " ) (goto-char (point-min)) (while (search-forward "-pg" nil t) (end-of-line 1) (delete-backward-char 1 nil) (insert ", vol.'tie" arg "}"))) (defun volume-index-markup (arg) "Prepend `NUMBER:' to page number. Use Roman Numeral. Apply only to unsorted index file, Then insert marked file into other volume's unsorted index file. Then run texindex on that file and save." (interactive "sType volume number, roman number I or II: " ) (goto-char (point-min)) (while (search-forward "\\entry" nil t) (search-forward "}{" (save-excursion (end-of-line) (point)) nil) (insert arg ":"))) (defun volume-numbers-toc-markup (arg) (interactive "sType volume number, roman number I or II: " ) (goto-char (point-min)) (while (search-forward "chapentry" nil t) (end-of-line) (search-backward "{" nil t) (forward-char 1) (insert arg ":"))) (defun volume-header-toc-markup () "Insert Volume I and Volume II text into .toc file. NOTE: this auxilary function is file specific. This is for the *Elisp Ref Manual*" (interactive) (goto-char (point-min)) (insert "\\unnumbchapentry {Volume 1}{}\n\\unnumbchapentry {}{}\n") (search-forward "\\unnumbchapentry {Index}") (forward-line 1) (insert "\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {Volume 2}{}\n\\unnumbchapentry {}{}\n")) ;;; In batch mode, you cannot call functions with args; hence this kludge: (defun volume-aux-markup-1 () (volume-aux-markup "1")) (defun volume-aux-markup-2 () (volume-aux-markup "2")) (defun volume-index-markup-I () (volume-index-markup "I")) (defun volume-index-markup-II () (volume-index-markup "II")) (defun volume-numbers-toc-markup-I () (volume-numbers-toc-markup "I")) (defun volume-numbers-toc-markup-II () (volume-numbers-toc-markup "II")) ;;; arch-tag: 848955fe-e9cf-45e7-a2f1-570ef156d6a5