Question

我将M-q用于填充段落,我能否在汽车填埋场填写未填段落?

我有时使用org的方式进入[甚高超][与空间相同],而且就与空间名称一样,自动填充方式在插入的空间基础上打破了整个线,这非常令人怀疑。

是否有像不填满的指挥? 或者,是否有临时/当地可拆卸的自动填埋场?

Answer 1

在打电话<代码>填充-第之前,传真不记录您的行文。因此,你所能做的唯一事情是控制指挥系统。只有在事先发出指挥呼吁的情况下,才能解除你的<代码>填充-第的指挥。

如果你想把多线段落放在一条行文上的话,你会这样做:

Select the region
C-M-% C-q C-j RET SPACE RET !

Answer 2

Xah Lee更新了他的代码:<> > 回答”,我对“可读性”作了调整:

(defun my-toggle-fill-paragraph ()
  ;; Based on http://xahlee.org/emacs/modernization_fill-paragraph.html
  "Fill or unfill the current paragraph, depending upon the current line length.
When there is a text selection, act on the region.
See `fill-paragraph  and `fill-region ."
  (interactive)
  ;; We set a property  currently-filled-p on this command s symbol
  ;; (i.e. on  my-toggle-fill-paragraph), thus avoiding the need to
  ;; create a variable for remembering the current fill state.
  (save-excursion
    (let* ((deactivate-mark nil)
           (line-length (- (line-end-position) (line-beginning-position)))
           (currently-filled (if (eq last-command this-command)
                                 (get this-command  currently-filled-p)
                               (< line-length fill-column)))
           (fill-column (if currently-filled
                            most-positive-fixnum
                          fill-column)))

      (if (region-active-p)
          (fill-region (region-beginning) (region-end))
        (fill-paragraph))

      (put this-command  currently-filled-p (not currently-filled)))))

Answer 3

为了从奥格模式中删除一段很长的一段,我给我新的指挥。与此相关的《荣誉法典》:

(defun fp-unfill-paragraph (&optional justify region)
  (interactive (progn
         (barf-if-buffer-read-only)
         (list (if current-prefix-arg  full) t)))
  (interactive)
  (let ((fill-column 100000))
    (fill-paragraph justify region)))

(global-set-key "C-ceu"  fp-unfill-paragraph)

当然,正如你认为合适的,你调整了关键指挥系统。

Answer 4

我使用以下刀切来填充和填充段落(仅使用<代码>M-q),这确实是多余的。我借用Xah Lee,但删除了一些评论和白色空间,使之适合这里。第一份评论中与他原来的法典有关联。

;; http://xahlee.org/emacs/modernization_fill-paragraph.html
(defun compact-uncompact-block ()
  "Remove or add line endings on the current block of text.
This is similar to a toggle for fill-paragraph and unfill-paragraph
When there is a text selection, act on the region.

When in text mode, a paragraph is considered a block. When in programing
language mode, the block defined by between empty lines.

Todo: The programing language behavior is currently not done.
Right now, the code uses fill* functions, so does not work or work well
in programing lang modes. A proper implementation to compact is replacing
newline chars by space when the newline char is not inside string.
"
  (interactive)
  (let (bds currentLineCharCount currentStateIsCompact
            (bigFillColumnVal 4333999) (deactivate-mark nil))
    (save-excursion
      (setq currentLineCharCount
            (progn
              (setq bds (bounds-of-thing-at-point  line))
              (length (buffer-substring-no-properties (car bds) (cdr bds)))))
      (setq currentStateIsCompact
            (if (eq last-command this-command)
                (get this-command  stateIsCompact-p)
              (if (> currentLineCharCount fill-column) t nil)))
      (if (and transient-mark-mode mark-active)
          (if currentStateIsCompact
              (fill-region (region-beginning) (region-end))
            (let ((fill-column bigFillColumnVal))
              (fill-region (region-beginning) (region-end)))
            )
        (if currentStateIsCompact
            (fill-paragraph nil)
          (let ((fill-column bigFillColumnVal))
            (fill-paragraph nil))))
      (put this-command  stateIsCompact-p
           (if currentStateIsCompact
               nil t)))))
(global-set-key (kbd "M-q")  compact-uncompact-block)

友情链接