| /dports/editors/emacs-devel/emacs-4d1968b/lisp/emacs-lisp/ |
| H A D | pp.el | 29 (defgroup pp nil unknown
101 (defun pp (object &optional stream) function
149 (pp expression))
283 (setq indent 2))
291 (when (and (not indent)
293 (setq indent 0))
297 (if indent
298 (pp--format-definition sexp indent edebug)
309 (defun pp--format-definition (sexp indent edebug)
324 (cl-decf indent))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/test/lisp/emacs-lisp/pp-resources/ |
| H A D | code-formats.erts | 6 (pp-emacs-lisp-code code)
23 (defun pp-emacs-lisp-code (sexp)
28 (pp--insert-lisp sexp)
31 (indent-sexp)))
64 (defgroup pp ()
66 :prefix "pp-"
73 (defcustom pp-escape-newlines t
76 :group 'pp)
82 (defun pp (object &optional stream)
90 (defun pp-eval-expression (expression)
[all …]
|
| /dports/editors/slime/slime-2.26.1-9-gf368e22a/lib/ |
| H A D | macrostep.el | 259 (require 'pp)
747 (if (consp sexp)
1002 (declare (indent 1)
1026 ((symbolp sexp)
1028 (if (not (eq sexp (intern-soft (symbol-name sexp))))
1035 ((listp sexp)
1039 (= (length sexp) 2))
1055 (= (length sexp) 2))
1087 (setq sexp (cdr sexp))
1089 (while sexp
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/boot/ |
| H A D | compiler.scm | 13 (define pp print)
38 (define pp (lambda a '()))
59 (define pp (lambda a '()))
67 (define pp print)
532 `(let ((,(second sexp) ,(third sexp)))
574 ($src (expand-let (second sexp) (cddr sexp)) sexp)]))]
579 …($src (pass1/expand ($src `(receive vals (,(second sexp)) (apply ,(third sexp) vals)) sexp)) sexp)]
725 (if it ,(caddr sexp) ,(cadddr sexp))))
1370 (define (indent count)
1378 (newline (current-error-port)) (indent ind))
[all …]
|
| /dports/editors/sly/sly-1.0.43/ |
| H A D | sly.el | 74 (require 'pp)
162 (declare (indent 1))
734 (declare (indent 1))
747 (declare (indent 1)
748 (debug (sexp &rest (sexp &rest form))))
853 (declare (indent 1) (debug (sexp &rest form)))
936 (declare (indent 1)
1614 (sexp (sly--sanitize-or-lose sexp))
2331 (debug (sexp (form &optional sexp sexp)
2711 (declare (indent 3) (debug (&define sexp name lambda-list
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/ |
| H A D | wid-edit.el | 2986 (when (and indent (not (zerop indent)))
2992 (when (and indent (> indent 0))
3033 indent
3068 (define-widget 'other 'sexp
3363 (setq pp (substring pp 0 -1)))
3365 (> (length pp) 40))
3366 (concat "\n" pp)
3367 pp)))
3572 :value-type '(sexp :tag "Value")
3616 :key-type '(sexp :tag "Key")
[all …]
|
| H A D | cus-edit.el | 593 ("-alist\\'" (alist :key-type sexp :value-type sexp)))
1848 (let ((pp (pp-to-string value)))
1849 (cond ((string-match-p "\n" pp)
1851 ((> (length pp) 40)
2088 (when indent
2317 (when indent
2551 'sexp))
2649 widget 'sexp
3661 (when indent (insert-char ?\s indent))
3671 (when indent
[all …]
|
| H A D | ChangeLog.17 | 4989 * dom.el (dom-pp): New function.
6023 * emacs-lisp/pp.el (pp-macroexpand-expression): Use macroexpand-1
7375 (eval-print-last-sexp, last-sexp-setup-props)
7378 (eval-last-sexp-fake-value, eval-sexp-add-defvars, eval-last-sexp)
9022 * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp):
12263 (python-indent-dedent-line-backspace, python-nav-backward-sexp)
12394 (cvs-fileinfo-pp, cvs-fileinfo-from-entries): Doc fixes.
19362 (css-backward-sexp, css-forward-sexp, css-indent-calculate-virtual)
19606 * emacs-lisp/pp.el (pp-eval-expression, pp-macroexpand-expression):
19915 (help-xref-on-pp): Use looking-at-p, ignore-errors.
[all …]
|
| /dports/editors/sly/sly-1.0.43/lib/ |
| H A D | sly-tests.el | 102 (declare (debug (&define name sexp sexp &rest def-form)))
164 (declare (debug (&define name sexp sexp sexp &rest def-form))
165 (indent 4))
191 (declare (indent defun))
1339 (and more (pp more))
1472 (declare (indent 2))
|
| /dports/editors/slime/slime-2.26.1-9-gf368e22a/ |
| H A D | slime.el | 73 (require 'pp)
689 (declare (indent 1))
720 (declare (indent 1))
727 (declare (indent 2))
812 (declare (indent 1) (debug (sexp &rest form)))
819 (declare (indent 1))
831 (declare (indent 1))
890 (declare (indent 1))
2369 (declare (indent 3) (debug (&define name sexp lambda-list
2415 (pp event buffer)))
[all …]
|
| H A D | slime-tests.el | 154 (declare (debug (&define name sexp sexp sexp &rest def-form)))
182 (declare (indent defun))
1312 (and more (pp more))
|
| /dports/editors/emacs/emacs-27.2/doc/emacs/ |
| H A D | programs.texi | 338 Emacs also provides a Lisp pretty-printer in the @code{pp} package,
340 @xref{Output Functions, pp,, elisp, The Emacs Lisp Reference Manual}.
407 @findex indent-pp-sexp
414 @code{indent-pp-sexp} in Lisp mode, @code{c-indent-exp} in C mode,
435 indent.
621 @cindex sexp
638 Kill balanced expression forward (@code{kill-sexp}).
643 Put mark after following expression (@code{mark-sexp}).
648 @findex forward-sexp
649 @findex backward-sexp
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/ |
| H A D | wid-edit.el | 3159 (when (and indent (not (zerop indent)))
3165 (when (and indent (> indent 0))
3206 indent
3241 (define-widget 'other 'sexp
3547 (setq pp (substring pp 0 -1)))
3549 (> (length pp) 40))
3550 (concat "\n" pp)
3551 pp)))
3843 :value-type '(sexp :tag "Value")
3887 :key-type '(sexp :tag "Key")
[all …]
|
| H A D | cus-edit.el | 595 ("-alist\\'" (alist :key-type sexp :value-type sexp)))
1912 (let ((pp (pp-to-string value)))
1913 (cond ((string-search "\n" pp)
1915 ((> (length pp) 40)
2152 (when indent
2388 (when indent
2622 'sexp))
2720 widget 'sexp
3805 (when indent (insert-char ?\s indent))
3815 (when indent
[all …]
|
| H A D | ChangeLog.17 | 4989 * dom.el (dom-pp): New function.
6023 * emacs-lisp/pp.el (pp-macroexpand-expression): Use macroexpand-1
7375 (eval-print-last-sexp, last-sexp-setup-props)
7378 (eval-last-sexp-fake-value, eval-sexp-add-defvars, eval-last-sexp)
9022 * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp):
12263 (python-indent-dedent-line-backspace, python-nav-backward-sexp)
12394 (cvs-fileinfo-pp, cvs-fileinfo-from-entries): Doc fixes.
19362 (css-backward-sexp, css-forward-sexp, css-indent-calculate-virtual)
19606 * emacs-lisp/pp.el (pp-eval-expression, pp-macroexpand-expression):
19915 (help-xref-on-pp): Use looking-at-p, ignore-errors.
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/doc/emacs/ |
| H A D | programs.texi | 340 Emacs also provides a Lisp pretty-printer in the @code{pp} package,
342 @xref{Output Functions, pp,, elisp, The Emacs Lisp Reference Manual}.
409 @findex indent-pp-sexp
416 @code{indent-pp-sexp} in Lisp mode, @code{c-indent-exp} in C mode,
437 indent.
640 @cindex sexp
657 Kill balanced expression forward (@code{kill-sexp}).
662 Put mark after following expression (@code{mark-sexp}).
667 @findex forward-sexp
668 @findex backward-sexp
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/progmodes/ |
| H A D | sh-script.el | 285 (sexp :format "Evaluate: %v"))))
307 (repeat :tag "Regexp, index..." sexp)))
511 (sexp :format "Evaluate: %v"))))
640 (sexp :format "Evaluate: %v"))))
663 (sexp :format "Evaluate: %v"))))
700 (sexp :format "Evaluate: %v"))))
1933 (if (not (numberp indent)) indent
1939 ((< ci indent) nil)
1945 (> ci indent))
1949 indent))))))
[all …]
|
| /dports/lang/mit-scheme/mit-scheme-9.2/src/edwin/ |
| H A D | edwin.pkg | 598 lisp-indent-line
599 lisp-indent-sexp
636 c-indent-line
673 edwin-command$inferior-repl-eval-last-sexp
852 debugger-pp
1715 edwin-command$step-last-sexp
1726 debugger-pp)
1764 edwin-command$paredit-raise-sexp
1765 edwin-command$paredit-recentre-on-sexp
1766 edwin-command$paredit-splice-sexp
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/cedet/semantic/ |
| H A D | lex.el | 396 (semantic-lex-type-put "string" 'matchdatatype 'sexp t)
655 (require 'pp)
1068 (declare (indent 1) (debug t))
1141 (indent 1))
1167 (indent 1))
1476 (declare (indent 1))
1492 (declare (indent 1))
1511 (declare (indent 1))
1544 (declare (indent 1))
1642 (declare (indent 1))
[all …]
|
| H A D | grammar.el | 135 (pp token-stream (current-buffer))
564 (pp item (current-buffer)))
801 ((eq mtype 'sexp)
1384 (let (indent)
1386 (while (not indent)
1390 (setq indent 0))
1399 (setq indent 0)
1401 indent))
1406 (let (indent n)
1410 (setq indent (current-column))
[all …]
|
| /dports/lang/racket/racket-8.3/doc/redex/ |
| H A D | blueboxes.rktd | 645 #:pp pp
663 pred : (or/c (-> sexp any) = (λ (x) #t)
664 (-> sexp term-node? any))
691 #:pp pp
709 pred : (or/c (-> sexp any) = (λ (x) #t)
710 (-> sexp term-node? any))
756 [#:pp pp
768 [#:pp pp
1039 (metafunction-up/down-indent) -> (>=/c 0)
1040 (metafunction-up/down-indent indent) -> void?
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/cedet/semantic/ |
| H A D | grammar.el | 133 (pp token-stream (current-buffer))
563 (pp item (current-buffer)))
798 ((eq mtype 'sexp)
1385 (let (indent)
1387 (while (not indent)
1391 (setq indent 0))
1400 (setq indent 0)
1402 indent))
1407 (let (indent n)
1411 (setq indent (current-column))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/progmodes/ |
| H A D | sh-script.el | 344 (sexp :format "Evaluate: %v"))))
366 (repeat :tag "Regexp, index..." sexp)))
593 (sexp :format "Evaluate: %v"))))
722 (sexp :format "Evaluate: %v"))))
745 (sexp :format "Evaluate: %v"))))
782 (sexp :format "Evaluate: %v"))))
2026 (if (not (numberp indent)) indent
2042 indent))))))
3364 (when indent
3367 (indent-line-to indent)
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/doc/lispref/ |
| H A D | debugging.texi | 287 eval-last-sexp-1(nil)
288 eval-last-sexp(nil)
289 call-interactively(eval-last-sexp)
722 eval-last-sexp-1(nil)
724 eval-last-sexp(nil)
725 call-interactively(eval-last-sexp)
753 (eval-last-sexp-1 nil)
755 (eval-last-sexp nil)
756 (call-interactively eval-last-sexp)
886 (@code{indent-pp-sexp}, @pxref{Multi-line Indent,,,emacs, The GNU
[all …]
|
| /dports/editors/emacs/emacs-27.2/doc/lispref/ |
| H A D | debugging.texi | 287 eval-last-sexp-1(nil)
288 eval-last-sexp(nil)
289 call-interactively(eval-last-sexp)
722 eval-last-sexp-1(nil)
724 eval-last-sexp(nil)
725 call-interactively(eval-last-sexp)
753 (eval-last-sexp-1 nil)
755 (eval-last-sexp nil)
756 (call-interactively eval-last-sexp)
886 (@code{indent-pp-sexp}, @pxref{Multi-line Indent,,,emacs, The GNU
[all …]
|