diff lisp/progmodes/hideshow.el @ 87567:4c3c683cdff8

* 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 b5dbe2a97229
children 606f2d163a64 3952f2dc0abc
line wrap: on
line diff
--- a/lisp/progmodes/hideshow.el	Fri Jan 04 06:18:31 2008 +0000
+++ b/lisp/progmodes/hideshow.el	Fri Jan 04 06:29:12 2008 +0000
@@ -1,7 +1,7 @@
 ;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
-;;               2004, 2005, 2006, 2007  Free Software Foundation, Inc.
+;;               2004, 2005, 2006, 2007, 2008  Free Software Foundation, Inc.
 
 ;; Author: Thien-Thi Nguyen <ttn@gnu.org>
 ;;      Dan Nicolaescu <dann@ics.uci.edu>
@@ -632,7 +632,8 @@
               hs-forward-sexp-func (or (nth 4 lookup) 'forward-sexp)
               hs-adjust-block-beginning (nth 5 lookup)))
     (setq hs-minor-mode nil)
-    (error "%s Mode doesn't support Hideshow Minor Mode" mode-name)))
+    (error "%s Mode doesn't support Hideshow Minor Mode"
+           (format-mode-line mode-name))))
 
 (defun hs-find-block-beginning ()
   "Reposition point at block-start.
@@ -965,5 +966,5 @@
 
 (provide 'hideshow)
 
-;;; arch-tag: 378b6852-e82a-466a-aee8-d9c73859a65e
+;; arch-tag: 378b6852-e82a-466a-aee8-d9c73859a65e
 ;;; hideshow.el ends here