【久受尊名 不详】比较智能的处理硬换行的emacs lisp代码

(defun make-a-long-sentence ()
  "make a long sentence and also work on region"
  (interactive)
  (if (region-active-p)
      (progn    ; there is a text selection
    (let (str pt)
      (while (< (point) (region-end))
        (progn
          (delete-indentation 1)        ;一个现成函数 但要处理连字符
          (backward-char)
          (setq str (buffer-substring (setq pt (point)) (1+ pt)))
          (if (string-equal str "-")
          (delete-char 2)
        (forward-char)
        )
          )
        )
      )
    )
    )
  (progn
    (let (str pt)
      (delete-indentation 1)        ;一个现成函数 但要处理连字符
      (backward-char)
      (setq str (buffer-substring (setq pt (point)) (1+ pt)))
      (if (string-equal str "-")
      (delete-char 2)
    (forward-char)
    )
      )
    )
  )

;; C-;
(global-set-key [67108923] (quote make-a-long-sentence))

(defun dwim-make-a-long-sentence ()
  "make a long sentence and also work on region"
  (interactive)
  (if (region-active-p)
      (progn    ; there is a text selection
    (save-restriction
      (narrow-to-region (region-beginning) (region-end))
      (goto-char (point-min))
      (while (search-forward "\n" nil t) (replace-match "" nil t))
      )
    )
    (progn
      (end-of-line)
      (delete-char 1)
      )
    )
  )

;; C-'
(global-set-key [67108903] (quote dwim-make-a-long-sentence))

;; C-M-;
(global-set-key [201326651] (quote dwim-make-a-long-sentence))