hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 01:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename: ein:@notification -> ein:%notification%

Browse source 
%s/\_<ein:@\(notification\)\_>/ein:%\1%/g

Define obsolete alias, to make test pass.
This commit is contained in:
Takafumi Arakaki 2012-08-18 22:50:06 +02:00
parent 71ec80da82
commit 5bbb240eef
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ein-notification.el
View file

@ -34,8 +34,9 @@
;; Class and variable ;; Class and variable
(ein:deflocal ein:@notification nil (ein:deflocal ein:%notification% nil
"Buffer local variable to hold an instance of `ein:notification'.") "Buffer local variable to hold an instance of `ein:notification'.")
(define-obsolete-variable-alias 'ein:@notification 'ein:%notification% "0.1.2")
(defvar ein:header-line-format '(:eval (ein:header-line))) (defvar ein:header-line-format '(:eval (ein:header-line)))
;; Note: can't put this below of `ein:notification-setup'... ;; Note: can't put this below of `ein:notification-setup'...
@ -122,10 +123,10 @@ where NS is `:kernel' or `:notebook' slot of NOTIFICATION."
This function saves the new notification widget instance in the This function saves the new notification widget instance in the
local variable of the BUFFER" local variable of the BUFFER"
(with-current-buffer buffer (with-current-buffer buffer
(setq ein:@notification (setq ein:%notification%
(ein:notification "NotificationWidget" :buffer buffer)) (ein:notification "NotificationWidget" :buffer buffer))
(setq header-line-format ein:header-line-format) (setq header-line-format ein:header-line-format)
ein:@notification)) ein:%notification%))
;;; Header line ;;; Header line
@ -137,8 +138,8 @@ local variable of the BUFFER"
" | " " | "
(ein:filter (ein:filter
'identity 'identity
(list (oref (oref ein:@notification :notebook) :message) (list (oref (oref ein:%notification% :notebook) :message)
(oref (oref ein:@notification :kernel) :message)))))) (oref (oref ein:%notification% :kernel) :message))))))
(defun ein:header-line-setup-maybe () (defun ein:header-line-setup-maybe ()
"Setup `header-line-format' for mumamo. "Setup `header-line-format' for mumamo.