diff options
Diffstat (limited to 'lisp/calc/calc-embed.el')
| -rw-r--r-- | lisp/calc/calc-embed.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 0da9be0d499..d0efe53f6e6 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -1,6 +1,6 @@ ;;; calc-embed.el --- embed Calc in a buffer -;; Copyright (C) 1990-1993, 2001-2013 Free Software Foundation, Inc. +;; Copyright (C) 1990-1993, 2001-2015 Free Software Foundation, Inc. ;; Author: David Gillespie <daveg@synaptics.com> ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> @@ -30,7 +30,8 @@ (require 'calc-macs) ;; Declare functions which are defined elsewhere. -(declare-function thing-at-point-looking-at "thingatpt" (regexp)) +(declare-function thing-at-point-looking-at "thingatpt" + (regexp &optional distance)) (defun calc-show-plain (n) @@ -329,10 +330,12 @@ (if calc-embedded-firsttime-formula (run-hooks 'calc-embedded-new-formula-hook)) (or (eq calc-embedded-quiet t) - (message "Embedded Calc mode enabled; %s to return to normal" - (if calc-embedded-quiet - "Type `C-x * x'" - "Give this command again"))))) + (message (concat + "Embedded Calc mode enabled; " + (if calc-embedded-quiet + "Type `C-x * x'" + "Give this command again") + " to return to normal"))))) (scroll-down 0)) ; fix a bug which occurs when truncate-lines is changed. |