equal
deleted
inserted
replaced
851 |
851 |
852 (show-paren-mode 1) ; Parenthesis matching via highlighting. |
852 (show-paren-mode 1) ; Parenthesis matching via highlighting. |
853 (setq show-paren-style (quote parenthesis)) |
853 (setq show-paren-style (quote parenthesis)) |
854 |
854 |
855 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
855 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
856 (message "keyboard, mouse") |
856 (message "input method") |
857 |
857 |
858 (setq mouse-yank-at-point t) |
858 (setq mouse-yank-at-point t) |
859 |
859 |
860 ;; (pc-bindings-mode) ; I define own keybinding... |
860 ;; (pc-bindings-mode) ; I define own keybinding... |
861 |
861 |
881 ((eq arg 6) |
881 ((eq arg 6) |
882 (activate-input-method 'TeX)) ) |
882 (activate-input-method 'TeX)) ) |
883 (toggle-input-method arg)) ) |
883 (toggle-input-method arg)) ) |
884 |
884 |
885 (global-set-key (kbd "C-\\") 'my-toggle-input-method) |
885 (global-set-key (kbd "C-\\") 'my-toggle-input-method) |
|
886 |
|
887 ;; I found this more quick method to allow `forward-word' across pronunciation |
|
888 ;; as a whole word. |
|
889 (defconst my/ipa-chars (list ?ˈ ?ˌ ?ː ?ǁ ?ʲ ?θ ?ð ?ŋ ?ɡ ?ʒ ?ʃ ?ʧ ?ə ?ɜ ?ɛ ?ʌ ?ɒ ?ɔ ?ɑ ?æ ?ʊ ?ɪ)) |
|
890 (mapc (lambda (ch) |
|
891 (aset char-script-table ch 'latin) |
|
892 (modify-syntax-entry ch "w")) |
|
893 my/ipa-chars) |
|
894 ;; Another option is to invent new category: |
|
895 ;; |
|
896 ;; (defconst my/ipa-chars (list ?ˈ ?ˌ ?ː ?ǁ ?ʲ ?θ ?ð ?ŋ ?ɡ ?ʒ ?ʃ ?ʧ ?ə ?ɜ ?ɛ ?ʌ ?ɒ ?ɔ ?ɑ ?æ ?ʊ ?ɪ)) |
|
897 ;; (define-category ?p "Phonetic") |
|
898 ;; (mapc (lambda (ch) |
|
899 ;; (cond |
|
900 ;; ((eq (aref char-script-table ch) 'phonetic) |
|
901 ;; (modify-category-entry ch ?p) |
|
902 ;; (modify-category-entry ch ?l nil t)) |
|
903 ;; ((eq (aref char-script-table ch) 'latin) ; (aref char-script-table ?ˌ) is 'latin but (char-category-set ?ˌ) is ".j" |
|
904 ;; (modify-category-entry ch ?l)))) |
|
905 ;; my/ipa-chars) |
|
906 ;; (add-to-list 'word-combining-categories '(?p . ?l)) |
|
907 ;; (add-to-list 'word-combining-categories '(?l . ?p)) |
886 |
908 |
887 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
909 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
888 (message "mouse") |
910 (message "mouse") |
889 |
911 |
890 ;; Scroll Bar gets dragged by mouse butn 1 |
912 ;; Scroll Bar gets dragged by mouse butn 1 |