Mercurial > emacs

comparison lisp/textmodes/sgml-mode.el @ 87567:4c3c683cdff8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* erc-ibuffer.el (erc-channel-modes): * bs.el (bs--sort-by-mode, bs--get-mode-name): * imenu.el (imenu-add-to-menubar): * makesum.el (make-command-summary): * mouse.el (mouse-major-mode-menu, mouse-popup-menubar, mouse-buffer-menu): * msb.el (msb--mode-menu-cond): * calc/calc-embed.el (calc-do-embedded): * emacs-lisp/helper.el (Helper-describe-mode): * mail/emacsbug.el (report-emacs-bug): * progmodes/hideshow.el (hs-grok-mode-type): * textmodes/sgml-mode.el (sgml-mode-facemenu-add-face-function): * textmodes/table.el (*table--cell-describe-mode): Pass mode-name through format-mode-line.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 04 Jan 2008 06:29:12 +0000
parents e5a68f18fcb9
children 9349c39d2ae0 606f2d163a64
comparison
equal deleted inserted replaced
87566:0c4a74c24677 87567:4c3c683cdff8
1 ;;; sgml-mode.el --- SGML- and HTML-editing modes -*- coding: iso-2022-7bit -*- 1 ;;; sgml-mode.el --- SGML- and HTML-editing modes -*- coding: iso-2022-7bit -*-
2 2
3 ;; Copyright (C) 1992, 1995, 1996, 1998, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1992, 1995, 1996, 1998, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: James Clark <jjc@jclark.com> 6 ;; Author: James Clark <jjc@jclark.com>
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Adapted-By: ESR, Daniel Pfeiffer <occitan@esperanto.org>, 8 ;; Adapted-By: ESR, Daniel Pfeiffer <occitan@esperanto.org>,
9 ;; F.Potorti@cnuce.cnr.it 9 ;; F.Potorti@cnuce.cnr.it
395 (if (setq face (cdr (assq face sgml-face-tag-alist))) 395 (if (setq face (cdr (assq face sgml-face-tag-alist)))
396 (progn 396 (progn
397 (setq face (funcall skeleton-transformation-function face)) 397 (setq face (funcall skeleton-transformation-function face))
398 (setq facemenu-end-add-face (concat "</" face ">")) 398 (setq facemenu-end-add-face (concat "</" face ">"))
399 (concat "<" face ">")) 399 (concat "<" face ">"))
400 (error "Face not configured for %s mode" mode-name))) 400 (error "Face not configured for %s mode" (format-mode-line mode-name))))
401 401
402 (defun sgml-fill-nobreak () 402 (defun sgml-fill-nobreak ()
403 ;; Don't break between a tag name and its first argument. 403 ;; Don't break between a tag name and its first argument.
404 (save-excursion 404 (save-excursion
405 (skip-chars-backward " \t") 405 (skip-chars-backward " \t")