[Emacs-diffs] Changes to emacs/lisp/progmodes/antlr-mode.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/antlr-mode.el
diff -c emacs/lisp/progmodes/antlr-mode.el:1.14 
emacs/lisp/progmodes/antlr-mode.el:1.15
*** emacs/lisp/progmodes/antlr-mode.el:1.14     Fri Jan 31 15:38:52 2003
--- emacs/lisp/progmodes/antlr-mode.el  Tue Feb  4 08:24:34 2003
***************
*** 88,94 ****
  (eval-when-compile
    (require 'cl)
    (defmacro cond-emacs-xemacs (&rest args)
!     (cond-emacs-xemacs-macfn 
       args "`cond-emacs-xemacs' must return exactly one element"))
    (defun cond-emacs-xemacs-macfn (args &optional msg)
      (if (atom args) args
--- 88,94 ----
  (eval-when-compile
    (require 'cl)
    (defmacro cond-emacs-xemacs (&rest args)
!     (cond-emacs-xemacs-macfn
       args "`cond-emacs-xemacs' must return exactly one element"))
    (defun cond-emacs-xemacs-macfn (args &optional msg)
      (if (atom args) args
***************
*** 1627,1633 ****
                      :active active))
            (sort (mapcar 'car (elt antlr-options-alists (1- level)))
                  'string-lessp))))
!     
  
  ;;;===========================================================================
  ;;;  Insert option: determine section-kind
--- 1627,1633 ----
                      :active active))
            (sort (mapcar 'car (elt antlr-options-alists (1- level)))
                  'string-lessp))))
! 
  
  ;;;===========================================================================
  ;;;  Insert option: determine section-kind
***************
*** 1904,1910 ****
      ;; stuff (no =, {, } or /) at point is not followed by ";"
      (insert ";")
      (backward-char)))
!       
  (defun antlr-insert-option-space (area old)
    "Find appropriate place to insert option, insert newlines/spaces.
  For AREA and OLD, see `antlr-insert-option-do'."
--- 1904,1910 ----
      ;; stuff (no =, {, } or /) at point is not followed by ";"
      (insert ";")
      (backward-char)))
! 
  (defun antlr-insert-option-space (area old)
    "Find appropriate place to insert option, insert newlines/spaces.
  For AREA and OLD, see `antlr-insert-option-do'."
***************
*** 1924,1930 ****
                 (setq orig (point))
               (goto-char orig)))
        (skip-chars-forward " \t")
!       
        (if (looking-at "$\\|//")
            ;; just comment after point => skip (+ lines w/ same col comment)
            (let ((same (if (> (match-end 0) (match-beginning 0))
--- 1924,1930 ----
                 (setq orig (point))
               (goto-char orig)))
        (skip-chars-forward " \t")
! 
        (if (looking-at "$\\|//")
            ;; just comment after point => skip (+ lines w/ same col comment)
            (let ((same (if (> (match-end 0) (match-beginning 0))