[gnu.emacs.bug] Bugs in emacs-18.54/lisp/{texinfmt,c-mode}.el

hallvard@IFI.UIO.NO (Hallvard B Furuseth) (06/18/89)

2 small bugs & fixes:
texinfo-format-buffer fails to discover duplicate node names.
c-indent-line refuses to put case/label statements at the first column.

Patches:

*** lisp/texinfmt.el~	Fri May 26 10:57:59 1989
--- lisp/texinfmt.el	Fri Jun 16 06:52:52 1989
***************
*** 409,413 ****
  	 (prev (nth 2 args))
  	 (up (nth 3 args)))
-     (texinfo-discard-command)
      (setq texinfo-last-node name)
      (let ((tem (downcase name)))
--- 409,412 ----
***************
*** 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))
--- 413,418 ----
        (if (assoc tem texinfo-node-names)
  	  (error "Duplicate node name: %s" name)
! 	(setq texinfo-node-names (cons (list tem) texinfo-node-names))))
!     (texinfo-discard-command)
      (or (bolp)
  	(insert ?\n))

*** c-mode.el~	Fri Jun 16 06:22:52 1989
--- c-mode.el	Wed Apr 19 13:20:36 1989
***************
*** 22,26 ****
  			     (forward-sexp 1)
  			     (looking-at ":"))))
! 		  (setq indent (max 1 (+ indent c-label-offset))))
  		 ((and (looking-at "else\\b")
  		       (not (looking-at "else\\s_")))
--- 22,26 ----
  			     (forward-sexp 1)
  			     (looking-at ":"))))
! 		  (setq indent (max 0 (+ indent c-label-offset))))
  		 ((and (looking-at "else\\b")
  		       (not (looking-at "else\\s_")))