Mercurial > hg > xemacs-beta
diff lisp/modes/text-mode.el @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:35 +0200 |
parents | 376386a54a3c |
children |
line wrap: on
line diff
--- a/lisp/modes/text-mode.el Mon Aug 13 08:45:53 2007 +0200 +++ b/lisp/modes/text-mode.el Mon Aug 13 08:46:35 2007 +0200 @@ -18,9 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the Free -;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. -;;; Synched up with: FSF 19.30. +;;; Synched up with: FSF 19.34. ;;; Commentary: @@ -51,7 +52,9 @@ (if text-mode-map () (setq text-mode-map (make-sparse-keymap)) + ;; XEmacs change (set-keymap-name text-mode-map 'text-mode-map) + (define-key text-mode-map "\e\t" 'ispell-complete-word) (define-key text-mode-map "\t" 'tab-to-tab-stop) (define-key text-mode-map "\es" 'center-line) (define-key text-mode-map "\eS" 'center-paragraph)) @@ -65,7 +68,8 @@ (defun text-mode () "Major mode for editing text intended for humans to read. -Special commands:\\{text-mode-map} +Special commands: +\\{text-mode-map} Turning on Text mode calls the value of the variable `text-mode-hook', if that value is non-nil." (interactive) @@ -85,6 +89,7 @@ () ;; Make different definition for TAB before the one in text-mode-map, but ;; share the rest. + ;; XEmacs change (setq indented-text-mode-map (make-sparse-keymap)) (set-keymap-name indented-text-mode-map 'indented-text-mode-map) (set-keymap-parents indented-text-mode-map (list text-mode-map))