[2257] in Athena Bugs
emacs bug
daemon@ATHENA.MIT.EDU (mar@ATHENA.MIT.EDU)
Fri May 19 15:25:00 1989
From: <mar@ATHENA.MIT.EDU>
Date: Fri, 19 May 89 15:24:40 EDT
To: bugs@ATHENA.MIT.EDU
This is in "GNU Emacs 18.50.51G of Thu Aug 4 1988 on paris
(berkeley-unix)" on a VS2 running 6.2A, but has been seen in many
versions and even reported once about a year ago.
I read foo.mss into an emacs buffer, then saved it out under a
different name in a different directory, and proceeded to edit it.
When I was done, I saved the buffer with ^X-^S (again to the new
file), then typed ^X-^E to scribe the current buffer. But it scribed
the file I originally read in, not the one that I edited and saved.
Since the last time I reported this, nothing happened, now I will
provide diffs to fix the problem.
-Mark
*** scribe.el Fri May 19 15:18:39 1989
--- scribe.new.el Fri May 19 15:20:50 1989
***************
*** 84,90 ****
(define-key scribe-mode-map "\^c]" 'scribe-end)
(define-key scribe-mode-map "\^ci" 'scribe-italicize-word)
(define-key scribe-mode-map "\^cb" 'scribe-bold-word)
! (define-key scribe-mode-map "\^cu" 'scribe-underline-word))
(defun scribe-mode ()
"Major mode for editing files of Scribe (a text formatter) source.
--- 84,91 ----
(define-key scribe-mode-map "\^c]" 'scribe-end)
(define-key scribe-mode-map "\^ci" 'scribe-italicize-word)
(define-key scribe-mode-map "\^cb" 'scribe-bold-word)
! (define-key scribe-mode-map "\^cu" 'scribe-underline-word)
! (define-key scribe-mode-map "\^x\^e" 'scribe))
(defun scribe-mode ()
"Major mode for editing files of Scribe (a text formatter) source.
***************
*** 141,146 ****
--- 142,148 ----
(defun scribe ()
"Run Scribe on the current buffer."
(interactive)
+ (setq compile-command (concat "scribe " (buffer-file-name)))
(call-interactively 'compile))
(defun scribe-envelop-word (string count)
