Fix: ein:notebook is referenced

This commit is contained in:
Takafumi Arakaki 2012-08-19 04:34:47 +02:00
parent 3766cc1c1a
commit 26a6dfe6ff
3 changed files with 3 additions and 3 deletions

View file

@ -167,7 +167,7 @@ notebooks."
(interactive (list (completing-read "Notebook buffer to connect: " (interactive (list (completing-read "Notebook buffer to connect: "
(ein:notebook-opened-buffer-names)))) (ein:notebook-opened-buffer-names))))
(let ((notebook (let ((notebook
(buffer-local-value 'ein:notebook (get-buffer buffer-or-name)))) (buffer-local-value 'ein:%notebook% (get-buffer buffer-or-name))))
(ein:connect-buffer-to-notebook notebook))) (ein:connect-buffer-to-notebook notebook)))
(defun ein:connect-buffer-to-notebook (notebook &optional buffer (defun ein:connect-buffer-to-notebook (notebook &optional buffer

View file

@ -187,7 +187,7 @@ To suppress popup, you can pass a function `ein:do-nothing' as CALLBACK."
(defun ein:notebooklist-refresh-related () (defun ein:notebooklist-refresh-related ()
"Reload notebook list in which current notebook locates. "Reload notebook list in which current notebook locates.
This function is called via `ein:notebook-after-rename-hook'." This function is called via `ein:notebook-after-rename-hook'."
(ein:notebooklist-open (ein:$notebook-url-or-port ein:notebook) t)) (ein:notebooklist-open (ein:$notebook-url-or-port ein:%notebook%) t))
(add-hook 'ein:notebook-after-rename-hook 'ein:notebooklist-refresh-related) (add-hook 'ein:notebook-after-rename-hook 'ein:notebooklist-refresh-related)

View file

@ -146,7 +146,7 @@ local variable of the BUFFER"
As `header-line-format' is buffer local variable, it must be set As `header-line-format' is buffer local variable, it must be set
for each chunk when in for each chunk when in
See also `ein:ac-setup-maybe'." See also `ein:ac-setup-maybe'."
(and (ein:eval-if-bound 'ein:notebook) (and (ein:eval-if-bound 'ein:%notebook%)
(ein:eval-if-bound 'mumamo-multi-major-mode) (ein:eval-if-bound 'mumamo-multi-major-mode)
(setq header-line-format ein:header-line-format))) (setq header-line-format ein:header-line-format)))
(add-hook 'after-change-major-mode-hook 'ein:header-line-setup-maybe) (add-hook 'after-change-major-mode-hook 'ein:header-line-setup-maybe)