/[emacs]/emacs/lisp/emacs-lisp/syntax.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/syntax.el

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

revision 1.3 by monnier, Sun Oct 28 05:43:36 2001 UTC revision 1.4 by monnier, Sun Nov 25 22:05:17 2001 UTC
# Line 279  Point is at POS when this function retur Line 279  Point is at POS when this function retur
279  ;;   (with-current-buffer (or buffer (current-buffer))  ;;   (with-current-buffer (or buffer (current-buffer))
280  ;;     (syntax-ppss-depth (syntax-ppss))))  ;;     (syntax-ppss-depth (syntax-ppss))))
281    
282  (elp-instrument-list '(syntax-ppss))  (defun syntax-after (pos)
283      "Return the syntax of the char after POS."
284      (unless (or (< pos (point-min)) (>= pos (point-max)))
285        (let ((st (if parse-sexp-lookup-properties
286                      (get-char-property pos 'syntax-table))))
287          (if (consp st) st
288            (aref (or st (syntax-table)) (char-after pos))))))
289    
290  (provide 'syntax)  (provide 'syntax)
291  ;;; syntax.el ends here  ;;; syntax.el ends here

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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