Mercurial > hg > xemacs-beta

comparison lisp/egg/egg.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents 34a5b81f86ba
children 585fb297b004
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
2722 (fence-cancel-input)))) 2722 (fence-cancel-input))))
2723 2723
2724 (if (boundp 'mouse-track-cleanup-hook) 2724 (if (boundp 'mouse-track-cleanup-hook)
2725 (add-hook 'mouse-track-cleanup-hook 'fence-mouse-protect)) 2725 (add-hook 'mouse-track-cleanup-hook 'fence-mouse-protect))
2726 2726
2727 (defun egg-lang-switch-callback ()
2728 "Do whatever processing is necessary when the language-environment changes."
2729 (if egg:*in-fence-mode*
2730 (progn
2731 (its:reset-input)
2732 (fence-cancel-input)))
2733 (let ((func (get current-language-environment 'set-egg-environ)))
2734 (if (not (null func))
2735 (funcall func))))
2736
2727 (defun fence-mode-help-command () 2737 (defun fence-mode-help-command ()
2728 "Display documentation for fence-mode." 2738 "Display documentation for fence-mode."
2729 (interactive) 2739 (interactive)
2730 (let ((buf "*Help*")) 2740 (let ((buf "*Help*"))
2731 (if (eq (get-buffer buf) (current-buffer)) 2741 (if (eq (get-buffer buf) (current-buffer))
2832 ((consp code) (eval code)) 2842 ((consp code) (eval code))
2833 ))) 2843 )))
2834 2844
2835 (define-key global-map "\C-^" 'special-symbol-input) 2845 (define-key global-map "\C-^" 'special-symbol-input)
2836 2846
2837 (autoload 'busyu-input "busyu" nil t) ;92.10.18 by K.Handa 2847 (autoload 'busyu-input "egg-busyu" nil t)
2838 (autoload 'kakusuu-input "busyu" nil t) ;92.10.18 by K.Handa 2848 (autoload 'kakusuu-input "egg-busyu" nil t)
2839 2849
2840 (provide 'egg) 2850 (provide 'egg)
2841 2851
2852 ;; if set-lang-environment has already been called, call egg-lang-switch-callback
2853 (if (not (null current-language-environment))
2854 (egg-lang-switch-callback))
2855
2842 ;;; egg.el ends here 2856 ;;; egg.el ends here