/[emacs]/emacs/lisp/progmodes/cc-align.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cc-align.el

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

revision 1.24 by mast, Wed Aug 11 16:22:21 2004 UTC revision 1.25 by mast, Mon May 23 00:03:59 2005 UTC
# Line 24  Line 24 
24  ;; GNU General Public License for more details.  ;; GNU General Public License for more details.
25    
26  ;; You should have received a copy of the GNU General Public License  ;; You should have received a copy of the GNU General Public License
27  ;; along with GNU Emacs; see the file COPYING.  If not, write to  ;; along with this program; see the file COPYING.  If not, write to
28  ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,  ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
29  ;; Boston, MA 02111-1307, USA.  ;; Boston, MA 02110-1301, USA.
30    
31  ;;; Commentary:  ;;; Commentary:
32    
# Line 175  Works with: arglist-cont, arglist-cont-n Line 175  Works with: arglist-cont, arglist-cont-n
175        (let ((open-paren (elt c-syntactic-element 2))        (let ((open-paren (elt c-syntactic-element 2))
176              (paren-state (c-parse-state)))              (paren-state (c-parse-state)))
177          (while (not (eq (car paren-state) open-paren))          (while (not (eq (car paren-state) open-paren))
178            (goto-char (car paren-state))            (unless (consp (car paren-state)) ;; ignore matched braces
179                (goto-char (car paren-state)))
180            (setq paren-state (cdr paren-state)))))            (setq paren-state (cdr paren-state)))))
181    
182      (let ((start (point)) c)      (let ((start (point)) c)
# Line 1171  Otherwise, no determination is made." Line 1172  Otherwise, no determination is made."
1172               ;;(/= (point-max)               ;;(/= (point-max)
1173               ;;    (save-excursion (skip-syntax-forward " ") (point))               ;;    (save-excursion (skip-syntax-forward " ") (point))
1174               (zerop (forward-line 1))               (zerop (forward-line 1))
1175                 (bolp)                     ; forward-line has funny behavior at eob.
1176               (not (looking-at "^[ \t]*$")))               (not (looking-at "^[ \t]*$")))
1177          'stop          'stop
1178        nil)))        nil)))

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