[Emacs-diffs] Changes to emacs/lisp/generic.el

[Stefan Monnier]

Index: emacs/lisp/generic.el
diff -c emacs/lisp/generic.el:1.24 emacs/lisp/generic.el:1.25
*** emacs/lisp/generic.el:1.24  Wed Sep 15 04:04:10 2004
--- emacs/lisp/generic.el       Wed Nov 24 15:20:38 2004
***************
*** 289,301 ****
  
      ;; Go through all the comments
      (dolist (start comment-list)
!       (let ((end ?\n) (comstyle ""))
        ;; Normalize
        (when (consp start)
          (setq end (or (cdr start) end))
          (setq start (car start)))
        (when (char-valid-p start) (setq start (char-to-string start)))
!       (when (char-valid-p end)   (setq end (char-to-string end)))
  
        ;; Setup the vars for `comment-region'
        (if comment-start
--- 289,303 ----
  
      ;; Go through all the comments
      (dolist (start comment-list)
!       (let ((end nil) (comstyle ""))
        ;; Normalize
        (when (consp start)
          (setq end (or (cdr start) end))
          (setq start (car start)))
        (when (char-valid-p start) (setq start (char-to-string start)))
!       (cond
!        ((char-valid-p end)   (setq end (char-to-string end)))
!        ((zerop (length end)) (setq end "\n")))
  
        ;; Setup the vars for `comment-region'
        (if comment-start
***************
*** 414,418 ****
  
  (provide 'generic)
  
! ;;; arch-tag: 239c1fc4-1303-48d9-9ac0-657d655669ea
  ;;; generic.el ends here
--- 416,420 ----
  
  (provide 'generic)
  
! ;; arch-tag: 239c1fc4-1303-48d9-9ac0-657d655669ea
  ;;; generic.el ends here