unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* Re: MPUZ.el trouble  : sort of a bug.
       [not found]         ` <3awuunm605.fsf@lune.onlab.ntt.co.jp>
@ 2002-05-02 19:51           ` Daniel Pfeiffer
  0 siblings, 0 replies; only message in thread
From: Daniel Pfeiffer @ 2002-05-02 19:51 UTC (permalink / raw)


kawabata@exa.onlab.ntt.co.jp (KAWABATA, Taichi) skribis:
> I forgot to mention one thing.
> 
> > But the major difference with these program from mpuz is that they do
> > not invoke toggle-read-only to make the buffer read-only.
> 
> DOCSTRING of toggle-read-only says :
> 
>     toggle-read-only is an interactive compiled Lisp function in
>     `files'.(toggle-read-only &optional ARG)
>     
>     Change whether this buffer is visiting its file read-only.
>     With arg, set read-only iff arg is positive.
>     If visiting file read-only and `view-read-only' is non-nil, enter
>     view mode.
> 
> I think this function is inappropriate to use in mpuz.el.

Ah, ok, you seem to be right after all!  I didn't invent that, it was already in the old mpuz.  Anyway, here's a little patch to achieve the same effect harmlessly:

--- play/mpuz.el~	Tue Mar  5 11:02:57 2002
+++ play/mpuz.el	Thu May  2 21:44:56 2002
@@ -368,7 +368,7 @@
   (let ((buf (mpuz-get-buffer)))
     (or buf (setq buf (mpuz-create-buffer)))
     (switch-to-buffer buf)
-    (or buffer-read-only (toggle-read-only))
+    (setq buffer-read-only t)
     (mpuz-mode)))

best regards
Daniel

-- 
 -- NEW site: http://dapfy.bei.t-online.de/sawfish/
  -- KDE menu, smooth viewport scrolling, pager, window-snooper

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2002-05-02 19:51 UTC | newest]

Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
     [not found] <3almbkf7j1.fsf@lune.onlab.ntt.co.jp>
     [not found] ` <20020424231114.1eb52aa1.occitan@esperanto.org>
     [not found]   ` <3a8z74ydar.fsf@lune.onlab.ntt.co.jp>
     [not found]     ` <20020501153525.65a89d19.occitan@esperanto.org>
     [not found]       ` <3ag01bnkpd.fsf@lune.onlab.ntt.co.jp>
     [not found]         ` <3awuunm605.fsf@lune.onlab.ntt.co.jp>
2002-05-02 19:51           ` MPUZ.el trouble : sort of a bug Daniel Pfeiffer

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).