/[emacs]/emacs/lisp/generic.el
ViewVC logotype

Diff of /emacs/lisp/generic.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by miles, Wed Sep 15 04:04:10 2004 UTC revision 1.25 by monnier, Wed Nov 24 15:20:38 2004 UTC
# Line 289  Some generic modes are defined in `gener Line 289  Some generic modes are defined in `gener
289    
290      ;; Go through all the comments      ;; Go through all the comments
291      (dolist (start comment-list)      (dolist (start comment-list)
292        (let ((end ?\n) (comstyle ""))        (let ((end nil) (comstyle ""))
293          ;; Normalize          ;; Normalize
294          (when (consp start)          (when (consp start)
295            (setq end (or (cdr start) end))            (setq end (or (cdr start) end))
296            (setq start (car start)))            (setq start (car start)))
297          (when (char-valid-p start) (setq start (char-to-string start)))          (when (char-valid-p start) (setq start (char-to-string start)))
298          (when (char-valid-p end)   (setq end (char-to-string end)))          (cond
299             ((char-valid-p end)   (setq end (char-to-string end)))
300             ((zerop (length end)) (setq end "\n")))
301    
302          ;; Setup the vars for `comment-region'          ;; Setup the vars for `comment-region'
303          (if comment-start          (if comment-start
# Line 414  The regexp is highlighted with FACE." Line 416  The regexp is highlighted with FACE."
416    
417  (provide 'generic)  (provide 'generic)
418    
419  ;;; arch-tag: 239c1fc4-1303-48d9-9ac0-657d655669ea  ;; arch-tag: 239c1fc4-1303-48d9-9ac0-657d655669ea
420  ;;; generic.el ends here  ;;; generic.el ends here

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26