🚀 go-pugleaf

Here are 5 patches to elisp files, emacs-18.55.


Bugs:

1. (prog2 ...) is indented wrongly.

2. texinfo-format-buffer fails to discover duplicate node names.

3. c-indent-line refuses to put case/label statements at the first
   column.  (I have c-label-offset = -4, c-indent-level = 4.)

Suggestions:

4. Adding a hook to rmail, allowing people to modify the headers from
   rmail-reply.  Please?  (I want the "Re: " in front of Subject).

5. I think Emacs should turn auto-saving on only when the auto-save
   file is writeable (unless the user insists).


Hallvard Furuseth
hallvard@ifi.uio.no


*** lisp-mode.el~	Sat Apr  9 09:20:12 1988
--- lisp-mode.el	Thu Jan 25 11:00:15 1990
***************
*** 463,466 ****
--- 463,467 ----
  (put 'progn 'lisp-indent-hook 0)
  (put 'prog1 'lisp-indent-hook 1)
+ (put 'prog2 'lisp-indent-hook 2)
  (put 'save-excursion 'lisp-indent-hook 0)
  (put 'save-window-excursion 'lisp-indent-hook 0)


*** lisp/texinfmt.el~	Fri May 26 10:57:59 1989
--- lisp/texinfmt.el	Fri Jun 16 06:52:52 1989
***************
*** 414,418 ****
        (if (assoc tem texinfo-node-names)
  	  (error "Duplicate node name: %s" name)
! 	(setq texinfo-node-names (cons tem texinfo-node-names))))
      (or (bolp)
  	(insert ?\n))
--- 414,418 ----
        (if (assoc tem texinfo-node-names)
  	  (error "Duplicate node name: %s" name)
! 	(setq texinfo-node-names (cons (list tem) texinfo-node-names))))
      (or (bolp)
  	(insert ?\n))


*** c-mode.el~	Fri Jun 16 06:22:52 1989
--- c-mode.el	Thu Jan 25 08:41:20 1990
***************
*** 314,318 ****
  			     (forward-sexp 1)
  			     (looking-at ":"))))
! 		  (setq indent (max 1 (+ indent c-label-offset))))
  		 ((and (looking-at "else\\b")
  		       (not (looking-at "else\\s_")))
--- 314,318 ----
  			     (forward-sexp 1)
  			     (looking-at ":"))))
! 		  (setq indent (max 0 (+ indent c-label-offset))))
  		 ((and (looking-at "else\\b")
  		       (not (looking-at "else\\s_")))


*** rmail.el~	Wed Aug 23 12:40:33 1989
--- rmail.el	Thu Jan 25 08:55:01 1990
***************
*** 1212,1215 ****
--- 1212,1216 ----
  	 (string-match "\\`Re: " subject)
  	 (setq subject (substring subject 4)))
+     (run-hooks 'rmail-reply-hook)
      (mail-other-window nil
        (mail-strip-quoted-names reply-to)


*** files.el~	Wed Aug 23 12:40:26 1989
--- files.el	Thu Jan 25 11:20:07 1990
***************
*** 888,893 ****
  (defun auto-save-mode (arg)
    "Toggle auto-saving of contents of current buffer.
! With arg, turn auto-saving on if arg is positive, else off."
    (interactive "P")
    (setq buffer-auto-save-file-name
          (and (if (null arg)
--- 888,895 ----
  (defun auto-save-mode (arg)
    "Toggle auto-saving of contents of current buffer.
! With integer arg, turn auto-saving on if arg is positive, else off.
! If arg = t, turn auto-saving on if auto-save file is writeable."
    (interactive "P")
+   (if
    (setq buffer-auto-save-file-name
          (and (if (null arg)
***************
*** 898,901 ****
--- 900,906 ----
  		 buffer-file-name
  	       (make-auto-save-file-name))))
+       (or (integerp arg) (consp arg)
+ 	  (file-writable-p buffer-auto-save-file-name)
+ 	  (setq buffer-auto-save-file-name nil)))  
    (if (interactive-p)
        (message "Auto-save %s (in this buffer)"