[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/antlr-mode.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/antlr-mode.el |
Date: |
Tue, 04 Feb 2003 08:24:39 -0500 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/antlr-mode.el,
Juanma Barranquero <=