thierryvolpiatto

;; Emacs: 29.0.50 Tramp: 2.6.0-pre -*- mode: outline; coding: utf-8; -*-
;; Location: /home/thierry/tmp/emacs/lisp/net/tramp.elc Git: master/36758096961930baaf0e271522abfb78ff7f656d
21:38:46.644963 tramp-get-file-property (8) #  file-attributes-string nil; inhibit: 10; cache used: nil; cached at: nil
21:38:47.043264 tramp-get-connection-property (7) # stat undef; cache used: nil
21:38:47.465279 tramp-get-connection-property (7) # uname ; cache used: nil
21:38:47.685381 tramp-get-remote-stat (5) # Finding a suitable `stat' command
21:38:47.687773 tramp-get-connection-property (7) # process-buffer nil; cache used: nil
21:38:47.689912 tramp-get-connection-property (7) # process-buffer nil; cache used: nil
21:38:47.692078 tramp-set-connection-property (7) # process-buffer nil
21:38:47.695072 tramp-get-connection-property (7) # process-buffer nil; cache used: t

thierryvolpiatto

#0  0x0000555555837be7 in doprnt (buffer=0x7fffff6702c0 "", bufsize=4000, format=0x5555558af29a "Bytecode stack overflow", ap=0x7fffff670250, format_end=<optimized out>) at doprnt.c:186
#1  0x0000555555838a57 in doprnt (ap=0x7fffff670250, format_end=0x0, format=0x5555558af29a "Bytecode stack overflow", bufsize=<optimized out>, buffer=<optimized out>) at doprnt.c:590
#2  evxprintf
    (buf=buf@entry=0x7fffff6702b8, bufsize=bufsize@entry=0x7fffff6702b0, nonheapbuf=nonheapbuf@entry=0x7fffff6702c0 "", bufsize_max=bufsize_max@entry=2305843009213693952, format=0x5555558af29a "Bytecode stack overflow", ap=ap@entry=0x7fffff6712a0) at doprnt.c:590
#3  0x00005555557aa5f3 in vformat_string (m=<optimized out>, ap=ap@entry=0x7fffff6712a0) at eval.c:2029
#4  0x00005555555aac6f in verror (m=<optimized out>, ap=ap@entry=0x7fffff6712a0) at eval.c:2041
#5  0x00005555555aad1b in error (m=<optimized out>) at eval.c:2052
#6  0x00005555555ad64e in exec_byte_code (fun=0x7fffff6702c0, args_template=140737478333120, nargs=2, args=0x7

thierryvolpiatto

;	$Id: helm-ls.el,v 1.4 2018/01/22 21:39:56 thierry Exp $	
(defvar helm-source-ls
  (helm-build-async-source "ls"
    :candidates-process (lambda ()
                          (let* ((basedir (if (file-directory-p helm-pattern)
                                              helm-pattern
                                            (helm-basedir helm-pattern)))
                                 (proc
                                  (start-file-process "hls" nil "ls"

thierryvolpiatto

(defun query-replace--split-string (string)
  "Split string STRING at a character with property `separator'"
  (let* ((length (length string))
         (split-pos (text-property-any 0 length 'separator t string)))
    (cond (split-pos
           (cl-assert (not (text-property-any
                            (1+ split-pos) length 'separator t string)))
           (cons (substring-no-properties string 0 split-pos)
            (substring-no-properties string (1+ split-pos) length)))
          ((string-match query-replace-from-to-separator string)