Mercurial > emacs
view lispref/two.el @ 60364:de784812b4d4
[TARGET_API_MAC_CARBON && !MAC_OSX]: Define USE_CARBON_EVENTS to 1.
[__MRC__ && TARGET_API_MAC_CARBON]: Don't declare `qd'.
(x_free_frame_resources): Call remove_window_handler for non-tooltip
windows.
[TARGET_API_MAC_CARBON]: Don't include headers that are included via
Carbon.h.
[TARGET_API_MAC_CARBON] (mac_do_track_dragUPP)
(mac_do_receive_dragUPP): New variables.
(mac_handle_service_event, init_service_handler): Put declarations and
definitions in #ifdef MAC_OSX.
(install_window_handler) [TARGET_API_MAC_CARBON]: Create UPPs for
drag-and-drop handler functions and register them.
(remove_window_handler): New function.
(do_ae_open_documents, mac_do_receive_drag) [!MAC_OSX]: Use
fsspec_to_posix_pathname.
(main): Change #if !TARGET_API_MAC_CARBON to #ifdef MAC_OS8.
(XTread_socket) [!MAC_OSX]: Don't pass keyboard events to TSM.
[MAC_OS8] (make_mac_terminal_frame) [TARGET_API_MAC_CARBON]: Set
default cursors.
(mac_initialize) [USE_CARBON_EVENTS && !MAC_OSX] : Don't call
init_service_handler or init_quit_char_handler.
(mac_initialize) [!MAC_OSX]: Don't call MakeMeTheFrontProcess.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Fri, 04 Mar 2005 11:11:16 +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