Mercurial > emacs

comparison lisp/calc/calc-embed.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 b98604865ea0
children 606f2d163a64 c6152337e4ad
comparison
equal deleted inserted replaced
87566:0c4a74c24677 87567:4c3c683cdff8
1 ;;; calc-embed.el --- embed Calc in a buffer 1 ;;; calc-embed.el --- embed Calc in a buffer
2 2
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 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: David Gillespie <daveg@synaptics.com> 6 ;; Author: David Gillespie <daveg@synaptics.com>
7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> 7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
252 (setq minor-mode-overriding-map-alist 252 (setq minor-mode-overriding-map-alist
253 (remq calc-override-minor-modes minor-mode-overriding-map-alist)) 253 (remq calc-override-minor-modes minor-mode-overriding-map-alist))
254 (set-buffer-modified-p (buffer-modified-p)) 254 (set-buffer-modified-p (buffer-modified-p))
255 (calc-embedded-restore-original-modes) 255 (calc-embedded-restore-original-modes)
256 (or calc-embedded-quiet 256 (or calc-embedded-quiet
257 (message "Back to %s mode" mode-name)))) 257 (message "Back to %s mode" (format-mode-line mode-name)))))
258 258
259 (t 259 (t
260 (if (buffer-name (aref calc-embedded-info 0)) 260 (if (buffer-name (aref calc-embedded-info 0))
261 (save-excursion 261 (save-excursion
262 (set-buffer (aref calc-embedded-info 0)) 262 (set-buffer (aref calc-embedded-info 0))
1372 (setq bp (if buf nil (cdr bp)))) 1372 (setq bp (if buf nil (cdr bp))))
1373 (or first calc-embedded-quiet (message ""))))) 1373 (or first calc-embedded-quiet (message "")))))
1374 1374
1375 (provide 'calc-embed) 1375 (provide 'calc-embed)
1376 1376
1377 ;;; arch-tag: 1b8f311e-fba1-40d3-b8c3-1d6f68fd26fc 1377 ;; arch-tag: 1b8f311e-fba1-40d3-b8c3-1d6f68fd26fc
1378 ;;; calc-embed.el ends here 1378 ;;; calc-embed.el ends here