Lines Matching +defs:old +defs:syntax
427 (let ((leftsaved (aref (syntax-table) leftchar))
428 (rightsaved (aref (syntax-table) rightchar)))
432 (aset (syntax-table) leftchar (cons 4 ?\)))
433 (aset (syntax-table) rightchar (cons 5 ?\[)))
435 (aset (syntax-table) leftchar (cons 4 ?\]))
436 (aset (syntax-table) rightchar (cons 5 ?\())))
438 (aset (syntax-table) leftchar leftsaved)
439 (aset (syntax-table) rightchar rightsaved)))
533 "A list whose elements (old new) indicate replacements to make
565 (defvar math-exp-old-pos)
572 (math-exp-old-pos 0)
583 (let ((val (catch 'syntax (math-read-expr-list))))
585 (list 'error math-exp-old-pos val)
588 (list 'error math-exp-old-pos "Syntax error"))))))
657 (setq math-exp-old-pos math-exp-pos
661 (setq math-exp-old-pos math-exp-pos)
881 (setq op (calc-check-user-syntax x exp-prec))
932 (throw 'syntax "Mismatched delimiters"))
948 (defun calc-check-user-syntax (&optional x prec)
962 (save-exp-old-pos math-exp-old-pos)
966 (setq matches (calc-match-user-syntax rule))))
1027 (setq math-exp-old-pos save-exp-old-pos
1034 (defun calc-match-user-syntax (p &optional term)
1037 (save-exp-old-pos math-exp-old-pos)
1048 (and (setq m (catch 'syntax
1059 (setq m (calc-match-user-syntax (nth 1 (car p))))
1069 (setq m (calc-match-user-syntax (nth 1 (car p))
1076 mm (calc-match-user-syntax
1088 math-exp-old-pos save-exp-old-pos
1109 (throw 'syntax "Expected ':'"))
1115 math-exp-old-pos math-exp-token math-expr-data)
1129 (setq math-exp-old-pos math-exp-pos)
1130 (throw 'syntax "Bad format")))
1137 (setq op (calc-check-user-syntax)))
1172 (throw 'syntax "Expected `)'"))
1219 (throw 'syntax "Expected ']'")))
1228 (throw 'syntax (if calc-dollar-values
1233 (throw 'syntax "#'s not allowed in this context"))
1240 (throw 'syntax "Too many # arguments")))
1288 (throw 'syntax "Expected `)'"))
1303 (t (throw 'syntax "Expected a number")))))