2008-11 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

2008-11-17 (月)

標準の補完候補を便利に [Emacs]

Emacs補完候補の選択を便利に - あどけない話

Emacs が提供する標準の Completion List を便利にする方法。以下の方法
を想定しているそうな。今までは 2 の後に補完候補をミニバッファにコピ
ペしていたので、これは結構良いかも。(・∀・)

1. TAB や M-TAB で補完の候補を表示
2. C-xo で補完の候補のバッファへ移動
3. C-f/C-b/C-n/C-p あるいは C-s/C-r で候補を選択
4. RET で候補を選ぶと、元々の状態に戻り、選んだ候補が挿入される

以下が該当のコード。~/.emacs に張り付けるだけ。n/p にも割り当ててみた。

(define-key completion-list-mode-map (kbd "n")   'next-completion)
(define-key completion-list-mode-map (kbd "C-n") 'next-completion)
(define-key completion-list-mode-map (kbd "C-f") 'next-completion)
(define-key completion-list-mode-map (kbd "p")   'previous-completion)
(define-key completion-list-mode-map (kbd "C-p") 'previous-completion)
(define-key completion-list-mode-map (kbd "C-b") 'previous-completion)
(define-key completion-list-mode-map (kbd "C-m") 'my-choose-completion)

(defun my-choose-completion ()
  "Choose the completion that point is in or next to."
  (interactive)
  (let (beg end completion (buffer completion-reference-buffer)
            (base-size completion-base-size))
    (if (and (not (eobp)) (get-text-property (point) 'mouse-face))
        (setq end (point) beg (1+ (point))))
    (if (and (not (bobp)) (get-text-property (1- (point)) 'mouse-face))
        (setq end (1- (point)) beg (point)))
    (if (null beg)
        (error "No completion here"))
    (setq beg (previous-single-property-change beg 'mouse-face))
    (setq end (or (next-single-property-change end 'mouse-face) (point-max)))
    (setq completion (buffer-substring-no-properties beg end))
    (delete-completion-window)
    (choose-completion-string completion buffer base-size)))



P.S.
Mew でのフォルダ名入力時の、C-s/C-r/TAB ももちろん使っています。:-)

世界中の迷惑メールのうち50〜70%が、一社の関与によって行われているらしい

PCオンラインの記事によると、米国サンノゼのISPが、ある迷惑メール送信
事業者のインターネット接続を遮断したところ、以降の迷惑メールの流通
量が75%も減ったそうである。


確かに、10/1 頃は 100 通は来てた迷惑メールが、最近は 60 通前後に減っ
ている。ホントだとしたら、なんという効果的な対応。w

(URL: http://slashdot.jp/it/article.pl?sid=08/11/17/0353221)

この記事に言及しているこのブログ内の記事

ワインメモ「無添加赤わいん」 [Wine]

いつもビールばかり飲んでいるので、先週末は近所のスーパーでワインを
買ってきた。陰ながら日本の農業を応援する私としては、もちろん国産ワ
インをチョイス。

画像

...。甘い!!
こんな甘いワインに出会ったのは初めてだよ。。゜(゜´∀`゜)゜。。
えびチリに合うとか書いてあったけどホント?個人的には単体でも無理だった。

2008-11 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

検索


最近の話題
- 2021-11-29
  『論理が伝わる 世界標準の「書く技術」』を読んだ
- 2021-11-17
  サービス側にメールアドレスを公開しない方法を調べた(Firefox Relay や 1Password + Fastmail のお話)
- 2021-10-27
  ニチレイフーズダイレクトが自分に合うかも
- 2021-10-03
  RIZIN LANDMARK vol.1 の時間帯に発生した U-NEXT の障害体験メモ #RIZIN_LANDMARK #RIZIN_LANDMARK01
- 2021-09-27
  Terraform を使わずに Route 53 の DNS レコードを管理する方法を調べてみた
- 2021-08-25
  Manjaro でハイバネート出来るようにしたメモ
- 2021-08-07
  Chrome から Firefox に乗り換えたよ
最近追記された記事
- 2021-11-17-1 (0日前)
- 2021-11-17-1 (17日前)
- 2021-11-17-1 (18日前)
- 2021-03-14-1 (110日前)
- 2021-06-10-1 (177日前)
- 2021-03-15-1 (265日前)
- 2021-01-05-1 (306日前)
- 2014-11-02-2 (624日前)
- 2020-01-22-1 (630日前)
- 2019-02-11-1 (804日前)
カテゴリ
- Android (3)
- Anthy (3)
- Apache (11)
- Apple (1)
- ATOK (4)
- au (3)
- AWS (25)
- Bazaar (1)
- Berkshelf (2)
- BigQuery (1)
- BitBar (4)
- Book (116)
- Boxen (2)
- Bugsnag (1)
- capistrano (4)
- chalow (57)
- ChatWork (1)
- Chef (17)
- Chrome (4)
- Chromecast (1)
- CircleCI (15)
- clang (26)
- Comics (2)
- Cooking (10)
- cvs (15)
- cygwin (12)
- D3.js (1)
- Debian (55)
- Docker (5)
- E-mail (9)
- elasticsearch (4)
- Emacs (225)
- Emacs講座 (10)
- English (4)
- feedforce (7)
- fetchmail (3)
- Firefox (22)
- Fluentd (4)
- ftp (2)
- Game (21)
- GCP (1)
- Gem (5)
- Git (10)
- GitHub (24)
- golang (11)
- Google (1)
- gpg (4)
- GrowthForecast (7)
- Health (7)
- Heroku (21)
- Homebrew (10)
- HTML (6)
- iBook (1)
- iOS (1)
- iPad (1)
- iPhone (17)
- IRC (1)
- Jenkins (8)
- JS (1)
- Karabiner (1)
- KeySnail (3)
- Kibana (1)
- Kindle (1)
- Kubernetes (2)
- Langrich (7)
- LDAP (6)
- Life (26)
- Linux (7)
- Mackerel (1)
- macOS (1)
- Manjaro (1)
- Mew (18)
- MongoDB (1)
- Mozilla (19)
- Music (1)
- MySQL (1)
- NAS (4)
- nginx (6)
- NHK (1)
- Node (1)
- ntp (4)
- OOP (2)
- OpenID (2)
- openssl (1)
- Opera (2)
- OSX (41)
- Perl (14)
- PHP (19)
- PostgreSQL (1)
- procmail (4)
- Programing (3)
- Puppet (1)
- Python (2)
- Rails (13)
- Rake (2)
- RaspberryPi (2)
- Redash (1)
- RedHat (29)
- Redmine (3)
- RSpec (2)
- Ruby (54)
- samba (3)
- screen (7)
- sed (5)
- serverspec (6)
- sh (8)
- Slack (4)
- Solaris9 (22)
- Spring (2)
- SQL (4)
- ssh (4)
- StatusNet (21)
- svn (12)
- Swift (1)
- Tablet (1)
- tdiary (3)
- Terraform (5)
- Twitter (15)
- Twmode (6)
- Ubuntu (5)
- UNIX (102)
- vagrant (8)
- Video (21)
- vim (1)
- Wercker (9)
- Windows (29)
- Wine (3)
- XML (11)
- XP (1)
- zsh (26)
- インストールメモ (33)
- クイックシェイプ (12)
- ネタ (15)
- 勉強会 (19)
- 携帯 (6)
- 正規表現 (4)
過去ログ
2021 : 01 02 03 04 05 06 07 08 09 10 11 12
2020 : 01 02 03 04 05 06 07 08 09 10 11 12
2019 : 01 02 03 04 05 06 07 08 09 10 11 12
2018 : 01 02 03 04 05 06 07 08 09 10 11 12
2017 : 01 02 03 04 05 06 07 08 09 10 11 12
2016 : 01 02 03 04 05 06 07 08 09 10 11 12
2015 : 01 02 03 04 05 06 07 08 09 10 11 12
2014 : 01 02 03 04 05 06 07 08 09 10 11 12
2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12
2002 : 01 02 03 04 05 06 07 08 09 10 11 12
2001 : 01 02 03 04 05 06 07 08 09 10 11 12